将数据从工作簿复制到另一工作簿时，下标超出范围错误

Question

我正在尝试将数据从一个工作簿复制到另一个工作簿。 我已经在下面的代码段中编写了代码，但是在以下代码行执行时出现下标超出范围的错误-

ThisWorkbook.Sheets("Sheet2").Range("A" & i, Sheets("Sheet2").Range("A" & i).Offset(chunks - 1, c_cnt - 1)).Value = Workbooks("C:\Users\user1\Desktop\" & f_name).Sheets("Sheet1").Range("A" & i, Sheets("Sheet1").Range("A" & i).Offset(chunks - 1, c_cnt - 1)).Value

可变值：

i=1
chunks=10
fname="test.xlsx"

Answer 1

我怀疑这与您的代码有关，只是调用sheet（）而未指定应从中提取该工作表的工作簿。 尝试为两个工作表设置变量，以便可以清楚地定义它们。 如果您以后需要调试它，这还将使该行更易于阅读。

Dim wb As Workbook, ws1 As Worksheet, ws2 As Worksheet

Set ws1 = Workbooks("C:\Users\user1\Desktop\" & f_name).Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheets2")

ws2.Range("A" & i, ws2.Range("A" & i).Offset(chunks - 1, c_cnt - 1)).Value = ws1.Range("A" & i, ws1.Range("A" & i).Offset(chunks - 1, c_cnt - 1)).Value

您甚至可以更进一步地定义范围变量，这可能使其更具可读性

Dim wb As Workbook, ws1 As Worksheet, ws2 As Worksheet
Dim rng1 As Range, rng2 As Range

Set ws1 = Workbooks("C:\Users\user1\Desktop\" & f_name).Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheets2")

Set rng1 = ws1.Range("A" & i).Offset(chunks - 1, c_cnt - 1)
Set rng2 = ws2.Range("A" & i).Offset(chunks - 1, c_cnt - 1)

ws2.Range("A" & i, rng2).Value = ws1.Range("A" & i, rng1).Value

Answer 2

尝试在分配值之前选择目标工作表：

Workbooks("C:\Users\user1\Desktop\" & f_name).Sheets("Sheet1").select

（并确保您按预期使用了f_name或fname）