如何提取与命令button相同的工作簿上的结果？

我正试图提取我的CheckTables代码在工作表Book3上的结果。 但是，由于命令button位于Book3.xlsm上，因此我得到了一个错误消息，它无法提取输出，因为Book3.xlsm已经打开，当我试图运行下面的代码时。 有没有什么办法可以像我的命令button一样在同一个工作簿上得到结果？ 非常感谢！

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。