CHAT GPTでVBAコード生成してみた

Option Explicit

Sub SaveAsPDFAndXLSM()
    Dim fileName As String
    Dim filePath As String
    Dim wb As Workbook
    Dim invoiceNumber As String
    Dim companyName As String
    Dim hyphenIndex As Integer
    Dim underscore As String
    Dim oneDrivePath As String
    
    ' ファイル名の作成
    invoiceNumber = ThisWorkbook.Sheets("請求書").Range("P5").Value
    companyName = ThisWorkbook.Sheets("請求書").Range("B6").Value
    hyphenIndex = 6
    underscore = "_"
    fileName = Left(invoiceNumber, hyphenIndex) & "-" & Mid(invoiceNumber, hyphenIndex + 1, 6) & underscore & companyName
    
    ' ファイルの保存先のフォルダを決定する
    oneDrivePath = Environ("OneDrive")
    If oneDrivePath <> "" Then
        filePath = oneDrivePath & "\" & fileName
    Else
        filePath = ThisWorkbook.Path & "\" & fileName
    End If
   Debug.Print filePath
    ' ファイルの保存
    Set wb = Workbooks.Add
    ThisWorkbook.Sheets.Copy Before:=wb.Sheets(1)
    wb.Sheets.Select Replace:=False
    Application.DisplayAlerts = False
    wb.SaveAs filePath & ".xlsm", FileFormat:=52 ' xlOpenXMLWorkbookMacroEnabled
    wb.Close
    
    ThisWorkbook.Sheets("請求書").Range("A1:R56").ExportAsFixedFormat Type:=xlTypePDF, fileName:=filePath & ".pdf"
    
    ' エラー処理
    If Err <> 0 Then
        MsgBox "ファイルの保存に失敗しました。", vbCritical, "エラー"
        Exit Sub
    End If
    
    MsgBox filePath & "に" & vbCrLf & "正常にファイルを保存しました。", vbInformation, "完了"
End Sub