вопросы в коде - это то что я не знаю как делать.
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
заранее благодарен за помощь.