VBA。如何引用多个工作表？

Question

这是我的工作代码:

Set newwbk = Workboooks.Open(Newtext.Text)
Set newSheet = newwbk.Worksheets("Sheet1")
Set datawbk = Workboooks.Open(Datatext.Text)
Set dataSheet = datawbk.Worksheets("CAP", "RES")

我在第二行有一个错误。谁能帮我？

如何引用“两张 CAP 和 RES”？
我想要做的是将“datawbk”(有多个工作表)与另一个工作簿进行比较，比如“newwbk”(只有一个工作表)，然后例如如果它们在 D2 中具有相同的输入，则 D2 的整行(A2 , B2, C2, E2...) "newwbk"中将分别填入 "datawbk"A2, B2, C2 等中写入的内容。

Answer 1

使用 Set datasheet = Worksheets(Array("CAP", "RES"))如下例所示

Sub test()
    Dim sh As Worksheet, datasheet As Object
    Set datasheet = Worksheets(Array("CAP", "RES"))
    For Each sh In datasheet
        Debug.Print sh.Name
    Next sh
End Sub

输出