VBA 工作表自动化错误

Question

我在例程开始时有以下代码：

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet

Set ws1 = Workbooks.Open(ThisWorkbook.Sheets(1).[b4]).Sheets(1)
Set ws2 = Workbooks.Open(ThisWorkbook.Sheets(1).[b6]).Sheets(1)
Set ws3 = Workbooks.Open(ThisWorkbook.Sheets(1).[b8]).Sheets(1)

ws1.Move after:=ThisWorkbook.Sheets("MAIN")
ws2.Move after:=ThisWorkbook.Sheets("MAIN")
ws3.Move after:=ThisWorkbook.Sheets("MAIN")

'// remove redundant data
With ws1
    With .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)  
    ...

直到第二个 With 块，当我收到自动化错误时，一切似乎都很好：

运行时错误'-2147221080 (800401a8)'：

自动化错误

每个文件都是带有单个工作表的 CSV 文件，如果我在设置它们时查看本地窗口，它们会按我的预期显示为 Worksheet/Sheet1。然而，一旦我将工作表移动到ThisWorkbook，我注意到类型更改为Worksheet/Worksheet，并且我不再能够使用各自的变量引用ws1、ws2 或ws3。变量在本地窗口中显示为工作表对象，并且似乎设置为一个对象，但是当我展开变量的节点时，它只显示<No Variables>。

我以前在 VBA 中没有看到过这种行为，因此非常感谢任何解释或建议。

提前致谢。

Answer 1

问题是，当您从 1 张工作簿中移动工作表时，它会关闭工作簿。需要参考当前工作簿中的工作表，而不是打开的工作簿中的工作表。类似于下面的代码可以工作。

Sub tt()
Dim ws1 As Worksheet

Set ws1 = Workbooks.Open(ThisWorkbook.Sheets(1).[b1]).Sheets(1)
ws1_Name = ws1.Name

ws1.Move after:=ThisWorkbook.Sheets(1)

'// remove redundant data
With ThisWorkbook.Sheets(ws1_Name)
    With .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

    End With
End With
End Sub

您还可以将 ws1 重置为正确的工作表

Set ws1 = ThisWorkBook.Sheets(ws1_Name)