перенос данных из множества книг

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

перенос данных из множества книг (Иное/Other)

realvar

Дата: Воскресенье, 15.03.2015, 16:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Приветствую. Интересная у меня встала проблема:)
Имеется несколько сот файлов excell, у каждого уникальное имя, и каждый заархивирован RAR ом.
Но в каждом файле есть лист "Транзит", где уже выделен диапозон с данными.
Нужно скопировать эти данные из каждого файла на лист новой книги , для дальнейшей манипуляции с получившимся массивом.
Предложите варианты решения плиз, голову сломал...

Ответить

Manyasha

Дата: Воскресенье, 15.03.2015, 19:25 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

realvar, здравствуйте. Разархивировать файл можно так: [vba]

Код

Dim sWinRarApp As String, sPath As String, sArhivName As String, vUnRar
      sWinRarApp = "C:\Program Files\WinRAR\WinRAR.exe e -o+"
      sPath = "C:\": sArhivName = "книга1.rar"
      vUnRar = Shell(sWinRarApp & " """ & sPath & sArhivName & """ """ & sPath & """ ", vbHide)

[/vba] (код не мой, к сожалению с какого сайта брала уже не помню).

Поищите на форуме , как получить список файлов в папке, пример тут:http://www.excelworld.ru/forum/2-16291-1#135753 Ну и для объединения файлов тоже можно найти готовый макрос.

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Воскресенье, 15.03.2015, 19:25

Ответить

перенос данных из множества книг (Иное/Other)

Страница 1 из 1
1