|
はじめまして。
データの一括編集について質問です。
Oracleよりレコードセットを取得し、
シートに対して編集を行っているのですが、
以下のような編集をしています。
Do Until RST.EOF
With Worksheets(1)
.Range("A" & lRow).Value = RST.Fields("年度").Value
.Range("B" & lRow).Value = RST.Fields("Aコード").Value
.Range("C" & lRow).Value = RST.Fields("A名称").Value
.
.
.
.
End With
RST.MoveNext
lRow = lRow + 1
Loop
これだと、結構な時間がかかっています。
※1,000件以上のデータを処理しています。
そこで、項目をTab、レコードをCrlfで区切る等して変数に格納し、
数百件単位でシートに編集する方法(範囲を選択する等して)はありますでしょうか?
過去ログを検索したのですが、ヒットしませんでした^^;
初質問ですので、言葉足らずがあるかと思いますが、
ご回答の程よろしくお願い致します。
Windows 2000
Excel 2000
|
|