Vba excel список файлов в папке
Автор Промышленные дымососы задал вопрос в разделе Другие языки и технологии
Как в VBA (Excel 2007) первые листы всех XLS файлов в папке перенести в один XLS файл? и получил лучший ответ
Ответ от Alexey N[гуру]
По очереди открываете все листы, копируете лист, вставляете в результирующий файл в новый лист. Относительно несложно, но может профукатся ширина колонок и чето еще по мелочи. На VBA за полчасика можно нарисовать.
Ответ от Kay[гуру]
Сразу скажу это не мой макрос, где-то сдернул в инете, но работает практически так как ты хочешь, после запуска макроса он запросит папку в которой надо провести сбор листов, в папке выделяешь все листы и все.. . Sub CombineWorkbooks() Dim Fi
Сразу скажу это не мой макрос, где-то сдернул в инете, но работает практически так как ты хочешь, после запуска макроса он запросит папку в которой надо провести сбор листов, в папке выделяешь все листы и все.. . 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
Код макроса 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
подробнее...