お客の注文書を、指定したフォルダーに自動で保存し、outlookに添付するVBAを作成しています。
保存するファイル名は、注文書に記載している“お客様名”+“納品日”+“保存した日付“＋“時間“の順番にしようと思い、
コマンドを作成しましたが、”納品日“の所(変数orderNouhinbiのところ)だけがどうしても上手くいきません。
注文書上では、“2023年２月２０日“と表示されていますが、
実際には2023/2/20になっている為、ファイル名では使用できない”/“が原因ではないかと思います。

ファイル名では“〜年〜月〜日”表示で大丈夫なので、そのコマンド教えて頂けないでしょうか？
又、難しいようなら、何か良い方法教えて頂けないでしょうか？
エクセルバージョンは2019です

宜しくお願い致します。
Sub SaveAndMailActiveSheet()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim strFile As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim orderName As String
    Dim orderNouhinbi As String
    
    
    
    ' 添付するシートを設定
     Set ws = ActiveSheet
     orderName = ws.Range("G10").Value
     orderNouhinbi = ws.Range("H14").Value

    ' 保存するパスとファイル名を設定
    strFile = "C:\Users\SH_USER004\Desktop\YSC\注文書_" & orderName & "_" & orderNouhinbi & "納品" & " " & Format(Date, "yyyy_MM_dd") & "_" & Format(Time, "hh-mm") & ".xlsx"
     

    ' 保存するシートを別のブックとして保存
    ws.Copy
    Set wb = ActiveWorkbook
    wb.SaveAs strFile

    ' Outlookを起動してメールを送信
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "example@yahoo.co.jp"
        .Subject = "件名"
        .Body = "本文"
        .Attachments.Add strFile
        .Display
    End With

    wb.Close
    ' Outlookの終了
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

こうかな？

＞strFile = "C:\Users\SH_USER004\Desktop\YSC\注文書_" & orderName & "_" & orderNouhinbi & "納品" & " " & Format(Date, "yyyy_MM_dd") & "_" & Format(Time, "hh-mm") & ".xlsx"
     ↓
  strFile = "C:\Users\SH_USER004\Desktop\YSC\注文書_" & orderName & "_" & Format(orderNouhinbi, "GGGEE年MM月DD日納品 ") & Format(Now, "yyyy_MM_dd_hh-mm") & ".xlsx"


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他