vbaのApplication.GetSaveAsFilename のInitialFilenameが表示されないとき

    sFileName = "ほげー.xlsm"
    Dim vntFileName As Variant
    vntFileName = Application.GetSaveAsFilename(sFileName)

として、InitialFilenameが表示されない場合がある。

どうもosとかexcelのバージョンに依存するっぽいけれど、解決できたっぽいのでメモ。

★FileFilterにInitialFilenameの拡張子を指定する★

たとえば、下記。

    sFileName = "ほげー.xlsm"

    Set FSO = CreateObject("Scripting.FileSystemObject")
    extName = FSO.GetExtensionName(sFileName)


    Dim vntFileName As Variant
    vntFileName = Application.GetSaveAsFilename(sFileName, "Excelファイル,*." & extName)