ник: Вакшуль Сергей
Добрый день,
Всего вашего кода не видно, но:
Вы создаете переменную типа Application по идее для того, чтобы потом от нее плясать. Т.е. открывать/создавать Workbooks, для которых созданный вами Excel.Application будет родительским объектом.
Посмотрите, что у вас здесь:
lLastRow = Sheets(1).Cells(Sheets(1).Rows.Count, 3).End(xlUp).Row
перед Sheet у вас нет вашей переменной.
Здесь тоже не однозначно:
.Sheets(1).Range("C" & lLastRow + 1).Value = FIO
Я к тому, что лучше переписать код четко:
Dim wb As Excel.Workbook
Set wb = objExcel.Workbooks.Open ..............
lLastRow = wb.Sheets(1).Cells(Sheets(1).Rows.Count, 3).End(xlUp).Row
wb.Sheets(1).Range("C" & lLastRow + 1).Value = "FIO"
|
Попробуйте переделать с четкой иерархией. По-моему, должно работать.