ExvelVBAでテキストボックスの2行目以降を記録するには。

質問

ExvelVBAでテキストボックスの2行目以降を記録するには。
ExcelVBA超初心者です。
以前に頂いた以下のコードなのですが、1行目の文字は記録されるのですが、2行目以降が記録
できません。2行目以降を記録するにはどうしたらよいのでしょうか。宜しくお願い致します。

テキストボックスのオブジェクト名 : txtMemo
１．×ボタンで閉じる時にテキストファイルへ保存
ユーザーフォームのTerminateイベントに下記処理記述
Private Sub UserForm_Terminate()
Const TXT_FILE As String = "￥memo.txt"
Open ThisWorkbook.Path & TXT_FILE For Output As #1

Print #1, txtMemo.Text

Close #1 ' ファイルを閉じます。
End Sub

２．起動表示時に保存内容をテキストボックスに初期表示します。
ユーザーフォームのInitializeイベントに下記処理記述
Private Sub UserForm_Initialize()
Const TXT_FILE As String = "￥memo.txt"

Dim TextLine

'ファイルの存在チェック
If Dir(ThisWorkbook.Path & TXT_FILE) = "" Then
Exit Sub
End If

Open ThisWorkbook.Path & TXT_FILE For Input As #1

Do While Not EOF(1)

Line Input #1, TextLine
txtMemo.Text = TextLine

Loop

Close #1 ' ファイルを閉じます。
End Sub

回答No.3

samtomsan · ベストアンサー

txtMemo.Text = TextLine

の代わりに

txtMemo.Text = txtMemo.Text + vbCrLf + TextLine

これだと最初に余分な vbCrLf が入りますから、Closeの後に

txtMemo.Text = Mid$(txtMemo.Text, 3)

を追加。

こんなところでしょうか。

お礼

回答ありがとうございます。
解決しました。完璧です。
私ごときの為に、貴重なお時間を使っていただき感謝いたします。
ありがとうございました。

回答No.2

samtomsan

> 1行目の文字は記録されるのですが、2行目以降が記録できません

出力したmemo.txtの中身を確認されましたか。

> Line Input #1, TextLine
> txtMemo.Text = TextLine

これですと最後に読み込んだ一行のみが表示されますが。

一行読んでtxtMemoに表示し、次の一行を読んでtxtMemoに上書きします。

お礼

回答ありがとうございます。
初心者なので理解するのにちょっと時間が掛かります。
何事も勉強ですよね。がんばってみます。
ありがとうございました。

回答No.1

hana-hana3

コードの内容は見ていませんが、テキストボックスのデフォルト設定では１行しか入力（表示）出来ません。
そのためには、テキストボックスのMultiLineプロパティをTrueに設定する必要があります。

未設定なら、VBE画面のプロパティウィンドウかUserForm_Initialize等で設定してください。

お礼

ありがとうございます。
勉強しなおしてみます。

補足

すいません補足します。
テキストボックスのコードは以下の内容を貼り付けています。

'このコードは「UserForm」のコードに記述する
Private Sub UserForm_Initialize()

'TextBox1の日本語入力モードを「全角ひらがな」にする
TextBox1.IMEMode = fmIMEModeHiragana

'TextBox1(説明)の設定
With TextBox1
'複数行入力できるように設定する
.MultiLine = True
'改行を入力できるように設定する
.EnterKeyBehavior = True
'タブ入力できるように設定する
.TabKeyBehavior = True
End With
End Sub