Sub LoadExcelData()
Dim wkbk As Workbook '定義一個作業薄
Dim myFileName As String '定義要讀取的檔案路徑
Dim dataRow As Integer '定義資料的行
Dim dataColumn As Integer '定義資料的列
Dim rgRC As String '讀取的單元格內容（dataRow，dataColumn）
Dim arr(3 To 10, 1 To 9) As String '定義一個二維陣列
' myFileName = Application.GetOpenFilename("EXCEL檔案(*.xlsx), *.xls") '瀏覽檔案，如XX公司17年XX表.xls
If myFileName = "False" Then '如果按取消那么彈出對話框
'MsgBox "請選擇檔案!", vbInformation, "取消"
Else
Set wkbk = Workbooks.Open(myFileName) '先打開要復制的檔案
wkbk.Activate '激活打開作業簿
For dataRow = 3 To 10 '設定行的范圍
For dataColumn = 1 To 9 '設定列的范圍
Sheets("sheet1").Activate
rgRC = Cells(dataRow, dataColumn) '取得
arr(dataRow, dataColumn) = Cells(dataRow, dataColumn)
Next dataColumn
Next dataRow
Sheets("Sheet3").Activate
wkbk.Close False '關閉作業薄
For dataRow = 3 To 10
For dataColumn = 1 To 9
Cells(dataRow, dataColumn) = arr(dataRow, dataColumn)
Next dataColumn
Next dataRow
MsgBox "資料匯入成功！"
End If
End Sub
uj5u.com熱心網友回復：
請補充描述問題，最好能把問題報錯的位置指出來uj5u.com熱心網友回復：
沒有報錯呀，資料能正常匯入轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/25206.html
標籤：VBA