将数据从一个工作表复制到另一个工作簿

Question

如何使用VBA将数据从一个文件复制到另一个文件？当我运行此代码时，我收到一个错误 - “运行时错误'1004'：应用程序定义或对象定义错误”。我正在使用Excel 2010

Sub nextfile()

    Range("B5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows("MAIN Pivot Table.xlsx").Activate
    Range("B5").Select
    ActiveSheet.Paste
End Sub

Answer 1

确定错误是因为您尝试复制超过2500行并且您使用Office 2003有一些限制

最好用循环修复它

范围（范围（“A”和ActiveCell.Row），范围（“IV”和ActiveCell.Row）.End（xlToLeft））。选择

要避免此问题，如果VBA宏要复制并粘贴2,516行或更多行的范围，请更改循环VBA宏中的代码以复制和粘贴较小的范围，直到数据被复制并粘贴到所需的范围。