同时在两个工作簿上工作
如果我在两个工作簿上同时工作，例如“1.xlsb”和“2.xlsb”，我在“1.xlsb”上运行macros，同时我在macros中的“1.xlsb”中工作“2.xlsb”有一个声明ThisWorkbook.ActiveSheet
现在的问题是，当我运行macros，并在“2.xlsb”，所以在“1.xlsb”，而不是访问ThisWorkBook.ActiveSheet另一个工作簿，所以我可以做这个，所以我可以在另一个工作簿而macros正在另一个工作簿中在后台运行
Public Function GetBWTableInActiveSheet() As BoardwalkTable Dim ws As Worksheet Dim bwtResult As BoardwalkTable Set bwtResult = Nothing Set ws = ThisWorkbook.ActiveSheet For Each bwtResult In BoardwalkAPI.GetBoardwalkTables If StrComp(bwtResult.getrange.Parent.name, ws.name, vbTextCompare) = 0 Then Exit For End If Next bwtResult Set GetBWTableInActiveSheet = bwtResult Debug.Print bwtResult.getName End Function
您可以使用Workbooks("Name of your workbook").Sheets("Name of your sheet")