VBA リストボックスの連動方法について

いつもお世話になっております。
VBA初心者ですが、どうぞよろしくお願いいたします。

UserForm1があり、
Form内にComboBox1,ComboBox2,TextBox1があります。

(1) ComboBox1には"C:\TestBook"のサブフォルダ名のリストを表示する。
(2) ComboBox2にはComboBox1で選択したサブフォルダ内のxlmファイルのリストを表示する。
C:\TestBookフォルダ内に、日付などのlog.txtがあります。
(3) log.txtの内容をTextBox1に表示させたいと考えています。

フォルダ内は以下のような感じです。

　　　 　　　　　　→　SubBooK1\　→　test1.xls , test2.xls ,test3.xls ,test4.xls 　　　　　　　　　
C:\TestBook\　→　SubBooK2\　→　test5.xls , test6.xls ,test7.xls ,test8.xls
　　 　　　　　　　→　SubBooK3\　→　test9.xls , test10.xls ,test11.xls ,test12.xls


参考サイトなどを調べてみましたが、
基本の学習が不足しているため、なかなか理解ができません。
おはずかしながら、お力をお貸しいただけないかと思います。

宜しくお願いいたします。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2011/07/30 11:56

初心者がやるには、難しすぎる課題と思う。

もっと勉強してから。ＶＢＡの本筋の学習の範囲外のことが多い（フォルダの扱いなど）。
それと
（１）やるべきことが、文章で整理できて無いのではないか（丸投げしている）。何処まで調べたりやったのか？
例
フォルダのサブフォルダの捕らえかた
その中のファイルのとらえ方
ファイルの拡張子のとらえ方
コンボのアイテムへの反映の仕方
コンボのアイテムの選択のとらえ方
（２）ファイル関係を扱うのでＶＢＳcriptの学習が必要ではないか。
Ｄｉｒ関数で出来るかも知れないが、相当勉強が必要かとおもう。
＞なかなか理解ができません。というより、ＶＢＡ（に付随した事項）の経験や関係解説書読書（ＷＥＢでは照会）不足でしょう。
上記（１）もＷＥＢで照会するとコード例が出てくると思う。
ーーー
＞リストボックスの連・・
コンボボックスのミスタイプか？質問なのだから気をつけて。
ーー
テスト環境が質問者と同じに出来ないので、相当な改変が必要かもしれないので参考に。
ファイルのあるフォルダレベルから選択しないと下記は旨く動かないだろう。
だからそのフォルダ名はプログラムの中に決めてしまうケースが多いのではと思うが。
（日頃、ソフトを使っていて、プロの例を見ているのだが、始から格好よくは目指さないこと。）
ユーザーフォームにコンボを２つ貼り付け
ＵｓｅｒＦｏｒｍをＩｎｉｔｉａｌｉｚｅしたときの処理
Private Sub UserForm_Initialize()
Set objfs = CreateObject("scripting.filesystemobject")
Set objfolder = objfs.getfolder("C:\Documents and Settings\ＸＸＸ\")
For Each objsubfolder In objfolder.subfolders
UserForm1.ComboBox1.AddItem objsubfolder
'MsgBox objsubfolder
Next
End Sub
コンボボックス１のクリックイベントに
Private Sub ComboBox1_Click()
x = ComboBox1.Value
Set objfs = CreateObject("scripting.filesystemobject")
Set objfolder = objfs.getfolder(x)
For Each fl In objfolder.Files
y = objfs.getextensionname("C:\Documents and Settings\ＸＸＸ\My Documents\" & fl)
If y = "xls" Then
UserForm1.ComboBox2.AddItem fl
End If
Next
End Sub

この回答へのお礼

有用なサンプルありがとうございます。
コンボボックスのクリックイベントのマクロは大変ありがたいです。
おっしゃられるように私にはまだまだ敷居の高いプログラム内容です。丸投げのような形になってしまい大変申し訳なく思っています。大変参考になりました。

お礼日時：2011/07/30 17:06

No.1 回答者： trajaa 回答日時： 2011/07/30 07:10

大まかな仕様は理解できました。

しかし、貴方がどの部分で詰まっているのかが分かりません。

まずは連動を抜きにして考えます。
・コンボボックス１にサブフォルダの一覧を登録します。
・コンボボックス２に、例えば「SubBook1」内のフィル名リストを登録します。
・テキストボックスに、例えば「test1.xls」の内容を表示する

※ところで、ファイルが「xlm」だったり「xls」だったり「txt」だったりバラバラですが大丈夫なんでしょうか？

以上3点は自力で解決可能なのでしょうか？
その上で連動する部分がイマイチという状況なのでしょうか？

この回答への補足

　説明不足で申しわけありません。拡張子の違いはこちらの記述間違いで、全てxlsです。わからない部分はコンボボックス１へサブフォルダ名の登録、、コンボボックス２との連動方法なのですが、プログラムが長くなるほど頭で整理ができなくなっています。
本来であれば、まだこのような処理は触れないほどのど素人です。ご迷惑をおかけしますが、ご指摘の３点もわからないものとしてご教授願えれば幸いです。

補足日時：2011/07/30 07:30