将数据从一张纸复制到另一张工作簿

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有一些限制

最好用循环修复它

范围（Range（“ A”＆ActiveCell.Row），Range（“ IV”＆ActiveCell.Row）.End（xlToLeft））。Select

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