以前ファイル保存の質問で
Dim xlFilePath As String = "c:\Test1.xls"
xlApp.DisplayAlerts = False xlSheet.SaveAs(xlFilePath) xlApp.DisplayAlerts = True を教えて頂きましたが、今回はCドライブ決め打ちではなく、任意に変更したいのですが、どう書けば良いのでしょうか

A 回答 (2件)

つ旦



・Application オブジェクト
 GetSaveAsFilename メソッド

・Application オブジェクト
 FileDialog オブジェクト

上のほうが使いやすいですね
    • good
    • 0

ディレクトリ部分と、ファイル名部分で変数を分けてみればどうですか。



Dim xlFilePath As String
Dim xlFileName As String = "Test1.xls"

xlFilePath = "c:\"
右辺には
 "c:\xxx\"と固定
 ツリービューから選択されたパスを取得
 iniファイルから取得
などなど、用途にあわせて選択してみてください。

パス付きファイル名は、
xlFilePath + xlFileName
で取得できます。

この回答への補足

ありがとうございます
しかし"c:\xxx\"と固定と言う具合に固定ではなく
その時々で自由に保存場所を変更したいのですが、固定にしてしまうと出来ませんが、どうすれば宜しいでしょうか。

補足日時:2005/04/12 14:49
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング