|
ReadAllは、メモリ食いなんで、昨年までのスペックの低いPCで使うと遅くなったり、
フリーズしたりで、使ったことがほとんど全く無いけど。
> count = Len(fso.OpenTextFile(myFile.Path).ReadAll())
↑ここで1回開く。
↓この下で同じものを開いて、2度目。しかも、全部開きっぱなし。
> If count > C_COUNT Then
> lenm = 1
> For j = 1 To (count / C_COUNT) + 1
> 'MsgBox Mid(fso.OpenTextFile(myFile.Path).ReadAll(), lenm, C_COUNT)
> Cells(i, j).Value = Mid(fso.OpenTextFile(myFile.Path).ReadAll(), lenm, C_COUNT)
> lenm = lenm + C_COUNT
> Next
> Else
> Cells(i, 1).Value = fso.OpenTextFile(myFile.Path).ReadAll()
> End If
開くのをこんな感じにしてみたら...。
With fso.OpenTextFile(ファイルのフルパス, 1)
st = .ReadAll
MsgBox Len(st)
.Close
End With
|
|