メインコンテンツへスキップ

Excelで複数のワークブックまたはワークシートを一度にPDFファイルに変換するにはどうすればよいですか?

他の人が変更できないように、ExcelファイルをPDFファイルに変換する必要がある場合があります。 Excelでは、名前を付けて保存機能を使用して、ExcelファイルをPDFファイルとして保存できます。 しかし、Excelで複数のブックを同時にPDFファイルに変換するにはどうすればよいでしょうか。


名前を付けて保存機能を使用して、複数のワークブックをPDFファイルにXNUMXつずつ変換します

通常、Excelの[名前を付けて保存]機能を使用すると、ブック全体をPDFファイルに保存できます。次のようにしてください。

1。 PDF形式に変換するワークブックを起動します。

2に設定します。 OK をクリックします。 File > 名前を付けて保存、そして 名前を付けて保存 ダイアログボックスで、新しいファイルを保存するフォルダを指定して、を選択してください PDF タイプとして保存 ドロップダウンリストをクリックしてから、 オプション ボタン、スクリーンショットを参照してください:

3。 次に、飛び出した オプション ダイアログボックス、チェック ワークブック全体、スクリーンショットを参照してください:

4。 そして、 OK > Save、このワークブック全体がPDFファイル形式で保存されています。

ヒント:複数のワークブックを変換する必要がある場合は、上記の手順を適用して、ワークブックをXNUMXつずつPDFファイルに保存してください。

複数のワークブックをVBAコードを含むPDFファイルに一度に変換する

何百ものExcelファイルを変換する必要がある場合、上記の方法は面倒です。ここでは、複数のワークブックを一度にPDFファイルに変換するためのVBAコードについて説明します。次の手順を実行してください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:複数のワークブックを一度にPDFファイルに変換します

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、ウィンドウが表示されます。変換するワークブックを含むフォルダーを選択してください。スクリーンショットを参照してください。

4。 次に、をクリックします OK、別のウィンドウが表示されます。新しいPDFファイルを出力するフォルダパスを選択してください。スクリーンショットを参照してください。

5。 そして、クリック OK、変換が完了したら、指定したフォルダーに移動して、変換された結果をプレビューできます。スクリーンショットを参照してください。


強力な機能で複数のワークブックをPDFファイルに変換する

あなたが持っている場合 Kutools for Excelそのと フォーマット変換 ユーティリティを使用すると、複数のワークブックを一度にPDFファイルにすばやく変換できます。

ヒント:これを適用する フォーマット変換 機能、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツールズプラス > ワークブック > フォーマット変換、スクリーンショットを参照してください:

2。 また、変換するブックを閉じる必要があることを通知するプロンプトボックスが表示されます。

3に設定します。 OK をクリックします。 OK、その後、 FileFormatコンバータ ダイアログで、次のオプションを指定します。

  • タイプを変換する ドロップダウンリスト、選択 ExcelワークブックからPDFへ;
  • 次に、をクリックします。 Add 変換するExcelファイルを追加するボタンをクリックすると、必要に応じてコンピューターディスクまたはOneDriveからブックを追加できます。 

4。 変換するワークブックを挿入した後も、 ファイル形式コンバータ ダイアログボックスをクリックしてください ボタンをクリックして、変換されたファイルを出力するXNUMXつのフォルダーパスを選択し、ダイアログボックスの下部で必要な操作を指定します。スクリーンショットを参照してください。

ノート:上記のダイアログボックスで:
  • サブフォルダー内のブックも変換する必要がある場合は、 フォルダを追加するときにサブフォルダを含める チェックボックス;
  • 変換後に元のファイルを削除したい場合は、 変換後にソースファイルを削除する ボックス;
  • 元のファイルの変更日を保持したい場合は、 元のファイルの変更日を保持する ボックス;
  • ファイルのディレクトリ構造は、 ファイルのディレクトリ構造は、変換時に保持されます ボックス;

5。 次に、をクリックします OK 変換を開始するには、指定したすべてのExcelファイルがPDFファイルに変換されたら、指定したフォルダーに移動して、変換された結果をプレビューできます。スクリーンショットを参照してください。


