使用當前工作簿名稱將當前文件夾中的Excel保存爲PDF

嘗試將工作簿中的一組工作表保存爲PDF格式，並使用工作簿名稱。使用當前工作簿名稱將當前文件夾中的Excel保存爲PDF

在記錄完所有步驟的宏後，回去嘗試用我在某個論壇的主題中發現的代碼替換代碼片段，但現在它不工作。

當前版本低於。我破了什麼？

SaveToPDF Macro 

Sheets(Array("AUDIT Info", "REVIEW", "FILES", "WARNINGS", "PURGE", "NonBIM", _ 
    "Clashes", "ViewsManagement")).Select 
Sheets("AUDIT Info").Activate 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    ThisWorkbook.Path & "\" & ActiveWorkbook.Name _ 
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=True 
Sheets("AUDIT Info").Select

來源

2017-04-11 Joaquim Agostinho

嘗試下面的代碼：

Option Explicit 

Sub SaveSheetsasPDF() 

ThisWorkbook.Sheets(Array("AUDIT Info", "REVIEW", "FILES", "WARNINGS", "PURGE", "NonBIM", "Clashes", "ViewsManagement")).Select 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    ThisWorkbook.Path & "\" & ThisWorkbook.Name, _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, OpenAfterPublish:=True 

End Sub

來源

2017-04-11 11:56:29

它工作英寸非常感謝你。但創建的PDF包含[filename] .xlms.pdf擴展名。我該如何刪除「xlms」位？ –

剛剛添加。（1）） –

NameOfWorkbook = Left（ThisWorkbook.Name，它是。感謝您的幫助：） –

如果運行所需紙張的宏觀人之前會被選中，您將得到一個錯誤/激活..這就是爲什麼你需要添加的第一行片材（1）。選擇

，其中第一片材是不您的陣列

來源

2017-04-11 12:41:04 Artem

使用當前工作簿名稱將當前文件夾中的Excel保存爲PDF

回答

相關問題