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

我正在尝试编写一个脚本，将单元格区域select导出为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 

每次运行脚本时，都会popup一条消息，显示错误消息：“运行时错误”1004“：文档未保存，文档可能已打开，或者保存时可能遇到错误。

我在网上进行了研究，并试图find一个解决scheme，但无法。 你有什么想法，我可能做错了什么？ 谢谢。

Answer 1

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

我使用非pipe理员帐户testing了以下内容：

1. C：\ Users \用户检验.pdf
2. C：\ Users \ My-Username \ Test.pdf

第一次提出了你遇到的同样的错误。 第二个工作。

Answer 2

我认为这与Excel不允许写入该区域有关？ 我仍在寻找，但我能够通过改变path来实现它。

 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