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 ...）將分別寫入「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 

輸出