Question

我正在尝试编写一个将单元格范围选择导出为PDF的脚本。我写的代码如下：

Sub ExporttoPDF()

With Sheets("Results").Range("B10:J100")
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Users\Export.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End With

End Sub

每次运行脚本时，都会收到一条弹出消息，其中显示错误：＆＃34;运行时错误＆＃39; 1004＆＃39;：文档未保存。文档可能是打开的，或者在保存时可能遇到错误。＆＃34;

我在线研究并试图找到解决方案，但无法做到。你知道我可能做错了什么吗？谢谢。

Answer 1

我认为它与Excel有关，不允许写入该区域？我仍在寻找，但我能够通过改变路径让它发挥作用。

Sub ExporttoPDF()

With Sheets("Results").Range("B10:J100")
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Users\tjb1\Desktop\Export.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End With

End Sub

Answer 2

它不是最清晰的错误消息。最可能的原因是您对C:\Users文件夹具有写入权限。这通常仅限于管理员帐户。

我使用非管理员帐户测试了以下内容：

C：\用户\检验.pdf
C：\用户\ MY-用户名 \检验.pdf

第一个引发了您遇到的同样错误。第二个工作。

将Excel工作表范围导出为PDF错误

2 个答案: