replaceでワイルドカードを使用して*[.]xls*を.pdfに変換したい

Question

エクセル拡張子が.xls / .xlsx / .xlsmなどが存在するため、これら対応するためにワイルドカードを使用して以下のようなreplaceを実装したのですが、動作してくれません。ワイルドカードの当て方等に問題はございますでしょうか？アドバイスを頂けますと幸いです。

Replace(reportName, "*[.]xls*", ".pdf")

Answer 1

Replace にワイルドカードは使えません。
別方法を考えましょう。
例えば、3回Replaceするとか。

Replace(Replace(Replace(reportName,".xlsx",".pdf"),".xlsm",".pdf"),".xls",".pdf")

注意点としては長い拡張子から変換していく必要があります。

あと、正規表現(RegExp)を使うとか。

Comments

[pegy]

ありがとうございます。存じ上げず、大変勉強になりました！
無事解決することができました！

Answer 2

こんなのも。

    With CreateObject("Scripting.FileSystemObject")
        Debug.Print IIf(.GetExtensionName(reportName) Like "xls*", .GetBaseName(reportName) & "." & "pdf", reportName)
    End With

Answer 3

こんな方法も。

If InStr(reportName, ".xls") > 0 Then
    Debug.Print Split(reportName, ".xls")(0) & ".pdf"
End If