Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11633 / 13645 ツリー ←次へ | 前へ→

【15040】ファイル名表示 misa 04/6/14(月) 11:03 質問[未読]
【15042】Re:ファイル名表示 Jaka 04/6/14(月) 11:34 回答[未読]
【15047】Re:ファイル名表示 misa 04/6/14(月) 13:14 お礼[未読]
【15051】Re:ファイル名表示 misa 04/6/14(月) 15:14 質問[未読]
【15052】Re:ファイル名表示 Jaka 04/6/14(月) 15:30 回答[未読]

【15040】ファイル名表示
質問  misa  - 04/6/14(月) 11:03 -

引用なし
パスワード
   はじめまして。ユーザホームにコマンドボタン1とテキストボックス1を作成しました。
コマンドボタンを押すと【ファイルを開く】のダイアログボックスが表示され指定したファイルを開きます。お聞きしたいのはファイルを開いたときに開いたファイル名をテキストボックス1に表示させたいです。どのようなコードを書けばよろしいですか?
よろしくお願いします。

【15042】Re:ファイル名表示
回答  Jaka  - 04/6/14(月) 11:34 -

引用なし
パスワード
   ▼misa さん:
>コマンドボタンを押すと【ファイルを開く】のダイアログボックスが表示され指定したファイルを開きます。お聞きしたいのはファイルを開いたときに開いたファイル名をテキストボックス1に表示させたいです。どのようなコードを書けばよろしいですか?

こんにちは。
>【ファイルを開く】のダイアログボックス

どんな方法なのかわからないので、一応2つ。

1、
Application.Dialogs(xlDialogOpen).Show
TextBox1.Value = ActiveWorkbook.Name

2、
dim GetFL As valiant
GetFL = Application.GetOpenFilename("Excelファイル (*.xls), **.xls")
If GetFL = False Then End
TextBox1.Value = Dir(GetFL)

【15047】Re:ファイル名表示
お礼  misa  - 04/6/14(月) 13:14 -

引用なし
パスワード
   できました。ありがとうございます。

【15051】Re:ファイル名表示
質問  misa  - 04/6/14(月) 15:14 -

引用なし
パスワード
   すいません。また質問なんですが、【ファイルを開く】のダイアログが表示され何も選択しないでキャンセルしダイアログを閉じるとテキストボックスにファイル名が表示されています。何も表示させないためにはどのようにしたら良いでしょうか。
Application.Dialogs(xlDialogOpen).Show
TextBox1.Value = ActiveWorkbook.Name
それともう一つなんですが【ファイルを開く】のダイアログを表示させて、ファイルの種類をCSVに固定したいのですが。
どなたかご教授お願いします。

【15052】Re:ファイル名表示
回答  Jaka  - 04/6/14(月) 15:30 -

引用なし
パスワード
   >CSVに固定したいのですが。
だったら、GetOpenFilenameの方がいいと思います。

書き方などは、こちらにも載ってますので、参考にしてください。
http://www.vbalab.net/vbaqa/data/excel/log/tree_373.htm#1910

11633 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free