ワークブックから複数のワークシートをVBAコードで個別のPDFファイルに変換します

場合によっては、ワークブックの各ワークシートを個別のPDFファイルに変換したいことがあります。ワークブックにシートがたくさんある場合は、以下のVBAコードを使用すると、各ワークシートを一度にPDFファイルとして保存できます。

1。 変換するブックを開き、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:ワークブックから複数のワークシートを個別のPDFファイルに変換します

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3。 次に、を押します F5 このコードを実行するためのキーを押すと、ウィンドウが表示されます。変換されたPDFファイルを見つけるためのフォルダーパスを選択してください。スクリーンショットを参照してください。

4。 次に、をクリックします。 OK ボタンをクリックすると、現在のワークブック内のすべてのワークシートが個別にPDFファイルに変換されています。スクリーンショットを参照してください。


便利な機能を使用して、ワークブックから複数のワークシートを個別のPDFファイルに変換します

Kutools for Excel 便利な機能もサポートしています- 分割ワークブック、この機能を使用すると、ワークブック内に複数のワークシートを保存して、必要に応じてExcelファイル、Txtファイル、CSVファイル、PDFファイルを分離できます。

ヒント:これを適用する 分割ワークブック 機能、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。

インストールした後 Kutools for Excel、次のようにしてください。

1。 各シートをPDFファイルとして保存するブックを開き、[ クツールプラス > ワークブック > 分割ワークブック、スクリーンショットを参照してください:

2。 の中に 分割ワークブック ダイアログボックスで、保存するシートにチェックを入れてから、 PDF(* .pdf) タイプとして保存 ドロップダウンリストをクリックして、 スプリット ボタン、で フォルダを選択してください ウィンドウで、変換されたファイルを置くためのフォルダを指定します。スクリーンショットを参照してください。

3。 次に、現在のワークブックで選択したすべてのワークシートが個別にPDFファイルに保存されています。スクリーンショットを参照してください。


より相対的な記事:

  • Excelで複数のXlsファイルをXlsxファイルに変換する
  • 古いxlsExcelファイルを新しいxlsxファイルに変換するには、Excelで[名前を付けて保存]機能を適用できますが、変換する必要のあるxlsファイルが複数ある場合、このタスクをすばやく簡単に処理するにはどうすればよいでしょうか。
  • すべてのワークシートを値としてのみ保存する
  • 複数の数式を含むワークブックがある場合は、このファイルを他のユーザーに配布する必要があります。数式は表示せず、値のみを表示します。 通常、データを値としてのみコピーして貼り付けることで、ワークシートを値としてすばやく保存できます。 しかし、XNUMXつずつコピーして貼り付けることなく、すべてのワークシートを値としてのみ保存するにはどうすればよいでしょうか。
  • アクティブなワークシートをPDFファイルとして保存するコマンドボタン
  • Microsoft Excelで作業しているときに、アクティブなワークシートをPDFファイルとして保存する際に問題が発生する場合があります。 この記事では、コマンドボタンを使用してアクティブなワークシートをVBAコード付きのPDFファイルとして保存する方法を学習できます。 また、アクティブなワークブックの範囲または各ワークシートを個別のPDFファイルとして保存する場合も、この記事が役立ちます。
  • 大きなテーブルを複数の小さなテーブルに分割する
  • 複数の列と数百または数千行のデータを含む大きなワークシートがある場合、次の結果を得るために、列の値または行数に基づいて、この大きなテーブルを複数の小さなテーブルに分割します。 Excelでこのタスクをどのように処理できますか?
  • ワークブックを分割してExcelファイルを分離する
  • 大きなワークブックを分割してExcelファイルを分離し、ワークブックの各ワークシートを個別のExcelファイルとして保存する必要がある場合があります。 たとえば、ブックを複数の個別のExcelファイルに分割し、各ファイルを別の人に渡して処理することができます。 そうすることで、特定の人に特定のデータを処理させ、データを安全に保つことができます。 この記事では、大きなワークブックを分割して、各ワークシートに基づいてExcelファイルを分離する方法を紹介します。

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations