Импорт данных из нескольких Excel файлов в Word

[DJTreeno]

Доброго всем времени суток!

У меня имеется очень много эксель файлов с нумерацией имен от 1 до 100 в них одинаковые диапазоны ячеек, которые надо перенести в один файл ворда. Макрорекодер мне не помог понять как сослаться на диапазон имен файлов в указанной папке и на диапазон ячеек в каждом файле (не меняется). Знаю должен быть цикл, но руки связаны, помогите пожалуйста.

Таблицы нужно, чтобы в ворде шли отдельно с нового абзаца например, т.е. не сливались друг с другом.
Из екселя вставлялись в ворд так, если бы мы просто выделили нужный диапазон и нажали сtrl+c, а в ворде нажали бы ctrl+v.
Пожалуйста помогите!!!

[Пименов Александр]

Вышлите 3-4 экселевских таблицы, есть наработки

[DJTreeno]

Уважаемый, Пименов Александр, думаю нет необходимости высылать таблицы, ибо ничего в них военного нет, просто любой диапазон выделяем ctrl+c и в word сtrl+v. Только из-за огромного количества екселевских файлов, такую операцию сложно проделывать. Нужен цикл, но как обратиться к файлам в папке на одинаковый диапазон и еще и вставлять таблицы с абзаца или через строку, ума не приложу.

[Пименов Александр]

Вот код, который работает, проверил на нескольких десятках файлов. Но он сделан как Вы и просили лишь эскизно, без проверок ошибок и улучшений форматирования таблиц, а также в последствии без связи с таблицами Exel.
То есть вы выбираете файлы, вводите имя диапазона и все таблицы вставляются в Word

[DJTreeno]

Пока получилось пробежаться циклом по каждому ексель файлу
Sub ПолучитьДанные()
'
' Макрос2 Макрос
'
'
Dim Message, Title
Message = "Путь к папке" ' Set prompt.
Title = "Ввод"
vPath = InputBox(Message, Title)

Dim xPath
Dim i
Dim r
Dim iSheetName
Dim xlWs As Excel.Worksheet

xPath = vPath

iSheetName = "Отчет"





r = 0
' Получение имени первого файла
i = Dir(xPath & "\")
Do While i <> ""
r = r + 1
'Cells(r, 1) = i
With wdApp.Documents.Open(ThisWorkbook.P ath & i)


' Получение имени следующего файла
i = Dir
Loop







End Sub

Но как обратиться к закрытой книге, ума не приложу(((

[DJTreeno]

Все задача решена своими силами))) Ура!!!