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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование таблиц из нескольких файлов WORD - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Копирование таблиц из нескольких файлов WORD
respector Дата: Понедельник, 11.05.2020, 16:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день! Сам я с VBA на вы, даже не так, на !ВЫ!
Есть задача, которую я не могу решить в силу отсутствия опыта.
Задача такая: есть несколько более-менее однотипных файлов WORD, в каждом из которых есть таблица. Задача стоит скопировать (без шапки) последовательно из каждого файла таблицу и объединить в одну в файле WORD.
Код ниже я раскопал на просторах, который делает практически все, что нужно, только копирует содержимое каждого файла полностью. Как его модифицировать так, чтобы он копировал только таблицы из файлов (без шапки)?

Sub MergeFiles()
Dim avFiles, lr As Long
Dim docAct As Document, docNow As Document

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "*.doc*"
.AllowMultiSelect = True
If .Show = False Then Exit Sub
Set docAct = ActiveDocument
For lr = 1 To .SelectedItems.Count
Set docNow = Documents.Open(.SelectedItems(lr))
docNow.Range.Copy
docAct.Range(docAct.Range.End - 1).Paste
docAct.Range(docAct.Range.End - 1).InsertBreak Type:=0
docNow.Close 0
Next lr
End With
End Sub

Заранее большое спасибо всем, кто откликнулся.


Сообщение отредактировал respector - Понедельник, 11.05.2020, 18:15
 
Ответить
СообщениеДобрый день! Сам я с VBA на вы, даже не так, на !ВЫ!
Есть задача, которую я не могу решить в силу отсутствия опыта.
Задача такая: есть несколько более-менее однотипных файлов WORD, в каждом из которых есть таблица. Задача стоит скопировать (без шапки) последовательно из каждого файла таблицу и объединить в одну в файле WORD.
Код ниже я раскопал на просторах, который делает практически все, что нужно, только копирует содержимое каждого файла полностью. Как его модифицировать так, чтобы он копировал только таблицы из файлов (без шапки)?

Sub MergeFiles()
Dim avFiles, lr As Long
Dim docAct As Document, docNow As Document

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "*.doc*"
.AllowMultiSelect = True
If .Show = False Then Exit Sub
Set docAct = ActiveDocument
For lr = 1 To .SelectedItems.Count
Set docNow = Documents.Open(.SelectedItems(lr))
docNow.Range.Copy
docAct.Range(docAct.Range.End - 1).Paste
docAct.Range(docAct.Range.End - 1).InsertBreak Type:=0
docNow.Close 0
Next lr
End With
End Sub

Заранее большое спасибо всем, кто откликнулся.

Автор - respector
Дата добавления - 11.05.2020 в 16:06
  • Страница 1 из 1
  • 1
Поиск:

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