【VBA】ExcelのPDF化の一括

Question

この度、Excel2019に変わったのですが下記のコードが使えなくなりました。
拾ってきたコードなので、ＶＢＡに関しては初心者です。
こちらのコートが2019版のExcelには利用できないのでしょうか？
ちなみに、ＰＤＦ化したいExcelの拡張子はxlsmなので、
ExFileName = Dir(ExcelFilePath & ".xls?")
を下記に変更してみました。
ExFileName = Dir(ExcelFilePath & ".xlsm?")

VBA実行後に、「PDFファイルに一括変換しました」というポップアップは表示されるのですが、PDFは作られておりません。

        
    Dim Button, T, I, L As Integer
    Dim OpenExcelFileName, ExcelFileName, ExcelFilePath, ExFileName As String
     
    Application.DisplayAlerts = False  '確認メッセージを無効化します。
    
    
    Button = MsgBox("EXCEファイルの一括PDF変を行いますか？", vbYesNo + vbQuestion, "確認")
    If Button = vbYes Then
            
            OpenExcelFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")  'ダイアログを表示取り込むフォルダーにあるファイルを選択します。
            
            If OpenExcelFileName <> "False" Then
                ExcelFileName = Dir(OpenExcelFileName)  '指定したファイルパスからファイル名を代入します。
                ExcelFilePath = Replace(OpenExcelFileName, ExcelFileName, "")  '指定したファイルパスを指定します。（ファイルパスからファイル名を取り除く）
                        
                MsgBox ExcelFilePath & "この選択フォルダからPDFに変換します。"
            Else
                MsgBox "キャンセルされました"
                Exit Sub  'キャンセルでプログラムを終了します。
                
            End If
        
            ExFileName = Dir(ExcelFilePath & "*.xls?")  '指定したフォルダーから一件目のEXCELファイルを指定します。
 
            
            Do While ExFileName <> ""    '読み込むファイルがなくなるまで繰り返す。
                
                
                Workbooks.Open FileName:=ExcelFilePath & ExFileName, ReadOnly:=True, UpdateLinks:=0  'EXCELファイルを読み取り専用で読み込む
                ExFileName = Left(ExFileName, InStr(ExFileName, ".") - 1) ' ファイル名から拡張子を取り除く（.xls?）
                ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ExcelFilePath & ExFileName  '選択したシートをPDF出力
            
            ActiveWindow.Close  '読み込んだファイルを閉じます。
            
            ExFileName = Dir() '次のファイルを指定する。

            Loop
            
            MsgBox "PDFファイルに一括変換しました。"
    Else
        MsgBox "処理を中断します"
    End If
    
    Application.DisplayAlerts = True  '確認メッセージを有効化します。
    
End Sub
コード

Answer 1

ExFileName = Dir(ExcelFilePath & "*.xlsm?")
ここのワイルドカードの?は任意の1文字なので.xlsmを指定したければ?はいらないと思います。
?があるので1件も引っかかっていない可能性があります。

Answer 2

ExcelからPDFに変換する場合には、ドキュメントの変換にふさわしい.NETプラットフォーム用コンポーネント、Spire.XLS for .NETをおすすめします。これは無料で使用でき、簡単かつ便利な強力なツールとして、変換に対することは潔く解決できます。VBAのコードは以下のようになります、ご参照してください。

Namespace Convert
	Class Program
		Private Shared Sub Main(args As String())
			Dim workbook As New Workbook()
			workbook.LoadFromFile("test.xlsx", ExcelVersion.Version2010)
			' ワークブックに新しいシートを追加する
			workbook.Worksheets.Add("newsheet")
			'選択された範囲を新しいシートにコピーする
			workbook.Worksheets(0).Range("A1:H11").Copy(workbook.Worksheets(1).Range("A1:H11"))
			'新しいシートをPDFに変換する
			workbook.Worksheets(1).SaveToPdf("result.pdf", Spire.Xls.FileFormat.PDF)

		End Sub

	End Class
End Namespace

お助けになると幸いです(笑)

Answer 3

Excel2019の環境がないので調べたところ、以下でPDFができているという話を見つけました。

https://teratail.com/questions/281146

なので、バージョンの問題である可能性は低い気がします。
コードを見る限り，選択したファイルと同じフォルダにPDFファイルができるようですが、その認識であっていますか？

Comments

[sh444]

保存先は、同じファイル内でも新規のPDFフォルダの作成でもどちらでも大丈夫です。
１ページのみPDF化ではなく、選択しているタブすべてのPDF化できれば助かります。

[hex309]

私の回答がわかりにくかったようで申し訳ありません。
ご提示頂いたコードは、2019バージョンでも動作するようなので、PDFファイルはできていると考えられます。
そこで、保存先を勘違いされているのでは、と考えて「選択したファイルと同じフォルダにPDFファイルができるようですが、その認識であっていますか？」と書かせていただきました。
PDFファイルができないことは、間違いないのですね。
PDFファイルが作成できるかどうか、次のコードで確認できますか？
Private Sub PDFTest()
Dim ExcelFilePath As String
Dim ExFileName As String
ExcelFilePath = ThisWorkbook.Path
ExFileName = "\" & ThisWorkbook.Name

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ExcelFilePath & ExFileName '選択したシートをPDF出力
End Sub

このコードは、コードを記述下ブックと同じフォルダに、同じファイル名（拡張子が含まれてしまいますが、そこは勘弁を）でPDFファイルが作成できるか確認してみてください。

実際にPDFファイル作成する部分は、ActiveWorkbookがThisWorkbookｎなっただけなので、これでPDFが出力されれば、PDFを作ること自体はできる、と考えられるかと。