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

質問

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

回答No.1

Taketoshi · ベストアンサー

コモンダイアログのオブジェクト名を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さん。ありがとうございました。
先ほどの補足は、コントロールを一旦削除し、再度作成したらＯＫになりました。

補足

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

回答No.2

maruru01

こんにちは。maruru01です。

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

CommonDialog1.initDir = "C:\My Documents"

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

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

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

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

お礼

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

補足

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