| 投稿日 | ： 2003/06/20(Fri) 13:27 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: Excelのセルへの書き込みについて。 |
> こんにちは。わからないことがあるので投稿してみました。
> Win98 SecondEditionでVB6.0 SP5を使っています。
>
> CreateBojectを使ってExcelを関連付け、シールの各セルに文字列を書き込もうとしています。
> Forを使って300行分くらい書き込むのですが、概算で2.5秒くらいかかってしまっています。
> この書き込みを高速化させたいのですが、なにか手段はあるでしょうか。色々考えているのですがわかりません。
> どなたかご存知の方、教えて下さい。宜しくお願いします。
一度、セル範囲を配列に取り込み、その配列に文字列を代入し
再び、そのセル範囲に配列の値をもどしてやるというのはどうでしょうか？
Dim varArray As Variant
With excelSheet
varArray = .Range(.Cells(1, 1), .Cells(lngMax, 1)).Value
For n = 1 To lngMax
varArray(n, 1) = strArray(n)
Next n
.Range(.Cells(1, 1), .Cells(lngMax, 1)).Value = varArray
End With