Excel VBA SaveAs csv 返回到 xlsx

Question

我有一个简单的 Excel 表，我想将它保存为 CSV 文件（然后使用 Outlook 作为附件发送）。 完成后，我希望原始 Excel 工作表处于活动状态并关闭 CSV 文件。

这部分有效，但我似乎无法关闭 CSV 文件。如果我尝试，Excel 将终止。

子保存()

Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFile As String

CurrentFile = ThisWorkbook.FullName
NewFile = Application.DefaultFilePath & "\new.csv"

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=NewFile, FileFormat:=xlTextWindows
Application.DisplayAlerts = True

Set ActBook = ActiveWorkbook
Workbooks.Open CurrentFile          ' Make original file active
'   ActBook.Close                   ' This does not work, Excel terminates

End Sub

Answer 1

使用 SaveCopyAs 方法： https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbook-savecopyas-method-excel

SaveCopyAs 方法允许您指定完整的文件路径和文件类型，所以从它开始。

当您执行 Outlook 位并使用将文件附加到 mailitem 方法时，您指定相同的完整文件路径并将其附加到发送。

以这种方式，初始工作簿始终是活动工作簿，您无需重新打开它。

在您当前的方法中，.Close 将终止 Excel，因为活动工作簿是当时打开的工作簿...