Уважаемые знатоки экселя!
Я когда то скопировал макрос Николая Павлова и Дмитрия Щербакова (для меня - пророки экселя) по копированию листов в новую книгу.
В отличии от других макросов, листы копируются с именами и расширениями файлов. Как чайник по экселю хотел изменить макрос так, что бы листы копировались бы без расширения. Но, увы, старания не привели к успеху. Наверно, профессионалам экселя это смешно, но хотел сказать, что в пути знания наверно и Вы начали быть "духом" ..))). Кто то может помочь хотя бы намекнуть, что делать?
Я когда то скопировал макрос Николая Павлова и Дмитрия Щербакова (для меня - пророки экселя) по копированию листов в новую книгу.
Код |
---|
Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer Application.ScreenUpdating = False 'отключаем обновление экрана для скорости 'вызываем диалог выбора файлов для импорта FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Excel files (*.xls), *.xls", _ 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(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = importWB.Name importWB.Close 'savechanges:=False x = x + 1 Wend Application.ScreenUpdating = True End Sub |