現在のワークブック名を使用して現在のフォルダにPDFとして保存Excel

ワークブックからPDF形式へのシートのセットを同じフォルダに保存し、ワークブック名を使用しようとしています。現在のワークブック名を使用して現在のフォルダにPDFとして保存Excel

すべての手順でマクロを記録した後、このフォーラムのスレッドの一部で見つかったものでコードの一部を置き換えようとしましたが、現在は機能しません。

現在のバージョンは以下のとおりです。何が壊れましたか？

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

以下のコード試してみてください：あなたが最初の行を追加する必要がある理由に必要なシートの1つのマクロを実行する前に、選択される場合は、エラーになります

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

ではありません

を.select。どうもありがとうございました。しかし、作成されたPDFには[filename] .xlms.pdf拡張子が含まれています。どうすれば "xlms"ビットを削除できますか？ –

ちょうどそれが加えられました。 Dim NameOfWorkbook NameOfWorkbook = Left（ThisWorkbook.Name、（InStrRev（ThisWorkbook.Name、 "。"、-1、vbTextCompare） - ）） –

はい。そうです。ご協力ありがとうございました：） –

は/ ..活性化したことですシート（1）は、最初のシートはそれが作動しているあなたの配列

出典

2017-04-11 12:41:04 Artem

現在のワークブック名​​を使用して現在のフォルダにPDFとして保存Excel

答えて

関連する問題

現在のワークブック名を使用して現在のフォルダにPDFとして保存Excel