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
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как в VBA (Excel 2007) первые листы всех XLS файлов в папке перенести в один XLS файл?