Question

我在我的VBA代码中使用以下代码段。当我尝试运行代码时，我看到下面代码中的粗体突出显示。需要一些帮助。

Set FldrWkbk = Workbooks.Open(FilePath & Curr_File, False, True)

 'Open new data file

Sheets("Request-Form").Range("E48").Copy

'Copy data from specific Range

Workbooks("SLG Master Report.xlsm").Activate

**Sheets(1).Cells(outputRow, OutputCol).Select**

ActiveSheet.Paste

OutputCol = OutputCol + 1

Answer 1

如果outputRow或OutputCol为0，您将收到此错误，因为工作表中没有行0或列0。工作表中的第一个单元格是Cells(1,1)

请注意，数值变量初始化为0。因此，您需要为其分配1或更高的值。

如果您按 F8 单步执行代码，您将逐行执行代码。发生错误时，如果您将鼠标悬停在outputRow或OutputCol上，则会看到其当前值。您也可以打开locals窗口并检查它们的值。

Answer 2

您选择的工作表是否已激活？

这应该也可以，它有点清洁

stop.html

运行时错误'1004'应用程序定义的错误或对象定义的错误

2 个答案: