ExcelVBA～Excelデータを指定したファイルにPDF出力～

1. 概要

Excel VBA を使用して、指定したシートを任意のフォルダに保存します。
Excelファイルとして保存する方法とPDFとして保存する方法の両方を説明します。

2. 必要な準備

Excel VBA の有効化
- Excel のオプションで、「マクロを含むファイルの実行を許可」を有効にしてください。
- マクロ有効ブックとして保存するのも忘れずに！
保存するシートの作成
- 保存したいデータを含むシートを事前に準備してください。
- シート名を確認し、コードで指定します。
保存先フォルダの準備
- 保存したいフォルダを事前に作成してください。その時にパスも確認して下さい。

3. 実行方法

以下のVBAコードを利用して、指定したシートをExcelファイルおよびPDFとして保存します。

Excelファイルとして保存するコード

Sub Excelファイルを指定フォルダーに保存()
    Dim ws As Worksheet
    Dim folderPath As String
    Dim fileName As String
    
    ' 保存するシートの指定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 保存するシート名を指定
    
    ' 保存先フォルダーのパス
    folderPath = "任意のパス" ' 保存したいフォルダーを入力
    
    ' 保存ファイル名
    fileName = ws.Name & ".xlsx"
    
    ' 保存操作
    ws.Copy
    ActiveWorkbook.SaveAs folderPath & fileName, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close SaveChanges:=False
    
    MsgBox "シートをExcelとして保存しました: " & folderPath & fileName, vbInformation
End Sub

PDFファイルとして保存するコード

Sub PDFを指定フォルダーに保存()
    Dim ws As Worksheet
    Dim folderPath As String
    Dim fileName As String

    ' 保存するシートの指定
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 保存するシート名を指定

    ' 保存先フォルダーのパス
    folderPath = "任意のパス" ' 保存したいフォルダーを入力

    ' 保存ファイル名
    fileName = ws.Name & ".pdf"

    ' PDFの保存操作
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=folderPath & fileName, Quality:=xlQualityStandard

    MsgBox "シートをPDFとして保存しました: " & folderPath & fileName, vbInformation
End Sub