No.1ベストアンサー
- 回答日時:
コモンダイアログのオブジェクト名を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
No.2
- 回答日時:
こんにちは。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- WordPress(ワードプレス) wordpressでphpを読み込みたい 1 2022/10/30 23:40
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Windows 10 壁紙フォルダが表示されない 1 2022/11/16 21:58
- Excel(エクセル) excel 別のフォルダから列コピーする方法 8 2022/12/17 16:24
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
- Windows 10 Internet Explorer-11 を削除はしたけれど… 3 2022/06/20 17:54
- Excel(エクセル) excelvbaでスライドショーを作りたい 2 2023/04/20 14:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VB6.0-整数と余りを求める
Visual Basic(VBA)
-
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
VB6にて、テキストファイルの内容を更新したいのですが。。
Visual Basic(VBA)
-
-
4
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
5
MSFlexGridのデータ表示位置の設定
Visual Basic(VBA)
-
6
他のモジュールのプロシージャの呼び出したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FileDialog オブジェクトでファ...
-
VB.Netソリューションでフォー...
-
VBAでフォルダ内のhtmlファイル...
-
サブフォルダ含むフォルダ内の...
-
vbaサブフォルダーをワイルドカ...
-
VBA、ファイル名検索から開く、...
-
Accessのウインドウサイズの固定
-
ffftpでファイル取得が0バイト...
-
excel マクロ PDF化の際のエラ...
-
Excel VBAでのファイル名取得方法
-
AccessからOLEオブジェクト型の...
-
ディレクトリ配下のファイル名...
-
VBAでCSVファイルを読み込もう...
-
更新日が指定日以降のファイル取得
-
Wordのプロパティ・総ページ数...
-
【ACCESS VBA】アクセスからデ...
-
コモンダイアログのファイルを...
-
WinInet.dll の使い方
-
「エクセルファイルが開いてい...
-
VBAによるファイル名リスト作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaサブフォルダーをワイルドカ...
-
動かなくなってしまった古いVBA...
-
ffftpでファイル取得が0バイト...
-
FileDialog オブジェクトでファ...
-
サブフォルダ含むフォルダ内の...
-
「エクセルファイルが開いてい...
-
Accessのウインドウサイズの固定
-
excel マクロ PDF化の際のエラ...
-
ExcelVBA 文字コード変換
-
AccessからOLEオブジェクト型の...
-
VBAでフォルダ内のhtmlファイル...
-
【VBAマクロ初心者】Excel VBA...
-
VBからExcelファイルを開くとき...
-
「AccessViolationException」...
-
【ACCESS VBA】アクセスからデ...
-
VB6でUTF-8ファイルの読取りを
-
ファイルを開く時間測定のスク...
-
複数のワークブックのVBAを変更...
-
VB.net XMLの作成方法 Iniの代替
-
エクセルのVBAで開いている...
おすすめ情報