VBA超初心者です。

質問

VBA超初心者です。
ファイル名の取得をしたいと思っています。
フォームからディレクトリを選択し、選択したディレクトリから
ファイル名を取得し、OPENしたいのですが、
教えていただけないでしょうか。
すみません、超初心者がこの質問をするのはずうずうしいのかも知れませんが…
Excel　2003（VB6.0）です。
何卒よろしくお願いいたしたします。

回答No.4

imogasi · ベストアンサー

WEB照会すればわかると、既出回答者がおっしゃっているのは、下記のようなことです。
この方法を身につける努力をしないと、独学の場合は習得は難しい。回答に頼ると、今回限りのしのぎで勉強にならない。
フォームにテキストボックスを１つ設け、フォルダ名を指定させる。其れでフォルダを絞る。
その際、選択決定ボタンを１つ設ける必要があろう。ファイル形式も同時に選択してからボタンクリックさせるとよい。
そのフォルダ名を元に、そのフォルダのファイル名をリストアップする。
その際ファイル形式（エクセルやCSV形式）を指定されたものに絞る。それはフォルダのファイル名を見たとき、ファイルの拡張子で判る。
該当しないものは表示しない。この部分をVBのDir関数で検索して、リストボックスなどで独自にリストを作っても良いが、その際既存のダイアロウグを使えないか考える。OpenFilenameがある。
WEB照会「ファイル選択　VBA」（以下このキーワードなどで照会をお勧め、と言うこと）http://officetanaka.net/excel/vba/file/file02.htm
WEB照会「ファイル名選択　ダイアロウグ」
http://www.officepro.jp/excelvba/book_new/index3.html
fname = Application.GetOpenFilename
ファイル形式を絞るのは
WEB照会「application.getopenfilename 引数」
http://www.moug.net/tech/exvba/0060013.htm
複数に絞る
WEB照会「ァイルフィルタ VBA」
＞"テキスト ファイル (*.txt),*.txt,アドイン ファイル (*.xla),*.xla"
http://hirokei-web.hp.infoseek.co.jp/VBA_Enma/Enma06.htm
ーー
Sub test01()
Dim fname As String
'WEB照会「ファイル名選択　ダイアロウグ」
'http://www.officepro.jp/excelvba/book_new/index3.html
'fname = Application.GetOpenFilename
'ファイル形式を絞るのは
'WEB照会「application.getopenfilename 引数」
'＞"テキスト ファイル (*.txt),*.txt,アドイン ファイル (*.xla),*.xla"
fname = Application.GetOpenFilename("csv形式（xls形式）,*.csv;*.xls")
MsgBox fname 'フルパスで選択したファイル名が返る
End Sub
ーーー
フォルダを指定するのは
WEB照会「getopenfilename フォルダ指定」
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200405/04050082.txt
XXXXXXXX=Inputbox("フォルダ名=")
ChDir "C:\"&xxxxxxxX
----
かっこよくやると、フォームのテキストボックスで指定するところを、InputBoxで受けると（手抜きですが）
Sub test01()
Dim fname As String
Dim foldernm As String
foldernm = InputBox("フォルダ名=")
ChDir "C:\" & foldernm
'WEB照会「ファイル名選択　ダイアロウグ」
'http://www.officepro.jp/excelvba/book_new/index3.html
'fname = Application.GetOpenFilename
'ファイル形式を絞るのは
'WEB照会「application.getopenfilename 引数」
'＞"テキスト ファイル (*.txt),*.txt,アドイン ファイル (*.xla),*.xla"
fname = Application.GetOpenFilename("csv形式（xls形式）,*.csv;*.xls")
MsgBox fname '選択フルパスで返る
’あとはエクセルやCSVファイルをエクセルでオープンするコード調べること
End Sub

お礼

ご丁寧に、ありがとうございます。
時間がかかると思いますが、
回答を元に、色々やってみます。

