vba - 工作表复制错误 VBA

Question

我有以下问题。我编写了一个宏，将工作表从一个工作簿复制到另一个工作簿。然而，在与复制目标一致的地方，我收到“应用程序定义或对象定义错误”，我用另一个新的 workboos 测试了代码，它可以工作，但不适用于我试图实现它的工作簿。

Dim x As Workbook

Set x = Workbooks.Open("S:\INM\MME9EG\Zahlenwerk MMA2EG Equities\DHN\DHN_Europa.xls")

Workbooks("DHN_Europa.xls").Sheets("Bericht_799026").Range("B4:IV150000").Copy _
            ThisWorkbook.Sheets("DHN Europe 799026").Range("A1")

Answer 1

使用工作簿变量的全部意义在于
替换 Workbooks("DHN_Europa.xls")但是变量名，
这里 x (顺便说一句，尝试使用更明确的变量名称，这会更容易!;))

因为这是 xls文件，您可能只有大约 65k 行，但您尝试复制的不止于此!

Dim x As Workbook

Set x = Workbooks.Open("S:\INM\MME9EG\Zahlenwerk MMA2EG Equities\DHN\DHN_Europa.xls")

x.Sheets("Bericht_799026").Range("B4:IV60000").Copy _
            ThisWorkbook.Sheets("DHN Europe 799026").Range("A1")