コンボボックスに外部のテキストファイルを設定するには？ (ID:109284)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなもので、どうでしょう i=0 Open "Text.txt" For Input As #1 'ファイルをオープン Do While EOF(1) = False 'END OF FILE まで繰り返す i = i + 1 'データが何個あるかカウントする Input #1, Tx(i) 'データのInput Tx()は配列変数 Loop Close #1 Txn = i 'データ個数をTxnに格納 Cmb1.Clear 'Cmb1(コンボボックス)をクリアする If Txn > 0 Then 'データがあれば With Cmb1 'コンボへの書き込みを開始 .AddItem "" '1番目を空白とする。（不要なら削除） For i = 1 To Txn 'データの個数だけ繰り返す .AddItem Tx(i) 'コンボにデータを書き込む Next i End With 'コンボへの書き込みを終了 End If カウンター(Txn)が不要、Do Whileの記述等 いろんな方法があります。 これは、ほんの一例と言う事で・・・