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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
VB6 開発環境のエディタに行番号を表示
Visual Basic(VBA)
-
他のモジュールのプロシージャの呼び出したい。
Visual Basic(VBA)
-
-
4
VB6.0-整数と余りを求める
Visual Basic(VBA)
-
5
VB6にて、テキストファイルの内容を更新したいのですが。。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FileDialog オブジェクトでファ...
-
ファイルを開く時間測定のスク...
-
Wordのプロパティ・総ページ数...
-
Wordテンプレート一括変更での...
-
iniファイルへの追記について
-
[EXCEL-VBA]UsrFormよりD&Dファ...
-
c# で作成したアプリをある拡張...
-
VBAでCSVファイルを読み込もう...
-
マクロのワイルドカードの使い...
-
エクセルVBA あるフォルダ...
-
【ACCESS VBA】アクセスからデ...
-
コモンダイアログで拡張子の無...
-
VBA一覧取得 再投稿
-
ファイルのアクセス回数について
-
ファイル名と同名のフォルダを...
-
簡単なexeファイルの作り方。
-
Excel VBA で フォルダ名の一部...
-
Excel VBAでテキストファイルを...
-
VB6でExcelシートのコピー、貼付け
-
【マクロ】ファイル名の日付に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaサブフォルダーをワイルドカ...
-
動かなくなってしまった古いVBA...
-
ffftpでファイル取得が0バイト...
-
FileDialog オブジェクトでファ...
-
サブフォルダ含むフォルダ内の...
-
「エクセルファイルが開いてい...
-
Accessのウインドウサイズの固定
-
excel マクロ PDF化の際のエラ...
-
ExcelVBA 文字コード変換
-
AccessからOLEオブジェクト型の...
-
VBAでフォルダ内のhtmlファイル...
-
【VBAマクロ初心者】Excel VBA...
-
「AccessViolationException」...
-
VBからExcelファイルを開くとき...
-
【ACCESS VBA】アクセスからデ...
-
VB6でUTF-8ファイルの読取りを
-
ファイルを開く時間測定のスク...
-
複数のワークブックのVBAを変更...
-
VB.net XMLの作成方法 Iniの代替
-
エクセルのVBAで開いている...
おすすめ情報