|
▼H.T さん:
>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
G-Luckといいます。
Private Sub UserForm_Initialize()
Dim FileName As String 'ファイル名
Dim FileNo As Long 'ファイル番号
Dim FileLen As Long 'ファイルの長さ
Dim Buff As String * 5 'ファイルの内容を格納する変数
'ファイルの長さを取得
FileName = "sample.txt"
FileNo = FreeFile
'ファイルの内容一つのレコードとして読み出す
Open FileName For Random As #FileNo
Get #FileNo, 1, Buff
TextBox1.Text = Buff
Close FileNo
End Sub
これでどうでしょうか?
詳細は不明です。実行してたまたまうまくいきました。
|
|