方法“另存為對象” _工作簿失敗

Question

我的excel macro “另存為” PDF以及將其保存為當前CSV格式時遇到問題

這是給我調試器中的問題的行

 ChDir "C:\Users\Owner\Google Drive\Lips\PDFs" <br>
 ActiveWorkbook.SaveAs Filename:=".pdf", FileFormat:= _
 xlPDF

提前致謝！

Answer 1

您需要ExportAsFixedFormat方法：

Dim sPath as String, sFile as String
sPath = "C:\Users\Owner\Google Drive\Lips\PDFs\" 'this last backslash is necessary
sFile = Range("A1").Value & ".pdf"
sPath = sPath & sFile

'change other parameters as needed (can also use 'ActiveSheet` for just a given sheet
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= sPath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= True

Answer 2

您試圖將工作簿另存為PDF而不是工作表。 要將當前工作表導出為PDF，必須使用導出而不是保存命令：

ActiveSheet.ExportAsFixedFormat FileName:="MyFile.pdf" Type:=xlTypePDF

除此之外，問題可能在於您直接將其保存到Google雲端硬盤。 當它具有Windows資源管理器集成時，您可能無法使用標准保存操作將其保存到其中。

一個快速的測試將是嘗試手動執行此操作。 單擊“文件”>“另存為”，查看是否可以（通過文件夾瀏覽器 ） 瀏覽到此位置並成功保存。 如果Google雲端硬盤僅可用作“位置”，則您可能無法直接通過宏將其保存。 如果是這種情況，您可以嘗試使用此腳本來嘗試啟用該功能，但我自己尚未嘗試過，並且不確定是否可以解決您的問題。