[Excel] 讀取/寫入 資料

Excel的應用需要加入參考，這方面可以參考：[Excel] 新增/刪除 工作表

程式碼最上面引用

Imports Microsoft.Office.Interop

宣告變數

Dim app As New Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook

讀取欄位

workbook = app.Workbooks.Open("檔案路徑") '開啟 Excel 檔案
worksheet = workbook.Worksheets("工作表名稱") '選擇要讀取的工作表
MsgBox(worksheet.Cells(1, 3).Value()) '選要讀取的行列值，第一個數字是行，第二個數字是列
workbook.Save() '儲存檔案
workbook.Close() '關閉檔案
app.Quit() '結束操作

讀取欄位

workbook = app.Workbooks.Open("檔案路徑") '開啟 Excel 檔案
worksheet = workbook.Worksheets("工作表名稱") '選擇要讀取的工作表
worksheet.Cells(1, 4) = "要寫入的資料" '寫入欄位資料
workbook.Save() '儲存檔案
workbook.Close() '關閉檔案
app.Quit() '結束操作