Почему Excel 365 VBA не может сохранить мой PDF-файл? - PullRequest
Новая
       18

Почему Excel 365 VBA не может сохранить мой PDF-файл?

0 голосов
/ 14 ноября 2018


Я думаю, что теперь я попробовал почти все, чтобы сохранить файл PDF с Excel vba.

Это мой фактический код: 

Dim pdfFile As String

If excel2016 Then
    pdfFile = Application.DefaultFilePath & "/Report_" & year & month & "_" & Replace(name, " ", "_") & ".pdf"
Else
    pdfFile = ActiveWorkbook.Path & Application.PathSeparator & "Report_" & year & month & "_" & Replace(name, " ", "_") & ".pdf"
End If

wsOutputOne.ExportAsFixedFormat Type:=xlTypePDF, fileName:=pdfFile

Я знаю, что Excel 2016 создает«контейнер» и сохранение файлов под ~/Library/Containers/com.microsoft.Excel/Data/Documents/, но почему этот код не работает с Excel 365?

Или что может сделать друг с Excel 365 для сохранения этого сгенерированного файла PDF?
Поскольку вызов Application.DefaultFilePath ничего не возвращает на его компьютере ...

Может кто-нибудь помочьменя?

1 Ответ

0 голосов
/ 28 ноября 2018

Пожалуйста, попробуйте следующий код: 

Dim pdfFile As String

If excel2016 Then
  pdfFile = Application.DefaultFilePath & "/Report_" & year & month & "_" & Replace(name, " ", "_") & ".pdf"
Else
  pdfFile = Application.ActiveWorkbook.Path & Application.PathSeparator & "Report_" & year & month & "_" & Replace(name, " ", "_") & ".pdf"
End If

wsOutputOne.ExportAsFixedFormat Type:=xlTypePDF, fileName:=pdfFile
...