Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22145 / 76734 ←次へ　｜　前へ→
【59974】異様に遅いのです・・
質問  k  - 09/1/22(木) 3:21 -
引用なし
パスワード
   初めての投稿となります。皆様、よろしくお願いいたします。

さて単刀直入に申し上げると、以下の命令文を実行すると、手動で実行する場合に比べ、数倍も時間がかかってしまうのです．．．

　　　　Workbooks.Open Filename:="A.csv"
　　　　
　　　　Windows("B.xls").Activate
　　　　Sheets("P").Select
　　　　ActiveSheet.UsedRange.Select
　　　　Selection.ClearContents
　　　　
　　　　Windows("A.csv").Activate
　　　　Sheets("A").Select
　　　　ActiveSheet.UsedRange.Copy

　　　　Windows("B.xls").Activate
　　　　Sheets("P").Select
　　　　Range("a1").Select
　　　　ActiveSheet.Paste

CSVファイルは、基本で10Mほどあります。
手動だと上記の作業をするのに十数秒ですが、マクロだと数分かかります。

なぜでしょうか・・・？
2 hits
▼ 【59974】異様に遅いのです・・ k 09/1/22(木) 3:21 質問≪
【59979】Re:異様に遅いのです・・ Jaka 09/1/22(木) 11:36 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22145 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free