[[20130523170857]]　『エクセルのバージョンが変わったらVBAのプログラメx（SARA）　ページの最後に飛ぶ

『エクセルのバージョンが変わったらVBAのプログラムも変更必要？』（SARA）

　エクセルのバージョンが　2003から2010になってしまいました。
　下記のプログラムは、何か変更しなくてはいけないでしょうか？
　マクロボタンを押しても、名前を付けて保存のウインドウの
　ファイル名に何も表示されないんです。

　Sub ファイル名に番号をつけて保存()

    Dim 既定ファイル名 As String
    Dim 保存ファイル名 As Variant
    既定ファイル名 = "特記仕様" & Range("I1") & ".xls"
    保存ファイル名 = Application.GetSaveAsFilename(既定ファイル名)
    If 保存ファイル名 = False Then
        MsgBox "保存は中止されました"
    Else
        ActiveWorkbook.SaveAs 保存ファイル名
    End If

　End Sub

　どうぞよろしくお願いします。

 変わったのは EXCEL だけでしょうか？
 OS が XP から 7 へ変わったりしていませんか？

 Filter Criteria と一致しないときに初期値が表示されないというバグという情報が
 ありました（MS のサイトではないので真偽のほどは不明ですが）。
http://dutchgemini.wordpress.com/2011/10/28/weird-bug-in-excels-application-getsaveasfilename-function/

 下記のように xls を指定してみてどうでしょうか。
    保存ファイル名 = Application.GetSaveAsFilename(InitialFileName:=既定ファイル名, FileFilter:="Excelファイル, *.xls")
 (Mook)

　Mookさま
　
　　ご指摘の通り OS も XP から 7 へ変わってしまっています。

　　教えていただいたとおり、xls を指定しましたら保存できるようになりました。
　　ありがとうございました。
　　

コメント返信：

[ 一覧(最新更新順) ]

[[20130523170857]] 『エクセルのバージョンが変わったらVBAのプログラメx（SARA） ページの最後に飛ぶ

[[20130523170857]]　『エクセルのバージョンが変わったらVBAのプログラメx（SARA）　ページの最後に飛ぶ