VBAでテキストをユーザーフォームに表示

質問

Office2007を使っています。
テキストデータからユーザーフォームにデータを表示させたいのですがうまくいきません。
インターネットを見てまねしたのですが添削をお願いします。

Private Sub UserForm_Initialize()
Call Farst
End Sub

Sub test()

Open "C:\Address\test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf

TextBox1.Text = buf
TextBox2.Text = buf
TextBox3.Text = buf

Loop

Close #1

End Sub

回答No.4

kkkkkm · ベストアンサー

> オブジェクトが必要です。
> とでて
> TextBox1.Text = buf

TextBox1が無いということです。
Test()
はどこに記載していますか。
ユーザーフォームのモジュールに記載していなければ以下のコードで試してください。
UserForm1は自身のフォーム名に変更してください。

Sub test()

UserForm1.Show
Open "C:\Address\test.txt" For Input As #1

i = 1
Do Until EOF(1)
Line Input #1, buf
If buf <> "" Then
UserForm1.Controls("TextBox" & i).Text = buf
i = i + 1
If i > 3 Then Exit Do
End If
Loop

Close #1

End Sub

ユーザーフォームのモジュールに記載しているのであればテキストボックス名が違います。また、test単体実行では機能しないのでコマンドボタン起動にするかInitialize()から呼び出してください。

お礼

返信がおくれてすみませんでした。
ありがとうございました。

回答No.3

masnoske

コード自体に問題はないと思いますが．．．

このコードを実行すれば C:\Address\test.txtの最後の 1行が TextBox1～3にセットされるはずです．
つまり TextBox1～3には同じ値がセットされます．

質問では何が問題なのか判りません．
エラーが起きるのであれば，エラーコードと内容を提示．
思ったように動作しないのであれば，結果のどこが違うのか．

以上を提示すれば，的確な回答が得られると思います．

あと UserForm_Initialize()で Call Farstされているので，Farstプロシージャの内容も提示されたほうが良いかと思います．

補足

回答ありがとうございます。

まずやりたいことですが、テキストデータの1行を
ユーザーフォームのTextBox1.Text
に表示して
次に読み込んだ行のテキストを
TextBox2.Text
に表示させていくというものです。

次にエラーメッセージですが
実行時エラー'424':
オブジェクトが必要です。
とでて
TextBox1.Text = buf
で止まっています。

回答No.2

imogasi

このコードには無理がある。どういう状況で何をしたいのか、書かずにコードだけ挙げて、質問する初心者の悪しき例だが、質問にならない。生兵法怪我の元だ。
・テキストデータが、３レコードしかなくて、テキストボックスを３つ設けているのか？
・普通は、１つのテキストボックス内に１レコード分だけのテキストを改行して縦に並べていく例が、解説される。
・ユーザーフォームにテキストボックスを複数個表示して、その数だけテキストファイルの内容を表示する、でコントロールするのは、高等な部類だ。ユーザーフォームのInitializeとの関係もどういう使い方をするのか？
よく考えて、質問表現を工夫し、質問しなおしだな。
３レコードしかない、必ず３レコード有賀保証されるなら、
下記もありかと思うがレコード数との関係で、不安。
Private Sub UserForm_Initialize()
Call test
End Sub

Sub test()

Open "C:\Users\xx\ドキュメント\Documents\テスト４.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf
UserForm1.TextBox1.Text = buf
Line Input #1, buf
UserForm1.TextBox2.Text = buf
Line Input #1, buf
UserForm1.TextBox3.Text = buf
Loop

Close #1

End Sub
＝＝
その他に
Private Sub UserForm_Initialize()
Call test
End Sub
TestがFarst
になっているが誤りでは？また津刷り的には、Firstのつもりか？

補足

回答ありがとうございます。

まずやりたいことですが、テキストデータの1行を
ユーザーフォームのTextBox1.Text
に表示して
次に読み込んだ行のテキストを
TextBox2.Text
に表示させていくというものです。

次にエラーメッセージですが
実行時エラー'424':
オブジェクトが必要です。
とでて
TextBox1.Text = buf
で止まっています。

回答No.1

kkkkkm

テキストデータの最後だけしかテキストボックスに表示されないということでしょうか。それともまったく表示されないという事でしょうか。

前者だと
i = 1
Do Until EOF(1)
Line Input #1, buf
If buf <> "" Then
Me.Controls("TextBox" & i).Text = buf
i = i + 1
If i > 3 Then Exit Do
End If
Loop

後者だとテキストデータの最後に改行だけがある行があるとそうなりますので

If buf <> "" Then
TextBox1.Text = buf
TextBox2.Text = buf
TextBox3.Text = buf
End If

としてみるとかの方法などがありますので試してみてください。

補足

回答ありがとうございます。

まずやりたいことですが、テキストデータの1行を
ユーザーフォームのTextBox1.Text
に表示して
次に読み込んだ行のテキストを
TextBox2.Text
に表示させていくというものです。

次にエラーメッセージですが
実行時エラー'424':
オブジェクトが必要です。
とでて
TextBox1.Text = buf
で止まっています。