コンボボックスへの外部テキストからの読み込み (ID:116448)

名前

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

本文 Open "C:\Documents and Settings\sakait.JC\デスクトップ\オフ.txt" For Input As #1 'ファイルをオープン Do While EOF(1) = False 'END OF FILE まで繰り返す Redim Preserve Tx(i) Input #1, Tx(i) 'データのInput Tx()は配列変数 i = i + 1 'データが何個あるかカウントする Loop Close #1 Txn = UBound(Tx)+1 'データ個数をTxnに格納 Combo1.Clear 'Cmb1(コンボボックス)をクリアする If Txn > 0 Then 'データがあれば With Combo1 'コンボへの書き込みを開始 .AddItem "" '1番目を空白とする。（不要なら削除） For i = LBound(Tx) To UBound(Tx) 'データの個数だけ繰り返す .AddItem Tx(i) 'コンボにデータを書き込む Next i End With 'コンボへの書き込みを終了 End If