Перенести данные из Word в Excel

@sQyOs · Регистрация: 22.05.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Помогите решить одну задачку для отечественного здравоохранения.
Пропихнули сверху в больницу одну тупую программку, разработчики очень туго идут на контакт но при том закрыли исходные коды. Еле добился чтоб создали там один журнал, но формируется он в непотребном виде (списком параметров, 3 пациента на лист, а бумагу экономить надо, приказ глав врача

. Написал простенький макрос в WORD приводящий эти данные в потребный вид, что позволяет ручным методом скопировать в EXCEL и получить нормальную таблицу. Но с этим будут работать бабушки с компьютером на вы и с шаловливыми ручками, хотелось бы оптимизировать работу макроса дабы исключить постоянное вмешательства неведомого "оно само, я ничего не делала".

Сам алгоритм нынешнего состояния этого дела:

1. Формируется журнал в этой программе (веб страничка)
2. Выделяем всё( хорошо что выделяется лишь нужный фрейм), копируем
3. Открываем WORD
4. Выполняем мой макрос (по кнопке на ленте) который:

а) вставляет из буфера данные как текст(чтоб лишняя мишура HTML не подцепилась)
б) приводит данные в вид (табуляция и абзацы):

данные →данные →данные →данные ¶
данные →данные →данные →данные ¶
данные →данные →данные →данные ¶

в) выделяет всё, копирует в буфер обмена

5. Открываем EXCEL, создаем новый документ по шаблону, с проставленными типами данных в столбцах, заголовком и параметрами листа для печати (14 столбцов, 1,4-5,7-10,12-14 текстовые, 3 время, остальные даты и рандомное количество строк)
6. Вставляем скопированные данные (специальной вставкой, используя конечное форматирование иначе некоторые данные отображаются некорректно, например нули спереди в числах затираются или чтото отображается как дата)
7. Сохраняем EXCEL таблицу (скорее всего нужно будет сохранять именем файла: нынешняя дата -1 день) и печатаем если надо)
8. Закрываем WORD без сохранения

Что нужно:
После пункта 4 запустить новый макрос, или объединить их...
Который делает все последующие шаги на автомате. Макрос должен запускаться из WORD, будет спользоваться MS Office 2010-2013.
И думаю если реализовать этот импорт то пункт в) макроса будет ненужен.
Список шагов был подлиннее, пока писал это, пришла ещё пара идей как реализовать и запихнул их в макрос

PS: Буду рад любым советам и идеям по решению проблемы, даже не касаемым VBA.

shanemac51 · 07.05.2015, 06:43

хотелось бы увидеть