回答No.5

layy

http://www.asahi-net.or.jp/~zn3y-ngi/YNxv252.html#1

「超初心者がこの質問をするのはずうずうしい」
そうですね。
教えたところできちんとやってくれないとまた質問になりかねないし、
その繰り返しではなかなか上達は遅いです。
ほとんどがちょっとしたこと、ヒントを教える程度にしかなりません。

問題を解決するにはどこに情報があるか、その情報をいかに自分のものにするか、
初心者に教えなければならないことたくさんあります。
掲示板ではヒントをもらうだけに留めて最終結果は自分で考える、
要は回答を真似するだけで終わらせないで「考える」ことして欲しいですね。

今回の場合はＶＢＡの対応になりそうなので、
デバッグの仕方等ＶＢＡを扱う知識の習得がまず前提です。

エクセルは使って１か月にも満たない程度でしょうか？。

補足

ご指摘、ごもっともです。
ＶＢＡのデバッグは、何となくやれています。
とにかく自身がなく、周りは知っている人はおらず、
ネットで見ても思うような回答がなく（自分が分かってないからでしょうが…）、
困り果てて投稿いたしました。
エクセルは、一通りの機能は使えます。
質問すること自体、初心者でどう質問したら良いか分からず、
あのように大雑把な質問をしてしまいました。

回答No.3

Wendy02

>VBA超初心者です。
初心者ゆえに、分からないからこそ、無茶な内容になると思います。

まず、用語からですが、フォームじゃなくて、Excelなら、UserFormと言ってください。
次に、
>フォームからディレクトリを選択し、選択したディレクトリから
>ファイル名を取得し、OPENしたいのですが、

図を見ると、ComboBoxに入れたいような雰囲気ですが、うまくないですね。

#1さんのご指摘のように、
Dialogs(wdDialogFileOpen) やApplication.GetOpenFilename を使えばよいと思います。
オプションボタンで、Filter 部分を、*.xls, *.csv 、また、共有というのは、ネットワークだと思いますが、参照フォルダ切り替えればよいと思います。

今のところは、ComboBox などに入れようとは考えないことですね。手間が多くなります。
ファイル数が少なければともかく、数千となることもありますから、それでは管理が難しくなってしまいます。

それと、既存のものを直すなら、ネット検索してヒットするでしょうけれども、自分でイメージを考えたものは、概ね、ヒットしませんし、その分、数年の経験の応用力が必要になります。掲示板で聞いても、ほとんど回答は得られないと覚悟したほうがよいです。

お礼

回答、ありがとうございます。
>ネット検索してヒットするでしょうけれども、自分でイメージを考えたものは、概ね、ヒットしませんし
まったくその通りです。
でも、こうやって回答いただけるだけでも、
孤独に学習している私には、ありがたいです。
少しずつでも、がんばります。

回答No.2

fujiponxx

フォルダ内のファイル名を取得
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html

取得したファイル名をリストボックスにセットするのも必要ですが。

ファイルを開くっていっても、
ファイルの種類はなんでしょうか？
テキストファイル？ＥＸＣＥＬ？

「VBA　ファイルを開く」で検索すればいろいろ出てきますよ。

ずうずうしいとはいいませんが、
まずGoogleとかの検索方法をマスターする方が先だと思いますね。
どんなコードも大抵ＷＥＢに出てますので。

お礼

回答、ありがとうございます。
質問の仕方が悪くて、本当申し訳ないです。
ネットでも検索はしたのですが、
結局のところ、知識がないので応用が利かないのです。

回答No.1

D-Matsu

ずうずうしいかどうかはさておき、「どういう風に」ファイル名を取りたいのかが全く見えません。
なんとなくApplication.GetOpenFilenameでいいのか？という気はするのですが。

お礼

回答いただき、ありがとうございます。
質問の仕方が悪くて、本当すみません。
次回からは、もう少し具体的に質問してみます。