2017年9月23日 星期六

[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() '結束操作