Я создаю несколько сотен отчетов в Excel и сохраняю их в формате PDF. Если я удалю процедуру сохранения в PDF, она будет проходить через все отчеты. Когда я добавляю подпрограмму обратно в нее, она становится очень ненадежной, иногда до 20, иногда до 60, и время от времени, хотя все 250.
Когда он выходит из строя, выдает сообщение об ошибке памяти, которое отображается в виде белого поля плана. Я нажимаю Cntrl-C, чтобы скопировать это, а затем вставляю его в блокнот, чтобы увидеть сообщение об ошибке, которое является ошибкой памяти.
Я также пытался сохранить отчет в формате Jpg, но у меня такая же проблема с памятью.
Размер создаваемых файлов PDF составляет около 186 КБ, а файла Excel - 466 КБ.
Использование Office 365 64-битной и иметь 16 ГБ оперативной памяти на моем компьютере и более 600 ГБ свободного дискового пространства.
Ниже приведен код, который я использую для создания PDF-файлов, какие-либо предложения?
Я просматривал другие посты на эту тему, но не видел ответа, и им было всего несколько лет.
Sub CreatePDFSave(sFileName As String)
Dim sPathFile As String
Dim wks As Worksheet
Set wks = Sheet5
sPathFile = Environ$("UserProfile") & "\Documents\"
sFileName = sPathFile & sFileName
wks.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sFileName & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Set wks = Nothing
End Sub