打开多个工作簿时如何在特定工作簿中引用正确的工作表？

Question

Sub debug_tester()

    Dim A As Workbook
    Set A = Workbooks.Open("D:\a.xlsm")

    Dim B As Workbook
    Set B = Workbooks.Open("D:\b.xlsm")

    A.Sheets("sheet1_in_test").range("A1").Value = "test" 'pop out "subscript out of range" on this line

End Sub

And "sheet1_in_test" does exist in A. If I change it to number (ie sheet(1)) B is the one changed.

Edit: Correct the typos. Workbook A has one sheet named "sheet1_in_test". Workbook B has one sheet named "sheet1".

Edit: Thanks sancho.s ! It seems like Workbook.Open cannot refer the workbook when the sub located on it. Using Set A = ThisWorkbook seems work, too. I'm wondering why is that.

Answer 1

This sub , located in a separate workbook, performs as intended

Sub open_test()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Set wb1 = Workbooks.Open("C:\Users\user1\Documents\a.xlsx")
    Set wb2 = Workbooks.Open("C:\Users\user1\Documents\b.xlsx")    
    wb1.Sheets("Hoja1").Range("A1").Value = "test"
    wb2.Sheets(1).Range("A1").Value = "test2"
End Sub

Try reproducing this.

Answer 2

Using Workbooks.Open() makes the opened workbook the active workbook. That's why using sheet(1) goes into workbook B. It's the last workbook opened and therefore the active workbook. Use Workbook.Activate to make A the active workbook.

Sub debug_tester()

    Dim A As Workbook
    Set A = Workbooks.Open("D:\a.xlsm")

    Dim B As Workbook
    Set B = Workbooks.Open("D:\b.xlsm")

    A.Activate
    A.Sheets("sheet1_in_test").range("A1").Value = "test" 

End Sub

If you still get the "subscript out of range" message, the "sheet1_in_test" worksheet is not in the A workbook. Check the spelling between the code and the worksheet name. This assumes that you are running the code from a 3rd workbook.

If you are running this code from workbook A, Excel will close the open instance of A and reopen it but the code won't be running. In that case you can use

Set A = ThisWorkbook

Or if the code is in workbook B use

Set B = ThisWorkbook