|
今晩は。
コードを整理してみました。これも参考にしてください。
Dim Num As Integer
Dim Rw As Long
Dim LineDat
Dim D
Const Cols = 20 ' <--- 取得列数
Num = FreeFile
Application.ScreenUpdating = False
'Cells.ClearContents
'Range("a:a").Resize(, Cols).NumberFormatLocal = "G/標準"
Open "\test.dat" For Input As #Num
Do Until EOF(Num)
Line Input #Num, LineDat
D = Split(LineDat, ",")
Worksheets("a").Range("A1").Resize(, UBound(D)).Offset(Rw).Value = D
Rw = Rw + 1
Loop
Close #Num
D = Worksheets("a").UsedRange.Value
Worksheets("a").UsedRange.Value = D
Application.ScreenUpdating = True
|
|