将Excel工作簿的单独工作表另存为PDF

Question

我的代码会将工作簿中的所有工作表保存到桌面上的特定文件夹中，这样可行，但是当我将保存目标更改为网络驱动器中的文件夹时，代码停止工作。没有出现错误，但文件未保存在文件夹中。

这是我的代码：

For Each ws In ActiveWorkbook.Worksheets
    strPDFName = ws.Name
    strDir = "SAVEFOLDER"
    ChDir strDir
    fileSaveName = ws.Name
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    Next ws

Answer 1

为什么使用ChDir代替呢？

fileSaveName = strDir & "\" & ws.Name

ChDir将更改您的工作目录，但您真正想要的是通过连接目录和文件名来指定pdf文件的完整路径（我在它们之间添加了反斜杠，因为我假设您的{{1最后没有一个）。