VBA エクセルファイルの拡張子が".PDF"になる

Question

前提・実現したいこと

VBAにて操作を実行し、上書き保存をしようとしております。
操作の内容としては、処理当日の日付を入力してPDFにて保存する
という処理になります。

発生している問題・エラーメッセージ

何度かソースコードを触ったりしたのですが、結果的に上書き保存は
できず、手動でエクセルの保存マークを押しても保存されませんでした。

様々な箇所を確認したところ、本エクセルの拡張子が実行後xlsmからにPDFに
なっていることに気づきました。
色々調べてみたのですが、ソースコードのどの部分で拡張子変更に至ったのかが
不明な状態です。

該当のソースコード

    '日付
    With ActiveSheet
        .Range("Z6") = Format(Now, "ggg e 年")
        .Range("AD6") = Month(Date) & "月"
        .Range("AF6") = Day(Date) & "日"
    End With
    
    
    
    'PDF化
    Set ShellObject = CreateObject("WScript.Shell")
    Path = ShellObject.SpecialFolders("Desktop")
    new_name = Range("B5") & ".pdf"
    ActiveWorkbook.SaveAs Filename:=Path & "\" & new_name
    OpenAfterPublish = False
    
    '次回用
    ActiveSheet.Copy after:=ActiveSheet
    Range("AB4") = Worksheets.Count
    ActiveSheet.Name = Range("AB4")
    
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True

試したこと

OpenAfterPublish をfalseにするなど

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[Zuishin]

> new_name = Range("B5") & ".pdf"

これはどういう意味があってこうしているんですか？

[hiro_01]

PDFファイル作成時にセルB5の文字列をファイル名にしようとしているコードになります。
そこが原因なのでしょうか。。。

[Zuishin]

そのあとにこう書いています。

> ActiveWorkbook.SaveAs Filename:=Path & "\" & new_name

併せて、pdf という拡張子をつけて名前を付けて保存していることになります。

[hiro_01]

成程・・・
無事やりたいことができました。

ベストアンサーにさせて頂きたいので、できれば解決方法として投稿していただければと思います

[Zuishin]

何がやりたかったのか私にはわからないので、わかるよう回答して自己解決してください。

Answer 1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & "\" & new_name

Comments

[hiro_01]

ありがとうございました！

Answer 2

上の方のコメントで解決しそうですね。
今、手元に環境がないので、気づいたところだけ。
new_nameで拡張子を入れていますよ。

    new_name = Range("B5") & ".pdf"
    ActiveWorkbook.SaveAs Filename:=Path & "\" & new_name

Comments

[hiro_01]

ありがとうございました！