1

我正在编写一个宏来将数据从输入表单传输到存储表。
我已经制定了粗略的代码，并且可以运行。仅当我选择了目标工作表时。如果我尝试从包含表单的工作表中运行它，则会引发以下错误：
Run-time error '1004': Select method of Range class failed
但是，如果我从目标工作表中运行宏，它会完美执行。这是代码：

Sub ExpFormCharge()
    Dim pasteCell As Range
    Range("expenseTbl").ListObject.ListRows.Add AlwaysInsert:=False
    Range("ETBMARKER").Offset(-1, 0).Select
    Range("ExpFormBackend").Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

后端表由另一个宏填充，然后将该表复制并粘贴到费用表（存储表）的新行中。调试选项突出显示的行是这一行：
Range("ETBMARKER").Offset(-1, 0).Select
那是指一个标记，存储表的总行偏移一，以便选择表的底部行。无论是从 vba 窗口还是从宏选择窗格执行代码，只要选择了目标工作表以外的工作表，就会发生此错误。

4

1 回答 1

1

某些操作只能在活动工作表上执行。

添加

Range("ETBMARKER").Parent.Activate

在抛出错误的行之前。

顺便说一句，但是你 Dim 一个你从不使用的变量，导致错误的行没有做任何事情——你在下一行复制了一个不同的范围。您可以删除这两行，除非此代码示例中未包含其他功能。

于 2012-11-22T04:32:54.150 回答