[ツリー表示へ] [ワード検索] [Home]
タイトル ： EXCELへの貼り付け処理の高速化 投稿日 ： 2006/06/09(Fri) 14:19 投稿者 ： りょう
| はじめて投稿させて頂きます。 タイトルの件についてになりますが、VB5.0を使用してCSVファイルからExcelシートへ貼り付けを行お うとしてますが、かなり遅くて困っております。 例）ROW=80000 COL=256の場合、1ROWあたり2秒 現状、下記のようにループさせて1セルずつ貼り付けておりますが、他に早くする方法はないでしょう か？お手数ですが宜しくお願いしますm(_ _)m 尚、CSVファイルをShellExecuteを使用してExcelを起動時に読み込ませていましたが、”0001”等のデータは”1”となってしまう為、NGです。（ある列に関しては文字形式にする必要があります。） <処理の一部を掲載> : : Open fnm For Input As #1 Do Until EOF(1) DoEvents Line Input #1, rec Call PSSeparate(rec, ",", intIdx, strSepData) '読み込んだデータをカンマ区切 りに分解 lngRowCnt = lngRowCnt + 1 'COL<=256 If lngRowCnt > 256 Then Exit Do End If For lngColCnt = 0 To 255 DoEvents xlApp.Worksheets(1).Cells(lngRowCnt, lngColCnt + 1).Value = strSepData(lngColCnt) Next lngColCnt Loop Close #1 : : |
をクリックするとツリー全体を一括表示します） - EXCELへの貼り付け処理の高速化 - りょう 06/09-14:19No.3814