список файлов в папке vba



Vba excel список файлов в папке

Автор Промышленные дымососы задал вопрос в разделе Другие языки и технологии

Как в VBA (Excel 2007) первые листы всех XLS файлов в папке перенести в один XLS файл? и получил лучший ответ

Ответ от Alexey N[гуру]
По очереди открываете все листы, копируете лист, вставляете в результирующий файл в новый лист. Относительно несложно, но может профукатся ширина колонок и чето еще по мелочи. На VBA за полчасика можно нарисовать.

Ответ от Kay[гуру]
Сразу скажу это не мой макрос, где-то сдернул в инете, но работает практически так как ты хочешь, после запуска макроса он запросит папку в которой надо провести сбор листов, в папке выделяешь все листы и все.. . Sub CombineWorkbooks() Dim Fi

Ответ от Алексей Матевосов (AlexM)[гуру]
Код макроса Sub Macros() Set wshell = CreateObject("Shell.Application") On Error Resume Next Set iPath = wshell.BrowseForFolder(0, " Выберите папку.... ", &H4000, "C:\") If Not iPath Is Nothing Then FolderPath = iPath.Items.It

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как в VBA (Excel 2007) первые листы всех XLS файлов в папке перенести в один XLS файл?

На карте памяти в фотоаппарате папка с фото превратилась в ярлык (из-за вируса) и не открывается, а там ОЧЕНЬ НУЖНЫЕ фото
В свойствах (параметрах) папок, во вкладке "вид" выберите опцию "показывать скрытые файлы и папки"
подробнее...

восстановить файл
Для этого нужно проГУГЛить "скачать бесплатно R-Studio rus + лекарство". Лекарство - это ключик.подробнее...

Восстановка фотографий!
Вариант
Hetman Data Recovery – пакет программ для восстановления данных. В пакет входят Hetman
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*