Цитата:
Сообщение от
524td
сделал вот так вот.. но инсерт почему то не производит(
Ошибок никаких, просто не инсёртит?
Во-первых, зачем вы используете конструкцию вида:
Код:
XlWorkSheet.Range('A'+FORMAT(Var1)+':'+'A'+FORMAT(Var1)
для обращения к одной ячейке достаточно писать:
Код:
XlWorkSheet.Range('A'+FORMAT(Var1))
Во-вторых, переменную LineNo вы заполняете вначале 0, те есть если у вас нет строк в журнале, то первую строчку НАВ будет вставлять с нулевым номером.
В-третьих, попробуйте сначала вставить строку только с ключевыми полями и потом отмодифить все остальные поля.
И что говорит дебаггер? У вас переменная Rows заполняется, до кода вставки вообще дело доходит? Вот этот цикл вообще начинается?
Код:
FOR Var1:=j TO Rows DO