导出为HTML然后Excel突然崩溃

Question

我使用以下代码从工作表中导出范围＆＃34; sourceSheet＆＃34;并将其保存为＆＃34; TargetSheet.html＆＃34;在同一个文件夹中。问题是我每次运行它后几秒钟保存文件或打开另一个Excel或执行其他操作，Excel崩溃！并且无法检索文件并返回一步。

Sub ExportHtml()
 Dim rng As Range

 file1 = ThisWorkbook.Path & "\" & "TargetSheet.html"

 Set rng = Sheets("SourceSheet").Range("A1:FP15000")

 ActiveWorkbook.PublishObjects.Add( _
 SourceType:=xlSourceRange, _
 Filename:=file1, _
 Sheet:=rng.Worksheet.Name, _
 Source:=rng.Address, _
 HtmlType:=xlHtmlStatic).Publish

End Sub

请告诉我此代码是否有问题/为什么运行此代码后会导致如此麻烦？