VB如何讀取EXCEL

Question

我如何用VB跟EXCEL連結,並讀取EXCEL資料
請把SOURCE CODE寫上我再來修改
感謝高手幫忙

請盡量詳細
最好有註解

再請問一下阿曼達
我本來就有EXCEL檔案(111.xls)
我是想抓111.xls裡面的資料
所以我必須連結EXCEL
請在幫忙一下

我已經知道不能那excel來當資料庫了

Answer 1

'''宣告Excel各種物件
Dim myxls As Object
Dim mybooks As Object
Dim mybook As Object
Dim mySht as Object
Dim myRange as Object
Dim a As String

Set myxls = CreateObject("Excel.Application") '''啟動Excel
myxls.Visible = True '''顯示Excel
Set mybooks = myxls.workbooks
Set mybook = mybooks.open("a.xls") '''開檔案
set mySht=mybook.sheets(1) '''取得Sheet
set myRange=mySht.Range("A1") '''取得Cell
myRange.Value="123" '''設定資料
X=myRange.Value= '''取得資料
mybook.save
mybook.close
myxls.quit

Answer 2

我本來從沒遇到過修NAS修硬碟和隨身碟要資料救援，一開始也跟大家一樣總是問價格到處比價，因為不懂，凡事都從價格,考量，輕言聽信朋友介紹比較便宜一家，找錯家之後痛苦尾隨而來，以下省略500字........,後來自己上網找資料救援找到硬碟醫院，和他們經理溝通之後給我正確觀念，這是妳寶貴的資料，妳要考慮是救不救的回問題，而不是貴不貴問題,如果重要請找對人搶救NAS資料硬碟救援才能恢復你的NAS中多顆的硬碟資料
http://www.datamaster.com.tw/

Answer 3

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

【 最新活動→迎接新會員，首存狂送20% 】

【運動→電子→對戰→現場→彩球 】

【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

Answer 4

就是那個光!謝謝Hector，原來要再去引用項目裡勾選,難怪一直用不出來><

Answer 5

要用開啟Application的方式的話要確定幾件事，第一是這台電腦要有安裝Excel，第二是在VB裡引用項目中要勾選Excel9.0（或其他版本）