|
Textbox1にsample.txtの内容を入力したのですが、
「レコード長が一致しない」というエラーがでてしまいます。
誤っている個所を教えていただければうれしいです。
sample.txtの内容は以下の一行のみです。
あいうえお
記述しているマクロは以下です。
Private UserForm_Initialize()
Dim FileName As String 'ファイル名
Dim FileNo As Long 'ファイル番号
Dim FileLen As Long 'ファイルの長さ
Dim Buff As String 'ファイルの内容を格納する変数
'ファイルの長さを取得
FileName = "sample.txt"
FileNo = FreeFile
Open FileName For Random As #FileNo
FileLen = LOF(FileNo)
Close FileNo
'ファイルの内容一つのレコードとして読み出す
Open FileName For Random As #FileNo Len = FileLen
Get #FileNo, 1, Buff
TextBox1.Text = Buff
Close FileNo
End Sub
|
|