Access2000：VBAを使用し、エクセルセルにDo文を使って挿入

質問

VBAでDo文を使って連続するセルに挿入したい場合
ロジックの書き方を教えていただけますか？

あくまでもDo文を使ってです。

Dim ExcelApp As Object 'Excel.Application
Dim Book As Object 'Excel.Workbook
Dim Sheet As Object 'Excel.Worksheet

・・・略・・・

Sheet.Range("A13").Value

「A13」から下のセルに書き込んでいくものです。
Doの抜け出し方などはわかっています。

よろしくお願いします。

回答No.2

tkun62 · ベストアンサー

例えばですが

RsD.Open wSql, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
i = 13
Do until RsD.eof
Sheet.Cells(i, 1) = RsD![データ１]
i = i + 1
RsD.MoveNext
Loop
RsD.Close
Set Rsd=Nothing

テストはしていません(^_^;)

回答No.1

hana-hana3

n=13
Do
Sheet.Cells(n,1) = "あ"
n=n+1
Loop