宏未在工作表中运行，Excel VBA

Question

我只是记录了这个宏并将其粘贴到其中一张纸的主代码中。 当我用我的代码运行它时，它会在此时抛出错误，我不知道为什么？

任何想法 ？

Sub pastem()
Windows("Main.xlsm").Activate
Sheets("Work").Select
Range("B6").Select        'error at this position
ActiveSheet.Paste 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Range("B6").Select
End Sub

谢谢

Answer 1

Range("B6")是不合格的引用。 标准模块中的不合格范围引用是指活动表。 工作表的类模块中的不合格范围引用是指由类模块表示的工作表。 由于您的代码不在“ Works”类模块中，因此您试图选择一个不在活动表上的范围，而您不能这样做。 这是一个不依赖特定工作表的示例。

Sub pastem()

    With Workbooks("Main.xlsm").Sheets("Work").Range("B6")
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With

    Application.CutCopyMode = False

End Sub