Еле добился чтоб создали там один журнал, но формируется он в непотребном виде (списком параметров, 3

@sQyOs · 07.05.2015, 09:38 **[ТС]**

у меня нет прав на размещение картинок

Кликните здесь для просмотра всего текста

http://cs628824.vk.me/v6288248... aB-5Ag.jpg

С цензурой ибо конфиденциальная информация, ну и какраз ею видно где данные а где названия полей... и по 3 на лист влазиет с любыми параметрами печати.
И это бред за 1 день печатать 32 страницы того что уместится на 2-3 в табличном виде.

shanemac51 · 07.05.2015, 10:08

сдублируйте ваш журнал в a.xls
откройте a.xls екселем
=========
не уверена, но может и получится

Добавлено через 11 минут
может и ругнется при открытии, но все же откройте
трудно угадывать не видя исходника

@Казанский · 07.05.2015, 11:49

sQyOs, в чем собственно проблема - открыть Excel из макроса Word?
Поищите по форуму createobject("excel.application")
Макрос можно записать в Excel (создание книги из шаблона, спец. вставка, сохранение), потом перенести в Word и подрихтовать.

@sQyOs · 08.05.2015, 05:32 **[ТС]**

Казанский,
createobject("excel.application") это точно не для VBA и на форуме ничего не находит по такому (для VBA), значит пусть будет то с чем гугль помог с 5го раза:

Visual Basic

Dim E As Excel.Application
'открываем эксель
            Set E = New Excel.Application 
            E.Visible = True
'создаем книгу на основе шаблона            
            With E
            Workbooks.Add Template:= _
                "C:\Users\Àäìèíèñòðàòîð\Documents\Ïîëüçîâàòåëüñêèå øàáëîíû Office\æóðíàë.xltx" 
'выделяем ячейку
            Range("A2").Select 
'вставляем в ячейку
            ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _ 
            False, NoHTMLFormatting:=True  
'сохраняем книгу
            ActiveWorkbook.SaveAs FileName:=P, _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            End With
'закрываем полностью ворд без сохранения всего
            Word.Application.Quit wdDoNotSaveChanges, , False

Спасибо всем за участие.

@sQyOs 0 / 0 / 0 Регистрация: 22.05.2012 Сообщений: 13
		1
	Перенести данные из Word в Excel 07.05.2015, 03:43. Показов 5865. Ответов 5 Метки нет (Все метки) Доброго времени суток. Помогите решить одну задачку для отечественного здравоохранения. Пропихнули сверху в больницу одну тупую программку, разработчики очень туго идут на контакт но при том закрыли исходные коды. Еле добился чтоб создали там один журнал, но формируется он в непотребном виде (списком параметров, 3 пациента на лист, а бумагу экономить надо, приказ глав врача. Написал простенький макрос в WORD приводящий эти данные в потребный вид, что позволяет ручным методом скопировать в EXCEL и получить нормальную таблицу. Но с этим будут работать бабушки с компьютером на вы и с шаловливыми ручками, хотелось бы оптимизировать работу макроса дабы исключить постоянное вмешательства неведомого "оно само, я ничего не делала". Сам алгоритм нынешнего состояния этого дела: 1. Формируется журнал в этой программе (веб страничка) 2. Выделяем всё( хорошо что выделяется лишь нужный фрейм), копируем 3. Открываем WORD 4. Выполняем мой макрос (по кнопке на ленте) который: а) вставляет из буфера данные как текст(чтоб лишняя мишура HTML не подцепилась) б) приводит данные в вид (табуляция и абзацы): данные →данные →данные →данные ¶ данные →данные →данные →данные ¶ данные →данные →данные →данные ¶ в) выделяет всё, копирует в буфер обмена 5. Открываем EXCEL, создаем новый документ по шаблону, с проставленными типами данных в столбцах, заголовком и параметрами листа для печати (14 столбцов, 1,4-5,7-10,12-14 текстовые, 3 время, остальные даты и рандомное количество строк) 6. Вставляем скопированные данные (специальной вставкой, используя конечное форматирование иначе некоторые данные отображаются некорректно, например нули спереди в числах затираются или чтото отображается как дата) 7. Сохраняем EXCEL таблицу (скорее всего нужно будет сохранять именем файла: нынешняя дата -1 день) и печатаем если надо) 8. Закрываем WORD без сохранения Что нужно: После пункта 4 запустить новый макрос, или объединить их... Который делает все последующие шаги на автомате. Макрос должен запускаться из WORD, будет спользоваться MS Office 2010-2013. И думаю если реализовать этот импорт то пункт в) макроса будет ненужен. Список шагов был подлиннее, пока писал это, пришла ещё пара идей как реализовать и запихнул их в макрос PS: Буду рад любым советам и идеям по решению проблемы, даже не касаемым VBA. 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,138 Записей в блоге: 4
	07.05.2015, 06:43	2
	хотелось бы увидеть Еле добился чтоб создали там один журнал, но формируется он в непотребном виде (списком параметров, 3 1

@sQyOs 0 / 0 / 0 Регистрация: 22.05.2012 Сообщений: 13
	07.05.2015, 09:38 [ТС]	3
	у меня нет прав на размещение картинок Кликните здесь для просмотра всего текста http://cs628824.vk.me/v6288248... aB-5Ag.jpg С цензурой ибо конфиденциальная информация, ну и какраз ею видно где данные а где названия полей... и по 3 на лист влазиет с любыми параметрами печати. И это бред за 1 день печатать 32 страницы того что уместится на 2-3 в табличном виде. 0

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,138 Записей в блоге: 4
	07.05.2015, 10:08	4
	сдублируйте ваш журнал в a.xls откройте a.xls екселем ========= не уверена, но может и получится Добавлено через 11 минут может и ругнется при открытии, но все же откройте трудно угадывать не видя исходника 1

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	07.05.2015, 11:49	5
	sQyOs, в чем собственно проблема - открыть Excel из макроса Word? Поищите по форуму createobject("excel.application") Макрос можно записать в Excel (создание книги из шаблона, спец. вставка, сохранение), потом перенести в Word и подрихтовать. 1

	08.05.2015, 05:32