|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.04.2013, 12:27 | #1 |
Новичок
Джуниор
Регистрация: 22.04.2013
Сообщений: 2
|
Автоматизированный перенос данных
Добрый день.
Помогите пожалуйста разрешить следующую проблему с автоматизацией процесса. Есть текстовая информация в следующем виде: ФИО………. Адрес………..номер тел………email…….. Необходимо данную информацию перенести в таблицу Excel, затем эти же данные вставить в нужные поля шаблона в Word, а затем перенести эти данные в текстовые поля браузера. Так как данной информации очень много, физически невозможно всё это делать вручную. Заранее спасибо за помощь. |
22.04.2013, 13:26 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Зачем такой сложный цикл переносов?
(TXT -> EXCEL -> WORD -> браузер) попроще-то никак? зачем в браузер? дайте ссылку на страницу, куда надо вставлять эти данные, и напишите, что должно получиться. 1) Преобразование TXT -> EXCEL делается вручную, через опцию Excel «текст по столбцам» 2) EXCEL -> WORD (заполнение шаблонов) проще всего сделать этой программой: http://ExcelVBA.ru/programmes/FillDocuments 3) для подстановки в поля браузера — готового решения нет. PS: Можно сделать специализированный макрос, который все быстро сделает по нажатию одной кнопки, — но вряд ли кто возьмётся делать всё «от и до» бесплатно. |
23.04.2013, 11:40 | #3 |
Новичок
Джуниор
Регистрация: 22.04.2013
Сообщений: 2
|
Такой цикл переносов нужен, потому что данные используются для разных целей потом. Изначально данные приходят в txt сплошной строкой. Вручную это можно делать когда объём небольшой, но сейчас такие действия приходится делать раз по 100 в день
Может подскажете, как можно разбирать текстовый файл и вставлять нужные слова в уже готовую таблицу excel? Например исходные данные в таком виде у меня: |
23.04.2013, 12:14 | #4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Данные не в лучшем виде, имхо вывод писал плохой программист. Как минимум программист-эгоист...
Исходя из содержимого архива код: Код:
Можно уплотнить Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 23.04.2013 в 12:45. |
23.04.2013, 19:18 | #5 |
Пользователь
Регистрация: 13.07.2010
Сообщений: 20
|
Добрый день.
Помогите ,пожалуйста:все также,но даные в *txt иные. Спасибо. Последний раз редактировалось ABA2; 23.04.2013 в 22:07. Причина: Дополнение |
23.04.2013, 23:20 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
ABA2, макрорекордер Вам в помощь:
Код:
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
23.04.2013, 23:57 | #7 |
Пользователь
Регистрация: 13.07.2010
Сообщений: 20
|
Уже в течение почти двух лет использоваю написан с макрорекордером-только с _Destination:=ActiveCell_ .Хотел красивее и без отметки,и вниз последовательно.Второй код очень подходит,за что -большое спасибо!
С уважением! |
24.04.2013, 00:20 | #8 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну можно и в том макрорекордерном кодом определить нужную ячейку (ThisWorkbook.Sheets(1).Cells(Rows. Count, "A").End(xlUp)(2))
У меня правда не получилось корректно скопировать кодировку (литовский?), вероятно нужно подкрутить в системе, или текстовый файл не совсем тот... Но мне это и не нужно Да, и с датой посмотрите, всё ли устраивает - второй код даёт просто текст, вероятно нужно подправить.
webmoney: E265281470651 Z422237915069 R418926282008
|
24.04.2013, 00:36 | #9 |
Пользователь
Регистрация: 13.07.2010
Сообщений: 20
|
С датой все OK.
Просто забыл написать,что row 100 c данными.Толко Column 5 свободныи. Как обойти? |
24.04.2013, 00:58 | #10 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Не понял. Что именно обойти?
webmoney: E265281470651 Z422237915069 R418926282008
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
MySQL перенос данных между базами данных с MyDAC | Nikolay88 | БД в Delphi | 3 | 14.05.2011 00:17 |
Автоматизированный фильтр | kzld | Microsoft Office Excel | 3 | 06.04.2011 15:57 |
Изменение данных и перенос данных из одной таб в другую | Kot9ra | Microsoft Office Access | 13 | 02.07.2010 12:22 |
сортировка данных (пересчет возможных вариантов комбинаций, перенос данных в таблицу) | Vitalik85 | Microsoft Office Excel | 4 | 12.08.2009 00:30 |
Автоматизированный PrintScreen | Ratmir_1 | Общие вопросы Delphi | 4 | 13.11.2008 06:21 |