コモンダイアログでフォルダを固定したい

コモンダイアログを使用するときに、初期表示フォルダを固定させたいのですが、良い方法はありますでしょうか？

No.1 ベストアンサー 回答者： Taketoshi 回答日時： 2002/12/06 10:06

コモンダイアログのオブジェクト名をdlgCommonとしています。

以下の設定で、初期表示がC:\Tempを開き、ファイルが*.xlsファイルのみ表示されるようになります。



'CommonDialogプロパティ初期化
dlgCommon.Filter = "Excelファイル(*.xls)|*.xls" 'フィルター設定
dlgCommon.DefaultExt = ".xls" 'デフォルトのデータファイル拡張子
dlgCommon.FilterIndex = 1 'フィルターの1番目をデフォルトに設定
dlgCommon.InitDir = "C:\Temp" '初期表示のパス
dlgCommon.Flags = cdlOFNCreatePrompt Or cdlOFNPathMustExist 'フラグ設定
'新しいファイルか確認/パスが正しいかチェック
dlgCommon.CancelError = True 'キャンセル押下にエラー発生
dlgCommon.DialogTitle = "ファイルを選択"

'ファイルを開くダイアログ表示
dlgCommon.ShowOpen

この回答への補足

Taketoshiさん。ありがとうございます。
試してみましたが、ファイルを開いたフォルダが設定されてしまいます。
ソースを添付しますので、おかしいところを指摘してください。

Sheets("受注書・発注書").DIG1.Filter = "Excelファイル| *.XLS| "
Sheets("受注書・発注書").DIG1.CancelError = True
Sheets("受注書・発注書").DIG1.DialogTitle = "受注書の保存"
Sheets("受注書・発注書").DIG1.InitDir = "\\Ibi\Company\ヒノマル\営業部門\受注書"

On Error GoTo ERROR_TRAP
Sheets("受注書・発注書").DIG1.ShowSave

D_FILENAME = Sheets("受注書・発注書").DIG1.Filename
ActiveWorkbook.SaveAs Filename:="" & D_FILENAME & "" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

使用環境は、以下の通りです。
　OS:Windows XP Pro SP1
EXCEL 2000 SP3

補足日時：2002/12/06 17:37

この回答へのお礼

Taketoshiさん。ありがとうございました。
先ほどの補足は、コントロールを一旦削除し、再度作成したらＯＫになりました。

お礼日時：2002/12/06 17:48

No.2 回答者： maruru01 回答日時： 2002/12/06 10:10

こんにちは。

maruru01です。

initDirプロパティを使用します。例えば、

CommonDialog1.initDir = "C:\My Documents"

とすれば、表示直後のフォルダを指定出来ます。
また、以下のようにファイル名も付けて指定すると、

CommonDialog1.initDir = "C:\My Documents\Test.txt"

「ファイル名(N)」ボックスにファイル名が入力されます。

ちなみに存在しないフォルダを指定するとエラーになるので、事前にチェックしましょう。

この回答への補足

maruru01さん。ありがとうございます。
試してみましたが、ファイルを開いたフォルダが設定されてしまいます。
ソースを添付しますので、おかしいところを指摘してください。

Sheets("受注書・発注書").DIG1.Filter = "Excelファイル| *.XLS| "
Sheets("受注書・発注書").DIG1.CancelError = True
Sheets("受注書・発注書").DIG1.DialogTitle = "受注書の保存"
Sheets("受注書・発注書").DIG1.InitDir = "\\Ibi\Company\ヒノマル\営業部門\受注書"

On Error GoTo ERROR_TRAP
Sheets("受注書・発注書").DIG1.ShowSave

D_FILENAME = Sheets("受注書・発注書").DIG1.Filename
ActiveWorkbook.SaveAs Filename:="" & D_FILENAME & "" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

使用環境は、以下の通りです。
　OS:Windows XP Pro SP1
EXCEL 2000 SP3

補足日時：2002/12/06 17:31

この回答へのお礼

maruru01さん。ありがとうございました。
先ほどの補足は、コントロールを一旦削除し、再度作成したらＯＫになりました。

お礼日時：2002/12/06 17:47