|
みなさんこんにちは
すいませんまた別の質問なのですが、
myFName = Application.GetSaveAsFilename
(fileMei, "CSVファイル(*.csv),*.csv,エクセルファイル(*.xls),*.xls",2)
これでダイアログボックスを表示して、ファイル名を変更して
保存した場合、このファイル名を取得する方法は
わかりますでしょうか。
だれか分かりましたら教えて下さい。
▼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
|
|