Добрый день.
Нашёл код
Код замечательно работает.
Но столкнулся с проблемой, что нужен выбор данных по умолчанию из заранее прописанной ссылки в макросе (должны забираться все CSV файлы из прописанной папки, но в папке могут лежать файлы и других форматов).
Буду рад если у кого-то возникнут идеи, что нужно переделать в этом коде.
Нашёл код
Код |
---|
Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer Application.ScreenUpdating = False 'отключаем обновление экрана для скорости 'вызываем диалог выбора файлов для импорта FilesToOpen = Application.GetOpenFilename _ (FileFilter:="All files (*.*), *.*", _ MultiSelect:=True, Title:="Files to Merge") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "Не выбрано ни одного файла!" Exit Sub End If 'проходим по всем выбранным файлам x = 1 While x <= UBound(FilesToOpen) Set importWB = Workbooks.Open(Filename:=FilesToOpen(x)) Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) importWB.Close savechanges:=False x = x + 1 Wend Application.ScreenUpdating = True End Sub |
Код замечательно работает.
Но столкнулся с проблемой, что нужен выбор данных по умолчанию из заранее прописанной ссылки в макросе (должны забираться все CSV файлы из прописанной папки, но в папке могут лежать файлы и других форматов).
Буду рад если у кого-то возникнут идеи, что нужно переделать в этом коде.