[jordan_74]

Что тут можно контролировать, если по другому и быть не может: Код: For i = 1 To objSourceFile.Worksheets.Item(1).UsedRange.Rows.Count - 2 … objTemplateFile.SaveAs strDestFile, xlCSV, , , , , , , , , , True Next ?! Не вижу в этом никакого смысла. »

Это для информации, которая должна быть понятна простому бухгалтеру. Столько то строк реестра отработано-получилось столько то чеков.

Сумма по реестру должна равняться сумме всех сумм в чеках данного реестра ) » Честно сказать, мне это ни о чём не говорит . »

В файле реестра мы откидываем 2 строки; название столбцов и итоговую сумму по реестру. В каждой "рабочей" строке есть поле сумма, значение которого и копируется в шаблон чека.
Допустим в реестре 40 рабочих строк и общая сумма будет 1600, то при складывании сумм(ячейка H3) в 40 созданных чеках, должно быть тоже 1600

Цитата jordan_74: Ну и чтобы итоговая сумма совпадала, или расхождения были минимальные. » »

Это тоже самое, что я описал выше