vba - 通过 VBA 将 excel 文件导出为 HTML 会出现问题 - 永无休止的 "Want to save?"弹出窗口

Question

我正在尝试使用此代码将当前工作簿导出到具有当前时间戳的 HTML 网站

Private Sub btnSave_Click()
ActiveWorkbook.Save  'Save current file

Dim ActSheet As Worksheet
Dim ActBook As Workbook
Dim CurrentFile As String
Dim NewFileType As String
Dim NewFile As String

Application.ScreenUpdating = False    ' Prevents screen refreshing.

CurrentFile = ThisWorkbook.FullName     ' Remeber location of original file
NewFileType = "Web files File (*.HTML), *.html"   'Set file type
Newfilename = "Shed9-" & Format(CStr(Now), "yyyy-mm-dd_hh-mm") 'Save as timestamp

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

If NewFile <> "" And NewFile <> "False" Then
    ActiveWorkbook.SaveAs Filename:=NewFile, _
        FileFormat:=xlHtml


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

Application.ScreenUpdating = True

End Sub

理论上这个过程应该保存当前文件，保存副本(带有时间戳，忽略VBA)作为网页，关闭网页(说实话我什至不想打开)并返回到原始电子表格。不幸的是，问题出在结束部分:Excel 打开网页(!)，然后我不断弹出问题“您想保存文件“Shed-9 .html 吗？”

那么如何删除该弹出窗口并直接导出而不打开？

编辑我尝试在关闭之前强制保存 HTML 副本，方法是将

ActBook.Save
ActBook.Close

但这会导致错误:

“已添加具有相同键的项目”。如果这很重要，那么工作簿有多个工作表和通过 PowerQuery 获取的数据

编辑 (The original code came from here) - 原作者应获得他/她的荣誉

Answer 1

尝试:

ActBook.Close False

如果您以非 Excel 格式保存工作簿，它会询问您是否要再次保存该文件，并且不会失败。使用可选的“False”参数告诉 Excel 您要关闭而不保存。