Excel VBA - 关闭工作簿

Question

我正在将另一个工作簿中的工作表导入到我的当前工作簿中。在完成导入工作表后，我想关闭另一个工作簿。我使用的代码出现错误“运行时错误9：下标超出范围”。

Sub ImportWorksheet(MyPath As String, wbName As String)

ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:=MyPath
Sheets(1).Copy After:=Workbooks(ControlFile).Sheets(1)
ActiveSheet.Name = wbName
Workbooks(MyPath).Close SaveChanges:=False
Windows(ControlFile).Activate

End Sub

我也尝试使用。

Windows(MyPath).Activate
ActiveWorkbook.Close SaveChanges:=False

但我收到了相同的错误提示。

- DZZ

---

我猜 MyPath 是一个文件路径，在使用 Filename 打开工作簿时可以正常工作，但是在使用 Workbooks().Close 时，需要列出工作簿的 名称，而不是它的路径。尝试使用 Workbooks(Dir(MyPath)).Close SaveChanges:=False。 - dwirony

Answer 1

由于Workbooks对象的Open方法返回Workbook对象，因此您可以引用已打开的工作簿：

Sub ImportWorksheet(MyPath As String, wbName As String)
    ControlFile = ActiveWorkbook.Name
    With Workbooks.Open(Filename:=MyPath)
        .Sheets(1).Copy After:=Workbooks(ControlFile).Sheets(1)
        .Sheets(2).Name = wbName
        .Close SaveChanges:=False 
    End With 
End Sub

- DisplayName

Answer 2

我喜欢给变量赋值，这样可以消除任何混淆。

Sub ImportWorksheet(MyPath As String, wbName As String)


Dim Owb As Workbook
Dim Nwb As Workbook

Set Owb = ThisWorkbook
Set Nwb = Workbooks.Open(Filename:=MyPath)

Nwb.Sheets(1).Copy after:=Owb.Sheets(1)
Owb.Sheets(2).Name = wbName

Nwb.Close False
Owb.Activate

End Sub

- Scott Craner

Answer 3

Workbooks(strTargetFileName).Close SaveChanges:=False

- trs11