Excel 宏 - 导出为 PDF

Question

我有一个工作簿，其中包含许多宏，可以在保存工作簿的同一位置将各种工作表导出为 pdf。

我的问题是，如果工作簿保存在桌面上的文件夹中，那么 PDF 就可以生成。

当工作簿保存在网络位置时，不会生成 pdf。以下是宏的示例：

Sub PDF_CStmtP()

    Application.ScreenUpdating = False

    ThisWorkbook.Sheets(Array("C Stmt - P")).Select

    pdfname = fileSaveName
    ChDir ActiveWorkbook.Path & "\"
    fileSaveName = "Closing Statement (Purchase)"

     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

    Application.ScreenUpdating = True

    ActiveWorkbook.Sheets("Main Menu").Activate

    MsgBox "File Saved " & " " & fileSaveName
End Sub

Answer 1

您的问题是 ChDir 命令，请参阅此处了解说明：https://www.techonthenet.com/excel/formulas/chdir.php

其中重要的部分是“CHDIR 语句允许您更改当前驱动器上的当前目录。如​​果您需要更改驱动器，请先尝试使用 CHDRIVE 语句。”

当您尝试保存到网络驱动器时，您正在将驱动器号从 C:\ 更改为网络驱动器映射到的任何内容，在我的情况下是 U:\ 。

对代码的简单修复是将路径从 ChDir 移动到文件名中，因此您的代码应如下所示：

Sub PDF_CStmtP()

Application.ScreenUpdating = False

ThisWorkbook.Sheets(Array("C Stmt - P")).Select

pdfname = fileSaveName
'ChDir ActiveWorkbook.Path & "\"
fileSaveName = ActiveWorkbook.Path & "\" & "Closing Statement (Purchase)"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= fileSaveName, _ 
Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.ScreenUpdating = True

ActiveWorkbook.Sheets("Main Menu").Activate

MsgBox "File Saved " & " " & fileSaveName
End Sub

您可以进行一些其他编辑来清理它，但这将解决手头的问题。

**根据关于消息框的评论，您可以将代码更改为：

Sub PDF_CStmtP()

Application.ScreenUpdating = False

ThisWorkbook.Sheets(Array("C Stmt - P")).Select

pdfname = "Closing Statement (Purchase)"
'ChDir ActiveWorkbook.Path & "\"
fileSaveName = ActiveWorkbook.Path & "\" & pdfname

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= fileSaveName, _ 
Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.ScreenUpdating = True

ActiveWorkbook.Sheets("Main Menu").Activate

MsgBox "File Saved " & " " & pdfname
End Sub