Sub readData()

'數據讀取
'----------------------------------------------
??? Dim dataExcel, Workbook, sheet
??? Dim totalRow? As Integer
??? Set dataExcel = CreateObject("Excel.Application")
??? Set Workbook = dataExcel.Workbooks.Open("E:\要讀取數據的源文件.xlsx")
??? Set sheet = Workbook.Worksheets(1) ? ? '讀取第一個sheet頁的數據
??? totalRow = sheet.UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
??? For i = 2 To totalRow
?????????
???????? Sheets("sheet1").Cells(i, 3) = sheet.Cells(i, 4)
????????
??? Next i
??? Workbook.Close
??? MsgBox "讀取成功！", vbSystemModal '讀取完后彈框提醒
'----------------------------------------------
End Sub

總結

以上是生活随笔為你收集整理的不打开Excel文件直接读取数据的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。