| 投稿日 | ： 2004/03/31(Wed) 18:09 |
| 投稿者 | ： きいちろう |
| ＵＲＬ | ： http://www.george24.com/~mascaras/ |
| タイトル | ： EXCELで列をinsertすると遅い |
Win2000上でVB6からCreateObjectでExcel.Application(Excel2000)を作成、
ファイルをオープンし、シートに行を挿入すると極端に遅くなります。
同じことをエクセルマクロとして実行すると、
VBから実行したときより格段に早いです。
VBから実行させているときにタスクマネージャでCPU使用率を見ると、
CPUがぜんぜんビジーにならず、遊んでしまっている状態です。
処理は下記のようなものです。
Set objExcel=CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("abc.xls")
Set objSheet = objWorkbook.Worksheets("sheet1")
Set objRows=objSheet.Rows("1:1")
For i=0 to 1000
objRows.Insert shift:=xlDown
Next
VBに詳しくないため、困ってしまっています。
アドバイスお願いいたします。