Excel VBA質問箱 IV

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

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


70250 / 76732 ←次へ | 前へ→

【10992】テキストファイルの読み込み(処理速度効...
質問  Cat  - 04/2/22(日) 18:15 -

引用なし
パスワード
   はじめまして。ここ数ヶ月程VBAの勉強を始めた者です。
表題の件で、ご質問致します。
過去ログで、類似項目を拝見しましたが解決策が
理解出来ません。よろしくお願いします。

【目的】
テキストファイル(Total:5万行)の中身を、
エクセルシートに貼り付ける。その際、処理速度
効率化を図る。

【動作環境】
Excel2000

【作成経過】
Sub Read()

  Dim wsPath As String
  Dim wsFile_Name As String
  Dim Y_count As long
  Dim myBuff As String

  wsPath = "C:\1\"
  wsFile_Name = "test.txt"
 
  Y_count = 1
  
  Open wsPath & wsFile_Name For Input As #1
  Do Until EOF(1)
    'テキストファイルを1行読込む
    Line Input #1, myBuff

    Worksheets("Sheet1").Cells(Y_count, 1) = myBuff
    Y_count = Y_count + 1
  
  Loop
  Close #1

End Sub

⇒ 上記のように、テキストファイルを1行毎に読み込み、貼り付ける
 コードにはたどり着きました。しかしファイルデータが5万行からあると
 処理速度が低下してしまいます。これらを改善したいと考えています。
  テキストファイルの中身をすべて選択して、エクセルシートに貼り付ける
 方法や、その他、いい方法がありましたらご教授お願いします。

  マクロの記録を試したのですが、解決策には至りません。
1 hits

【10992】テキストファイルの読み込み(処理速度効... Cat 04/2/22(日) 18:15 質問
【10996】Re:テキストファイルの読み込み(処理速度効... Kein 04/2/23(月) 0:45 回答
【10998】Re:テキストファイルの読み込み(処理速度効... とまと 04/2/23(月) 1:05 回答
【10999】Re:テキストファイルの読み込み(処理速度効... とまと 04/2/23(月) 1:08 回答
【11001】Re:テキストファイルの読み込み(処理速度効... Jaka 04/2/23(月) 10:31 回答
【11002】Re:テキストファイルの読み込み(処理速度効... とまと 04/2/23(月) 11:17 回答
【11017】Re:テキストファイルの読み込み(処理速度... Cat 04/2/24(火) 15:15 質問
【11020】Re:テキストファイルの読み込み(処理速度... アイエネス 04/2/24(火) 16:04 回答
【11024】Re:テキストファイルの読み込み(処理速度... Cat 04/2/24(火) 16:37 質問
【11026】Re:テキストファイルの読み込み(処理速度... アイエネス 04/2/24(火) 16:48 発言
【11041】Re:テキストファイルの読み込み(処理速度... Cat 04/2/24(火) 20:15 お礼

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