vba - 将整个工作表复制并移动到另一个工作簿。 100 万行至 65536 行

Question

以下是我的代码的一部分，涉及将整个命名工作表从一个主文件复制到正在处理的新的未保存文件:

ActiveWorkbook.Sheets("VehicleList").Copy _
   After:=Workbooks(2).Sheets(1)

因此，将工作表放入工作簿 2 中效果很好，但现在我们正在处理的文件处于旧 excel 模式，由于旧 excel 行数较少，因此会引发以下错误:

"Excel cannot insert the sheets into the destination workbook, because it contains fewer rows and columns"

如何在不破坏代码的情况下调整复制并粘贴到 Workbooks(2) 中？我认为定义 1000 行的范围来复制和移动是可行的，但这也给出了一个错误。感谢您的帮助。

Answer 1

假设您只想要这些值(即我通过不进行复制粘贴来加快速度)，您可以这样做:

Workbooks(2).Sheets.Add After:=Sheets(1)
Workbooks(2).Sheets(2).Range("A1:F1000").Value = ActiveWorkbook.Sheets("VehicleList").Range("A1:F1000").Value