Excelブックにある各ワークシートを個別のPDFにする part1

該当のエクセルを開く

メニューバーの開発を押し、Visual Basicを押す

左上のVBA Project(エクセル名)を右クリック  挿入 > 標準モジュール

開いたタブに以下をコピペ


Sub ワークシートごとにPDFに変換()

Dim i As Long
For i = 1 To Worksheets.Count

Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=ThisWorkbook.Path & "¥" & _
Worksheets(i).Name, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

Next i

End Sub


貼り付けたら保存し、マクロをクリックしマクロ名を確認後、実行をおす
PDFがデスクトップ上に出力される

出力されたPDFの印刷サイズがおかしい時は、メニューバーのページレイアウトをクリックし余白や印刷の向き、サイズなどを色々変えてみる
全てのシートに反映される

タイトルとURLをコピーしました