如何在命令按钮的同一工作簿中提取结果？

Question

我正在尝试在工作表Book3上提取我的CheckTables代码的结果。但是，由于命令按钮位于Book3.xlsm上，因此当我尝试运行以下代码时，由于Book3.xlsm已打开，因此我收到一条错误消息，表明它无法提取输出。有没有什么办法可以在我的命令按钮上获得与同一工作簿上的结果？非常感谢！

Private Sub CommandButton1_Click()

Set myWorkbook1 = Workbooks.Open("C:\docs\Book1.xlsx")
Set myWorkbook2 = Workbooks.Open("C:\docs\Book2.xlsx")
Set myWorkbook3 = Workbooks.Open("C:\docs\Book3.xlsm")

CheckTables myWorkbook1.Worksheets("Sheet1"), myWorkbook2.Worksheets("Sheet1"), myWorkbook3.Worksheets("Sheet1")
CheckTables myWorkbook1.Worksheets("Sheet2"), myWorkbook2.Worksheets("Sheet2"), myWorkbook3.Worksheets("Sheet2")

End Sub

Answer 1

你可以尝试：

Set myWorkbook3 = ThisWorkbook

老实说，在这种情况下，你不需要将它设置为对象;它已经是一个。

只需使用ThisWorkbook即可。您通常使用myWorkbook3的地方。