vba HTML保存为Excel,通过VBA将excel文件导出为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

理论上此过程中应保存当前的文件，保存副本当前工作簿导出为HTML网站与当前时间戳(带有时间戳，忽略VBA)作为网页，关闭网页(说实话，我甚至不想打开)，然后回到原来的电子表格。 不幸的是问题是关闭部分：Excel打开网页(！)，然后我有永无止境的弹出问题“你想保存文件”Shed-9 .html？“

So我怎么能删除弹出，只是出口不开

编辑 我试图强制保存HTML副本通过将

ActBook.Save

ActBook.Close

关闭之前但是，这会导致错误？

“项目w ith相同的密钥已被添加“。如果那重要的工作簿有通过PowerQuery采取多个工作表和数据

2014-08-27

Yasskier

+0

你可能有一些其他潜艇干扰“关闭”事件。您的代码没有错误，除了：缺少newFileName的变量声明和不必要的部分(Set ActBook = ActiveWorkbook Workbooks.Open CurrentFile ActBook.Close) 检查并确保没有其他功能产生干扰。 如果你真的想摆脱屏幕消息试试这个 Application.DisplayAlerts = False

2014-08-27 22:44:28