Как сделать из word сделать excel


Как сделать из word сделать excel

Как сделать из word сделать excel


Member
Откуда:
Сообщений: 12
Имеется следующая структура файла в word: шапка - таблица - шапка - таблица - ... (структура таблиц одинакова)
Подскажите, пожалуйста, макрос, который бы перегонял бы все это дело в excel таким образом, чтобы формировалась единая таблица, со структорой той же, которая имеется в таблицах в word + к этой таблице столбец с шапкой.
Member
Откуда:
Сообщений: 5909
Запишите макрос и посмотрите код, ничего сложного ... вроде)
Member
Откуда:
Сообщений: 12
Не могли бы описать процедуру более подробно. Я начинающий пользователь компьютера)
Member
Откуда:
Сообщений: 5909
Открываете Ваш документ, в наборе панелек ищите панельку "Visual Basic". На этой панельке есть кнопка "Записать макрос". жмете её, в появившемся окне выбираете запись макроса в текущий документ. Далее делаете все действия, которые надо, затем останавливаете запись макроса, лезете в код VBA и смотрите, что он там написал (в модуле) nosov
Guest поскольку структура таблиц одинаковая
1. из всех таблиц сделать одну в ворде
2. сделать экспорт этой таблицы в файл иксель.
Member
Откуда:
Сообщений: 12
Не осилить мне пока эту операцию самостоятельно. Выкладываю образец в word. Покажите, пожалуйста, текст необходимого макроса.
К сообщению приложен файл (1.doc - 40Kb)
Member
Откуда:
Сообщений: 5909
Сервис-Макрос-Редактор Visual Basic)
Member
Откуда:
Сообщений: 12
я имею ввиду сам код макроса) у меня не получается его осуществить...
Member
Откуда:
Сообщений: 5909
вот как-то так, только надо еще перенос форматов сделать Dim wdTbl As Word.Table Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim intTbl As Integer Dim rCount As Integer Dim cCount As Integer Set xlApp = New Excel.Application xlApp.Visible = True Set xlWb = xlApp.Workbooks.Add rCount = 1 cCount = 1 Set xlWs = xlWb.Worksheets(1) For Each wdTbl In ActiveDocument.Tables wdTbl.Range.Copy xlWs.Range("A" + CStr(rCount)).PasteSpecial (xlPasteValues) rCount = rCount + wdTbl.Rows.Count cCount = wdTbl.Columns.Count Next wdTbl 'автоподбор ширины столбцов по содержимому For rCount = 1 To cCount xlWs.Columns(rCount).EntireColumn.AutoFit Next rCount Set xlApp = Nothing
Member
Откуда:
Сообщений: 12
Korcar, все очень здорово! спасибо большое!
Подскажите, пожалста, как подправить 2 момента в макросе для того, чтобы избежать следущих ситуаций:
1. Если в столбце: "Дата и номер протокола соревнований" добавить текст (к примеру, "снят с соревнований"), то дата из этого столбца уезжает в excel в столбец "№ п/п"
2. Если увеличить количество надписей в вордовских таблицах, то после выполнения макроса, в excel перекидываются не все спортсмены(
Заранее спасибо!
Исходный word файл прикладываю.
К сообщению приложен файл (1.doc - 79Kb)
Member
Откуда:
Сообщений: 5909
Единственная проблема всего: неправильная конвертация таблиц из ворда в эксель. То есть если в ячейке какой-либо строки присутствует символ перевода каретки, то ексель воспринимает это как вторую строку, походу не стоит как всегда делать все ручками)
Member
Откуда:
Сообщений: 18
у меня похожая задача...
очень бы пригодился ваш макрос.
не пойму только где место в нем, где он открывает word-файл?
Member
Откуда:
Сообщений: 18
Назгул2,

или ActiveDocument.Tables это и есть все открытые в данный момент вордовые файлы (а точнее таблицы в них? )

Между сообщениями интервал более 1 года.
pHOENIXfm
Guest nosov поскольку структура таблиц одинаковая
1. из всех таблиц сделать одну в ворде
2. сделать экспорт этой таблицы в файл иксель.

КАКИМ ОБРАЗОМ СДЕЛАТЬ ЭКСПОРТ В EXCEL


Member
Откуда: Владимирская обл
Сообщений: 4064
pHOENIXfm nosov поскольку структура таблиц одинаковая
1. из всех таблиц сделать одну в ворде
2. сделать экспорт этой таблицы в файл иксель.

КАКИМ ОБРАЗОМ СДЕЛАТЬ ЭКСПОРТ В EXCEL

-в ворде сохранить как HTML 1.HTM
-в тоталь коммандере переименовать в 1.XLS
-открыть 1.XLS , сохранить как 1.XLS в формате EXCEL
-


Member
Откуда: Владимирская обл
Сообщений: 4064
nesluh,

вариант 2
-в ворде выделить все( или часть) и копировать в буфер
-в екселе соэдать новый лист, активировать А1 и вставить

pHOENIXfm
Guest ПЕНСИОНЕРКА nesluh,

вариант 2
-в ворде выделить все( или часть) и копировать в буфер
-в екселе соэдать новый лист, активировать А1 и вставить

Так совсем не то получается, а вот первый раз почти, что надо. Есть над чем работать.
Спасибо :)

Виртуальные форумы   Темы из всех форумов за 3 дня   Мои избранные форумы Использование СУБД   Microsoft SQL Server   Firebird, InterBase   Oracle   Microsoft Access   IBM DB2, WebSphere, IMS, U2, etc   MySQL   PostgreSQL   OLAP и DWH   Sybase ASA, ASE, IQ   Informix   Другие СУБД   FoxPro, Visual FoxPro   Caché   SQLite   NoSQL, Big Data Дискуcсии   Сравнение СУБД   Проектирование БД   Работа   ERP и учетные системы   Разработка информационных систем   Тестирование и QA   Отчетные системы   Просто треп   Наши за рубежом   Сертификация и обучение   Hardware   Управление процессом разработки ИС   Юридические вопросы в ИТ Microsoft.NET   WinForms, .Net Framework   ASP.NET   ADO.NET, LINQ, Entity Framework, NHibernate, DAL, ORM   WPF, Silverlight   WCF, Web Services, Remoting Программирование   Delphi   C++   Visual Basic   Программирование   Java   Разработка под мобильные платформы   PowerBuilder   Microsoft Office   SharePoint   XML, XSL, XPath, XQuery Web Технологии   PHP, Perl, Python   HTML, JavaScript, VBScript, CSS Администрирование ОС   Windows   Unix-системы   Другие: Mac OS, PalmOS, BeOS, PocketPC SQL.RU   Обсуждение нашего сайта   Вопрос-Ответ   Test
Источник: http://www.sql.ru/forum/639932/peredacha-dannyh-iz-word-v-excel



Как сделать из word сделать excel

Как сделать из word сделать excel

Как сделать из word сделать excel

Как сделать из word сделать excel

Как сделать из word сделать excel

Как сделать из word сделать excel

Как сделать из word сделать excel

Как сделать из word сделать excel