跨工作簿复制粘贴，显示下标越界，怎么回事？

韦冬艺

Sub 跨工作簿复制2()

Dim rng1 As Range, rng2 As Range


Set rng1 = Workbooks("C:\Users\zsh\Desktop\学习\1.xlsx").Sheets("Sheet1").Range("A1:C1")
Set rng2 = Workbooks("C:\Users\zsh\Desktop\学习\2.xlsx").Sheets("Sheet1").Range("A1:C1")
rng1.Copy rng2

End Sub

山菊花

1、把路径删去：
Set rng1 = Workbooks("1.xlsx").Sheets("Sheet1").Range("A1:C1")
2、工作簿1.xlsx必须打开。
3、工作表Sheet1必须存在。

renkangjizhen

既然在同一文件夹中，那么代码所在工作部（workbook1）可以忽略路径，直接用Set rng1 = Range("A1:C1")，而l另一工作部（workbook2）必须打开，其路径可用thisworkbook.path & "\"  & 2.xlsx。

韦冬艺

山菊花 发表于 2019-12-9 18:54
1、把路径删去：
Set rng1 = Workbooks("1.xlsx").Sheets("Sheet1").Range("A1:C1")
2、工作簿1.xlsx必须 ...

好像表2也必须打开喔

韦冬艺

renkangjizhen 发表于 2019-12-9 19:33
既然在同一文件夹中，那么代码所在工作部（workbook1）可以忽略路径，直接用Set rng1 = Range("A1:C1")，而 ...

如果表2不打开，怎么写代码呢？写完整路径就又会出现之前的错误。
能不能在第三个工作簿中的VBA，操作表1和表2？

山菊花

韦冬艺 发表于 2019-12-10 19:02
好像表2也必须打开喔

是的，把1、2、3复制成4、5、6就是对于表2而言。

韦冬艺

山菊花 发表于 2019-12-10 19:30
是的，把1、2、3复制成4、5、6就是对于表2而言。

不打开表1、2工作簿，能不能实现跨工作簿复制？如果代码在另外的第三个工作簿里操作，可否？

山菊花

不打开工作簿，不能复制。
代码在另外的第三个工作簿里操作，可以。