|
▼みかん さん:
はじめまして
返事が遅くなりました。
私はこういうふうにかいたのですが、
fileMei = "単品.xls"
myFName = Application.GetSaveAsFilename
(fileMei, "CSVファイル(*.csv),*.csv,エクセルファイル(*.xls),*.xls")
これでもダイアログボックスの表示は、"単品.xls"
このようになります。
何か間違えているのでしょうか。
分かるようでしたら教えて下さい。
myFName = Application.GetSaveAsFilename
(fileMei, "CSVファイル(*.csv),*.csv,エクセルファイル(*.xls),*.xls")
▼みかん さん:
>▼WAKO さん:
>はじめまして、WAKOさん
>以下のソースで表示されないでしょうか?
>
>Public Sub test2()
> Dim myFName As String
> myFName = Application.GetSaveAsFilename("a.xls", "すべてのファイル(*.*),*.*")
>
>End Sub
>
>また、FileFilterを"(*.*)"とすると初期設定のファイル名には「”」が
>つくようです。
>
>無理やりやると・・・以下ソースで、できたっぽいですけど…お勧めしません・・・
>Public Sub test2()
> Dim myFName As String
> myFName = Application.GetSaveAsFilename("a.xls", "すべてのファイル(*.*),*.*",2)
>
>End Sub
|
|