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

名前

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

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