|
こんにちは。かみちゃん です。
>ファイル保存場所が全てのファイルになっていましたが
「ファイルの保存場所」ではなくて「ファイルの種類」ではないですか?
「ファイルを保存する」ダイアログボックスで、
「ファイル名」の既定値は、InitialFileName引数
「ファイルの種類」は、FileFilter引数
で指定します。
>できればExcelファイルで保存したいがどこが変更すればよいでしょうか?
そこで、次のようにしてみてください。
Asakiさんからのコメントも含めて、★印部分を修正します。
Private Sub 名前をつけて保存ダイアログボックスを表示してファイル名を取得する()
Dim パス As Variant
'★
Dim a As Range, b As Range, c As Range, d As Range
Set a = Worksheets("顧客データ").Range("A2")
Set b = Worksheets("顧客データ").Range("E2")
Set c = Worksheets("顧客データ").Range("F2")
Set d = Worksheets("顧客データ").Range("G2")
'★
パス = Application.GetSaveAsFilename( _
InitialFileName:=a & b & "/" & c & "/" & d & ".xls", _
FileFilter:="Excelファイル (*.xls), *.xls,すべてのファイル (*.*),*.*")
If パス <> False Then
MsgBox "保存するファイル:" & fileSaveName
End If
End Sub
|
|