| |
▼質問（初心者Ａ氏） さん：
>この処理をした時に、読込みデータの１件目のデータを毎回
>取り込んでしまいます。
>
>また、Get #1, , BRecの箇所の定義は
>Dim BRec As T_DATAで定義すればいいのか教えて下さい。
>
>読込みは２１件あるが、区切りの処理をすると
>１件目のデータが２４件処理されるのですが・・・
申し訳ありません、いくつかミスがありました
Type T_DATA
f1 As String * 10 ’バイト単位での処理のため
f2 As String * 10 ’日本語（全角文字）の場合は文字数の２倍にする
f3 As String * 10
f4 As String * 10
DMY As String * 2 ’←改行文字がある場合に必要
End Type
Sub RD_TXT()
Dim RData As T_DATA
Dim FName
Dim i As Long
i = 0
' FName = "C:\xxxxxx\xxxx\xxxx.txt"
'ファイル選択ダイアログを開きファイル名を取得
FName = Application.GetOpenFilename("ファイル (*.*),*.*")
'キャンセルを選択？
If FName = False Then Exit Sub
'ファイルオープン
Open FName For Binary As #1
Get #1, , RData
Do While Not EOF(1)
i = i + 1
With ThisWorkbook.Worksheets("Sheet4")
.Cells(i, 1) = RData.f1
.Cells(i, 2) = RData.f2
.Cells(i, 3) = RData.f3
.Cells(i, 4) = RData.f4
End With
' Get #1, , BRec
Get #1, , RData
Loop
Close #1
End Sub
|
|
ハト
- 06/7/25(火) 17:41 -
