Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17133 / 76732 ←次へ | 前へ→

【65056】Re:テキストファイルの読込について
発言  Jaka  - 10/4/8(木) 13:03 -

引用なし
パスワード
   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

1 hits

【65049】テキストファイルの読込について フェレット 10/4/8(木) 9:05 質問
【65056】Re:テキストファイルの読込について Jaka 10/4/8(木) 13:03 発言

17133 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free