导出为HTML，然后Excel突然崩溃

我正在使用下面的代码从工作表“sourceSheet”导出范围并将其保存为“TargetSheet.html”在同一个文件夹中。 每次我运行它时，我保存文件或打开另一个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 

请让我知道如果这个代码是错误的/为什么运行这个代码之后导致这么多麻烦？