помогите с настройкой простой программы конвертации текстовых файлов (210) в xls формат

[Serge_Bliznykov]

Сообщение от бухарик

нельзя ли вариант того первоначального файла просто с изменением ориентации страницы?

ок. завтра скину. в исходной программе исправлю только ориентацию страницы. и больше ничего.

Сообщение от бухарик

Макрос тот собирает в книгу много листов. на каждом листе ерунда-шапка и 1-5 строк с фио и суммами. Чтобы все это на печать-нужно к примеру 15-20 листов по-очереди открыть и на печать. Гораздо удобнее содрать на один лист все эти данные, вставить разделители страниц и вуаля-5 листов за месяц на печать инфы.
преимущество во времени-главное.

опять ничего не понял. Ну собирает. Хорошо.
Что не так то?

[бухарик]

Сообщение от Serge_Bliznykov

ок.
опять ничего не понял. Ну собирает. Хорошо.
Что не так то?

попытаюсь объяснить что я вообще делаю. Я бухгалтер ЖСК (не одного). Ежемесячно ЕРИП скидывает *.202 файлы по каждому из них.В файле реестр принятых коммунальных платежей от жильцов. Моя задача эти реестры распечатать для учета и подшить бумажном виде в скоросшиватель.

Так вот, если использовать тот макрос, который в своде-2 по получится распечатывать по одному на лист бумаги. Но мне лучше по несколько до заполнения листа А4 (экономия бумаги), потому как сам реестр в основном как я упоминал 1-5 строк фамилий, это макс 10 см по высоте с шапкой. И это я уже приходится делать ручками, т е копировать по одному реестру с каждого листа и вставлять в общий лист.

Короче как я теперь понял, мне просто нужен еще (или взамен, или подработать) макрос, который из всех книг (в них только Лист(1) присутствует) которые создает утилита, создаст сводный лист в который соберет все эти реестры!!! и там пусть уже ширины и настраивает. Это было бы идеально. И макрос я нашел который собирает данные с листов на общий лист. (Вот - http://www.excel-vba.ru/chto-umeet-e...stov-ili-knig/))). Его бы и объединить с тем что в своде. Так что ли?

[Serge_Bliznykov]

Сообщение от бухарик

и практически меня устраивали. нельзя ли вариант того первоначального файла просто с изменением ориентации страницы?

прежде всего - обещанный отпатченный файл.
Convert210ToXls.PatchedPageSetup.rar
пароль: 123

в нём изменено только одно, ориентация страницы.
было:

                worksheet.PageSetup.Orientation = XlPageOrientation.xlLandscape;

стало

                worksheet.PageSetup.Orientation = XlPageOrientation.xlPortrait;

не думаю, что Вас этот вариант устроит, но я больше ничего менять не собираюсь. Это долго, сложно и муторно. Хотите менять сами - скачивайте NET.Reflector, скачивайте reflexil.for.Reflector и меняйте сами.
Программы эти я скачал в интернете, значит, и Вы сможете их найти.
Может быть, тогда Вы поймёте, что изменить что-то в EXE файле - это не такая элементарная задачка, как Вам, наверное, представляется.

[Serge_Bliznykov]

Сообщение от бухарик

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

погодите. или я чего-то не понимаю, или одно из двух.
Вы запустили конвертер. из *.210 получили кучу XLS файлов.
Дальше кнопкой "Кнопка 1" вы считываете каждый XLS на отдельный лист.
Так?

Так вот, после того, как собрали каждый XLS на отдельный лист, выполните программу приведения столбцов к единой величине.

Потом собирайте уже полученный листы вместе и печатайте.
Можете тот макрос, который настраивает ширину вставить в макрос, который собирает все листы воедино. Тогда на один шаг действий будет меньше.

а вообще, это же Вам понятно, как Вам нужно, что для Вас быстрее и удобнее.
Ну так и позаботитесь о себе любимом - сделайте себе нужный Вам инструмент.
Либо самостоятельно ( с подсказками с форума), либо закажите у кого-то (тут куча классных специалистов по Excel // причём я к ним, к сожалению, не отношусь, я дилетант-любитель).

В любом случае, успехов в автоматизации!

[бухарик]

Ок.Спасибо что уделили внимание любознательному бухгалтеру! буду дерзать.
Еще раз убедился что свет не без добрых людей.

[Serge_Bliznykov]

Сообщение от бухарик

Ок.Спасибо что уделили внимание любознательному бухгалтеру! буду дерзать.

Всегда пожалуйста!
Успехов!
Если будут вопросы/проблемы - обращайтесь

[бухарик]

Сообщение от Link4

Вопрос по файлу свод.xls.
Я так понимаю, этот файл для свода всех конвертированных файлов в один.
Там есть две кнопки, первая для открытия этих фалов, вторая - для объединения - если я правильно понял.
Первой открываю 30 файлов, они открываются, а вот при нажатии второй кнопки - ошибка в макросе "Runtime error "9" subscript out of range" или "Runtime error "438".
Подскажите как правильно пользоваться это программой? Может я не так что-то делаю?

файл свод-это обычный файл exel с макросом который я нашел на просторах кажись на Планета Exel/

[macomics]

4 с половиной года бухал, что ли?

[бухарик]

Сообщение от macomics

4 с половиной года бухал, что ли?

)))) да не-влез в старую тему, вспоминал что к чему, не дочитал всех постов, а удалить свое сообщение не смог))) вот как удалять своё?

[бухарик]

Хотел возобновить тему-А может кто-нибудь изменить этот пропатченный файл, в принципе чтобы конвертировать *202 файлы сразу все на один лист?