无法关闭打开的工作簿对象

Question

我有一个宏，它可以打开一个带有测试数据的 Excel 文件，对数据执行一些简单的格式化，然后将数据保存为一个新文件（保持最初打开的文件不变）。我得到了一切工作，直到最后一行，我试图关闭我最初打开的工作簿。在尝试关闭原始工作簿之前有一些代码将不同的工作簿变量设置为第一个，然后打开并关闭它？我对代码在做什么有点困惑，但它会关闭用户刚刚保存的新文件，并让最初打开的原始数据文件保持打开状态。下面是我的代码；有人可以更好地解释保存和关闭工作簿时发生的情况吗？

Sub Main()
'
'

'
'Define variables
Dim wBook As Workbook
Dim sBook As String
Dim ActSheet As Worksheet
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFileType As String
Dim NewFile As String

'Get workbook filepath
sBook = Application.GetOpenFilename()

If sBook = "False" Then
    End
End If

'Open Workbook
Set wBook = Workbooks.Open(sBook)

'Unrelated formatting occurs

'Save workbook as new file
Application.ScreenUpdating = False    ' Prevents screen refreshing.

CurrentFile = wBook.FullName

NewFileType = "Excel Files 2007 (*.xlsx), *.xlsx,"

NewFile = Application.GetSaveAsFilename( _
    InitialFileName:=NewFileName, _
    fileFilter:=NewFileType)

If NewFile <> "" And NewFile <> "False" Then
    wBook.SaveAs Filename:=NewFile, _
        FileFormat:=xlOpenXMLWorkbook, _
        Password:="", _
        WriteResPassword:="", _
        ReadOnlyRecommended:=False, _
        CreateBackup:=False

    Set ActBook = wBook
    Workbooks.Open CurrentFile
    ActBook.Close
End If

Application.ScreenUpdating = True

wBook.Close

End Sub

Answer 1

当您 .SaveAs 时，wBook 对象成为“新文件”。你可以关闭它并且没问题。如果您想创建一个新对象而保持原始对象不变，您将使用 Workbook.SaveAsCopy 代替。

那么，您的代码中发生了什么：

wBook.SaveAs 

使wBook成为“新文件”，“旧文件自动关闭”

Set ActBook = wBook 

基本上是创建两个“新文件”对象。 然后使用

打开旧文件

Workbooks.Open CurrentFile

然后，

ActBook.Close 

关闭 wBook 和 ActBook。

wBook.Close 

尝试关闭已关闭的工作簿并引发错误。 （因为它和 ActBook 一样。）

我相信您的意图如下：

Sub Main()
'
'

'
'Define variables
Dim wBook As Workbook
Dim sBook As String
Dim ActSheet As Worksheet
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFileType As String
Dim NewFile As String

'Get workbook filepath
sBook = Application.GetOpenFilename()

If sBook = "False" Then
    End
End If

'Open Workbook
Set wBook = Workbooks.Open(sBook)

'Unrelated formatting occurs

'Save workbook as new file
Application.ScreenUpdating = False    ' Prevents screen refreshing.

CurrentFile = wBook.FullName

NewFileType = "Excel Files 2007 (*.xlsx), *.xlsx,"

NewFile = Application.GetSaveAsFilename( _
    InitialFileName:=NewFileName, _
    fileFilter:=NewFileType)

If NewFile <> "" And NewFile <> "False" Then
    wBook.SaveAs Filename:=NewFile, _
        FileFormat:=xlOpenXMLWorkbook, _
        Password:="", _
        WriteResPassword:="", _
        ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ' wBook is now the "new file" at this point and the "old file" has been closed. 
End If

Application.ScreenUpdating = True

wBook.Close ' Close the new file.

End Sub