Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скопировать таблицу Word и вставить ее в Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать таблицу Word и вставить ее в Excel (Макросы/Sub)
Скопировать таблицу Word и вставить ее в Excel
clever77 Дата: Суббота, 13.05.2017, 17:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
Столкнулся с проблемой - не знаю как выделить макросом несколько строк в таблице WORD сразу.
Как выделить одну знаю: Это работает
Selection.Tables(1).Rows(1).Select

Пробовал макрос записать Выделил строки в ручную и скопировал их буфер. Получил это:

Sub Макрос2()
'
' Макрос2 Макрос

Selection.Copy
End Sub

Может подскажите другое решение?
Суть Есть большой файл Word 462 страницы там несколько таблиц 3 или 4. Мне надо эту таблицу скопировать в excel. Полностью скопировать в буфер удается, но вставить в excel оттуда нет - пишет что невозможно вставить. По столбцам копировать тоже не дает- пишет разной длины.

Единственный способ копировать по строчно или несколько строк в буфер и вставлять в excel
Как это сделать макросом?
 
Ответить
СообщениеЗдравствуйте!
Столкнулся с проблемой - не знаю как выделить макросом несколько строк в таблице WORD сразу.
Как выделить одну знаю: Это работает
Selection.Tables(1).Rows(1).Select

Пробовал макрос записать Выделил строки в ручную и скопировал их буфер. Получил это:

Sub Макрос2()
'
' Макрос2 Макрос

Selection.Copy
End Sub

Может подскажите другое решение?
Суть Есть большой файл Word 462 страницы там несколько таблиц 3 или 4. Мне надо эту таблицу скопировать в excel. Полностью скопировать в буфер удается, но вставить в excel оттуда нет - пишет что невозможно вставить. По столбцам копировать тоже не дает- пишет разной длины.

Единственный способ копировать по строчно или несколько строк в буфер и вставлять в excel
Как это сделать макросом?

Автор - clever77
Дата добавления - 13.05.2017 в 17:36
RAN Дата: Суббота, 13.05.2017, 19:18 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Как это сделать макросом?

Делайте хорошо, плохо само получится.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Как это сделать макросом?

Делайте хорошо, плохо само получится.

Автор - RAN
Дата добавления - 13.05.2017 в 19:18
clever77 Дата: Воскресенье, 14.05.2017, 16:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN я оценил юмор, но что можете сказать по сути?

Пока лучшее что придумал это написать 2 макроса 1 в Word
Цикл перебора строк (по одной)
копирование в буфер
запуск макроса excel после копирования

2 Макрос excel
Определение занятых строк
активация первой пустой
вставка из буфера

Думаю должно сработать

Кстати кто знает что такое VBE в Word?
Я думал это VB Excel, но Word ругается пишет нет доверия

А было бы здорово
With Application.VBE и далее макрос Excel.....
 
Ответить
СообщениеRAN я оценил юмор, но что можете сказать по сути?

Пока лучшее что придумал это написать 2 макроса 1 в Word
Цикл перебора строк (по одной)
копирование в буфер
запуск макроса excel после копирования

2 Макрос excel
Определение занятых строк
активация первой пустой
вставка из буфера

Думаю должно сработать

Кстати кто знает что такое VBE в Word?
Я думал это VB Excel, но Word ругается пишет нет доверия

А было бы здорово
With Application.VBE и далее макрос Excel.....

Автор - clever77
Дата добавления - 14.05.2017 в 16:42
buchlotnik Дата: Воскресенье, 14.05.2017, 17:15 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
что можете сказать по сути?
а вы? где образчики файлов? образчики ругающихся скринов? тут телепаты по вашему?
 
Ответить
Сообщение
Цитата
что можете сказать по сути?
а вы? где образчики файлов? образчики ругающихся скринов? тут телепаты по вашему?

Автор - buchlotnik
Дата добавления - 14.05.2017 в 17:15
clever77 Дата: Воскресенье, 14.05.2017, 21:02 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Файл слишком большой 376 Мегабайт..... потому и не выкладываю
Как выделить в таблице несколько строк не знаю, но решение своего вопроса нашел:
работает медленно, но работает
office 2016
Важно- перед запуском макроса таблицу надо выбрать - навести курсор и кликнуть мышкой

В Word

Sub for_i()
Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open "D:\Macros2017\MWE.xlsm" ' Открытие файла Excel с нужным макросом -открывать 1 раз
a = Selection.Tables(1).Rows.Count
'а=35292 строк в таблице
For i = 1 To a
Selection.Tables(1).Rows(i).Select
Selection.Copy

objXls.Application.Visible = True
objXls.Run ("WDEX") ' WDEX название макроса excel
Next i
End Sub

В Excel\

Sub WDEX()
irow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(irow + 1, 1).Select
With Selection
ActiveSheet.Paste
End With
Exit Sub 'Обязательно иначе застревает на end sub и требует нажатия f5
End Sub

Целиком таблицу еще не перекинул (может еще что всплывет), но 5 строк подряд скопировал

Если выделить несколько строк и скопировать дело будет двигаться быстрее

На другом форуме посоветовали это
'выделить в документе промежуток ...
ActiveDocument.Range( _
Start:=ActiveDocument.Lists(1).Range.Start, _
End:=ActiveDocument.Lists(1).Range.Start).Select

Но у меня не работает....
Кстати по поводу VBE -EXCEL - безопасность - есть пункт доверять VBA


Сообщение отредактировал clever77 - Воскресенье, 14.05.2017, 23:21
 
Ответить
СообщениеФайл слишком большой 376 Мегабайт..... потому и не выкладываю
Как выделить в таблице несколько строк не знаю, но решение своего вопроса нашел:
работает медленно, но работает
office 2016
Важно- перед запуском макроса таблицу надо выбрать - навести курсор и кликнуть мышкой

В Word

Sub for_i()
Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
objXls.Workbooks.Open "D:\Macros2017\MWE.xlsm" ' Открытие файла Excel с нужным макросом -открывать 1 раз
a = Selection.Tables(1).Rows.Count
'а=35292 строк в таблице
For i = 1 To a
Selection.Tables(1).Rows(i).Select
Selection.Copy

objXls.Application.Visible = True
objXls.Run ("WDEX") ' WDEX название макроса excel
Next i
End Sub

В Excel\

Sub WDEX()
irow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(irow + 1, 1).Select
With Selection
ActiveSheet.Paste
End With
Exit Sub 'Обязательно иначе застревает на end sub и требует нажатия f5
End Sub

Целиком таблицу еще не перекинул (может еще что всплывет), но 5 строк подряд скопировал

Если выделить несколько строк и скопировать дело будет двигаться быстрее

На другом форуме посоветовали это
'выделить в документе промежуток ...
ActiveDocument.Range( _
Start:=ActiveDocument.Lists(1).Range.Start, _
End:=ActiveDocument.Lists(1).Range.Start).Select

Но у меня не работает....
Кстати по поводу VBE -EXCEL - безопасность - есть пункт доверять VBA

Автор - clever77
Дата добавления - 14.05.2017 в 21:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать таблицу Word и вставить ее в Excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!