ник: puzo
доброго времени суток всем!
задача - переписать из екселевского файла строки с 91 по 150 ( столбцы с 1 по 63 ) в таблицу аксессовскую такие, в которых столбец К непуст.
обычно бывает таких строк 1-2, редко 6. редчайше - 30-40. поэтому неохота перебирать каждый раз всё.
пробую так :
Set rst = CurrentDb.OpenRecordset("r2", dbOpenDynaset)
spath = CurrentProject.Path & "\TZ\"
sfile = Dir(spath & Trim(Str(iTZ)) & "*.xls")
sfile = spath + sfile
For i = 91 To 150
s = "ТЗ$A" + Trim(Str(i)) + ":BJ" + Trim(Str(i))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "r2", sfile, , s
rst.MoveLast
If (rst.Fields(10).Value) = "" Then Exit Sub
Next i
rst.Close
что с movelast, что без него - ругается на отсутствие записи.
подскажите, пожалуйста, как лучше быть ? чтоб быстрее и вообще сориентируйте, если это возможно.