|
またこの件で、質問ですが本当に不思議な現象です。
myFName = Application.GetSaveAsFilename
(fileMei, "CSVファイル(*.csv),*.csv,エクセルファイル(*.xls),*.xls",2)
上記で解決したと思ったのですが、
fileMei = "単品.csv" の場合
ダイアログボックスの表示は、"単品.csv"になります。
(エクセルの場合はなりません、解決済です。)
なぜ、csvだとなるか分かる方いらっしゃいますか。
すいませんが、どなたか教えて下さい。
よろしくお願いします。
▼WAKO さん:
>すいません私が間違えていました。
>
>myFName = Application.GetSaveAsFilename
>(fileMei, "CSVファイル(*.csv),*.csv,エクセルファイル(*.xls),*.xls",2)
>こういうふうに書けばうまくいきました。
>
>ありがとうございます。
>
>
>▼WAKO さん:
>>▼みかん さん:
>>はじめまして
>>返事が遅くなりました。
>>
>>私はこういうふうにかいたのですが、
>>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
|
|