VBAで業務を自動化！日報・請求書を1クリックで作成する方法

Option Explicit

Sub CreateAndExportInvoicePDF()
    '--- 変数宣言 ---
    Dim wsInput As Worksheet
    Dim wsTemplate As Worksheet
    Dim customerName As String
    Dim invoiceDate As String
    Dim savePath As String
    Dim fileName As String
    Dim pdfFullPath As String

    '--- シート設定 ---
    Set wsInput = ThisWorkbook.Sheets("見積書")
    Set wsTemplate = ThisWorkbook.Sheets("請求書")

    '--- データ取得 ---
    customerName = wsInput.Range("B8").Value ' 顧客名
    invoiceDate = wsInput.Range("O1").Value ' 請求日

    If customerName = "" Or invoiceDate = "" Then
        MsgBox "顧客名と請求日を入力してください。", vbExclamation
        Exit Sub
    End If

    '--- テンプレートへ転記 ---
    With wsTemplate
        .Range("B8").Value = customerName
        .Range("O1").Value = invoiceDate
        ' 必要に応じて他の項目も追加
    End With

    '--- 保存先フォルダの作成 ---
    savePath = ThisWorkbook.Path & "\請求書PDF\"
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If

    '--- ファイル名作成 ---
    invoiceDate = Replace(invoiceDate, "/", "")
    fileName = "請求書_" & customerName & "_" & invoiceDate & ".pdf"
    pdfFullPath = savePath & fileName

    '--- PDFとしてエクスポート ---
    With wsTemplate
        .PageSetup.Orientation = xlPortrait
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1
        .ExportAsFixedFormat Type:=xlTypePDF, fileName:=pdfFullPath, Quality:=xlQualityStandard
    End With

    '--- 完了メッセージ ---
    MsgBox "請求書をPDF保存しました：" & vbCrLf & pdfFullPath, vbInformation
End Sub