Форум казахстанского налогоплательщика

Файл импортер файлов СОНО и КН формы 300.00 в Excel. Файл Excel-евский, работает с помощью макроса.
Файл предназначен для загрузки многострочных форм 300.03, 300.07, 300.08 в Excel из файлов СОНО и КН.
По большей части думаю нужен аудиторам.

Краткая инструкция:

1. После скачивания распаковать архив, распакуются:
   
   • папка XmlToXls_300 (внутри него пустые папки IN, OUT)
   • файлы: commons-compress-1.0-SNAPSHOT.jar, tar_bz2_unzip2.jar, XmlToExcel_300.xls
2. Скопировать файл СОНО или КН за 2010 год в подкаталог IN
3. Открыть файл XmlToExcel_300.xls, перед открытием убедитесь что у Вас разрешено выполнение макроса.
4. Если в папку IN были скопированы архивные файлы *.tar.bz2 тогда выбрать значение Да
5. Нажать на кнопку Import XML

После подготовки файла он будет сохранен в подкаталоге OUT.
При сохранение если такой файл существует, будет спрашивать подтверждение о перезаписи.
Файл будет перезаписан в том случае если ответили "Да" и при этот перезаписываемый не Открыт.

Габит, спасибо за вкусняшку +1

Первый таракан...
в строке ActiveWorkbook.SaveAs Filename:=fn_xls происходит исключение если попытаться сохранить в файл который уже существует и юзер выбрать "нет" или "отмена". Рекомендую предварительно делать проверку на существование файла и делать запрос до этой строки, после чего анализировать ответ и принимать решение...

Автор обновил программу, в первом сообщении ее новая версия (я заменил). Рекомендуется использовать более новую версию.

А у меня появляется такая ошибка когда я пытаюсь импоритовать файл. Делаю все по инструкции.

по всей видимости не установлен хмл

Автору скрипта - поставь вывод в лог-файл, просче будет дебажить

Gosti писал(а):по всей видимости не установлен хмл

Либо офис неподходящей версии...

Обновил программу сейчас, вот что исправил автор:

Была добавлена следующая доработка:
При сохранение если такой файл существует, будет спрашивать подтверждение о перезаписи.
Файл будет перезаписан в том случае если ответили "Да" и при этот перезаписываемый не Открыт

Автор сам ответит на все вопросы и плюс к этому получил права Куратора этой темы (сможет сам редактировать первое сообщение темы и выкладывать там новые версии программы)

аксиомка,
какой файл был скопирован в каталог IN, архивный tar.bz2 или уже распакованный xml файл ?
у Вас в данной машине есть Java, т.е.:
C:\Program Files\SONO\target\jre\bin\java.exe

В каталог IN скопирован из соно архивный tar.bz2, так же пробовала и распакованный xml файл. Java есть, в C:\Program Files\SONO\target\jre\bin\java.exe. Лучше напишу поэтапно:
1. Я в СОНО 300 форму сохраняю в xml
2.и отправляю в папку IN.
3.Открываю ваш XmlToExcel_300.xls,
4. запускаю макрос, жму да(т.к. файл архивный tar.bz2 и жму Import XML.)
Что я делаю не так?
Все разархивированно, как в инструкции.

Вроде все правильно.
Офис какая версия ?
В папке IN распаковался архив, там появились файлы xml ?

Наверное придется дебажить, по другому гадать долго ...

Мне кажется это проблема из-за MS Excel 2007.
в MS Excel 2007 надо использовать что-то другое.

Доработан, теперь проблем в MS Excel 2007 быть не должна.

Еще один баг, ты объявляешь объектную переменную
Set fso = CreateObject("Scripting.FileSystemObject")
внутри условия
If ActiveSheet.Cells(1, 2).Value = "Да" Then
если юзер выбрал Нет - будет крэш. Устранение бага - вынести создание СОМ объекта за условие

ммм, то есть перед условием

TAXKZ писал(а):По большей части думаю нужен аудиторам

Не только. Бывают случаи, когда бухгалтера сменяются, а учет велся непонятно как. И в таких случаях многое можно понять из реестра формы 300.00 (хотя бы понять, что в зачет взяли, что выписали).

Ну и случай, когда отчет отправили, а через какое-то время надо перепроверить. При этом набирали руками, а не выгружали.

Gosti писал(а):Еще один баг, ты объявляешь объектную переменную
Set fso = CreateObject("Scripting.FileSystemObject")
внутри условия
If ActiveSheet.Cells(1, 2).Value = "Да" Then
если юзер выбрал Нет - будет крэш. Устранение бага - вынести создание СОМ объекта за условие

Ок, вынесу выше, раньше там использовался Application.Filesearch, но оказалось что Application.Filesearch не работает на Office 12.