exportasfixedformat后excel运行速度较慢

以下代码片段在Excel / Office 2007中运行:

If Dir(Filenamepath) <> "" Then 'don't overwrite the packing list if it exists Else PackList.ExportAsFixedFormat Type:=xlTypePDF, _ FileName:=Filenamepath, _ OpenAfterPublish:=False 'True End If 

这会循环多次,例如10次,以创build两个装箱单。 每当循环的ExportAsFixedFormat部分运行时,所有代码运行缓慢。

我已经运行了一个实验,只删除了许多现有PDF文件中的一个(在Filenamepath中)(这样代码将只input“export as PDF”循环一次)。 代码在创build一个PDF之前快速运行,然后慢慢地运行。 如果我不删除任何PDF文件,那么当代码运行时,不会input循环“导出为PDF”,代码永远不会变慢。

我努力了:

  Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual 

在我的代码的开始,但我的实验的结果保持不变,所以这似乎不是问题。

为什么ExportAsFixedFormat导致代码如此剧烈地变慢,以及可以做些什么呢?