|
▼かみちゃん さん:
申し訳はありませんでした。保存したファイルを呼ぼうと思って
ファイルがなかったそうです。
ファイル保存場所はマイドキュメントです。
>>ファイル保存場所が全てのファイルになっていましたが
>
>「ファイルの保存場所」ではなくて「ファイルの種類」ではないですか?
>「ファイルを保存する」ダイアログボックスで、
>「ファイル名」の既定値は、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 "保存するファイル:" & パス
> End If
>End Sub
実行したら保存しなかった。どこか保存できないようなコードがありますか?
今保存してもファイル名が出てこない。Excelファイルだけなく全てのファイルも
見つからない。
|
|