обработка EXСEL под VB и занесение результата в БД

[НиколайП]

под VB обрабатываю файл Exсel, после обработки необходимо данные занести в БД, если не трудно подскажите как это сделать ...
вопросы в коде - это то что я не знаю как делать.

Set D = OpenDatabase(App.Path & "\DB\my.mdb")
S = "SELECT A,B,C,D,E,F,G FROM tabA"
Set R = D.OpenRecordset(S)
R.AddNew


Dim XL As New Excel.Application
XL.Workbooks.Open App.Path & "\ааааа.xls"
XL.Visible = False
Set XL = XL.ActiveWorkbook.Sheets.Application
ХL.Columns("А:G").Select

Dim i As Long
For i=1 To ??? ' как мне здесь указать количество заполненных строк из ХL.Columns("А:G").Select

R!A = ??? ' данные из столбика А и строки i
R!B = ??? ' данные из столбика B и строки i
R!C =??? ' данные из столбика C и строки i
R!D = ??? ' данные из столбика D и строки i
R!F = ??? ' данные из столбика E и строки i
R!E = ??? ' данные из столбика F и строки i
R!G = ??? ' данные из столбика G и строки i
Next i

R.Update

XL.ActiveWorkbook.Close

заранее благодарен за помощь.

[Twister]

как мне здесь указать количество заполненных строк

Никак. Нужно спускаться в низ по строчкам и смотреть, не встретилась ли пустая ячейка(если пустая ячейка означает конец всех записей) и считать.

данные из столбика А и строки i

Код: Выделить всё

R!A=Range("A" & i)

[alibek]

Do
If LastRow() Then Exit Do
'либо так:
recordset.AddNew
recordset!A = ...
...
recordset.Update
'либо так
recordset.AddNew Array("A","B",...), Array(Cells(I,1), Cells(I,2), ...)
Loop