为什么 Excel 365 vba 不能保存我的 pdf 文件？

Question

我想现在我尝试了几乎所有方法来使用 Excel vba 保存 pdf 文件。

这是我的实际代码：

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的调用在他的机器上没有返回任何东西......

有人可以帮助我吗？

Answer 1

请尝试以下代码：

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