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

名前

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

本文 過去ログを参考にして外部のテキストファイル（オフ.txt）をコンボボックスのリストに読み込むコードを作成しました。テキストが後に増える可能性があるため配列を使いました。しかしインデックスが有効範囲外です。のようなエラーが出てしまいます。お力を貸してください Private Sub Form_Load() Dim i Dim Tx() Dim Txn Open "C:\Documents and Settings\sakait.JC\デスクトップ\オフ.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に格納 Combo1.Clear 'Cmb1(コンボボックス)をクリアする If Txn > 0 Then 'データがあれば With Combo1 'コンボへの書き込みを開始 .AddItem "" '1番目を空白とする。（不要なら削除） For i = 1 To Txn 'データの個数だけ繰り返す .AddItem Tx(i) 'コンボにデータを書き込む Next i End With 'コンボへの書き込みを終了 End If End Sub