我想將作業簿中的一系列資料復制到活動作業簿中。代碼看起來很簡單，但是當我運行代碼時出現下標超出范圍錯誤。我究竟做錯了什么？
源 = "C:\Data\Demographics.xlsx" 目的地 = "C:\Data\Demographic_Import_2022_04_21.xlsm"
Workbooks(Source).Worksheets("Demographics").Range("B10:j39").Copy _
Workbooks(Destination).Worksheets("Sheet1").Range("B10")
uj5u.com熱心網友回復：
打開作業簿
- 您需要使用
Workbooks.Open才能使用完整路徑。無論檔案是否打開，這都將起作用。 - 只有當作業簿已經打開時，您才能使用
Workbooks("Demographics.xlsx")和Workbooks("Demographic_Import_2022_04_21.xlsm")不使用路徑。 - 還可以考慮使用
ThisWorkbook包含此代碼的作業簿（無需指定其名稱）。
Sub OpenWorkbooks()
' Using constants and variables
' Source
Const sPath As String = "C:\Data\Demographics.xlsx"
Const sName As String = "Demographics"
Const sRangeAddress As String = "B10:J39"
' Destination
Const dPath As String = "C:\Data\Demographic_Import_2022_04_21.xlsm"
Const dName As String = "Sheet1"
Const dFirstCellAddress As String = "B10"
' Source
Dim swb As Workbook: Set swb = Workbooks.Open(sPath)
Dim sws As Worksheet: Set sws = swb.Worksheets(sName)
Dim srg As Range: Set srg = sws.Range(sRangeAddress)
' Destination
Dim dwb As Workbook: Set dwb = Workbooks.Open(dPath)
Dim dws As Worksheet: Set dws = dwb.Worksheets(dName)
Dim dfCell As Range: Set dfCell = sws.Range(dFirstCellAddress)
' Copy.
srg.Copy dfCell
' or using constants, no variables (not recommended):
'Workbooks.Open(sPath).Worksheets(sName).Range(sRangeAddress).Copy _
Workbooks.Open(dPath).Worksheets(dName).Range(dFirstCellAddress)
' or using no constants, no variables (not recommended):
'Workbooks.Open("C:\Data\Demographics.xlsx").Worksheets("Demographics").Range("B10:J39").Copy _
Workbooks.Open("C:\Data\Demographic_Import_2022_04_21.xlsm").Worksheets("Sheet1").Range("B10")
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/460540.html