-Поиск по дневнику

Поиск сообщений в Делюсь_с_вами

 -Подписка по e-mail

 

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 12.11.2007
Записей:
Комментариев:
Написано: 483

Как соединить несколько файлов Excel в один

Дневник

Воскресенье, 29 Июля 2012 г. 18:08 + в цитатник
Martiny (Делюсь_с_вами) все записи автора

Как объединить несколько файлов Excel в один

 
Бывает много схожих по тематике файлов Excel, а почему не попробовать объединить их в одну книгу?
Открываем файл Excel, куда хотим внести данные из других файлов, входим в редактор Visual Basic (Alt+F11), добавляем новый пустой модуль (Insert - Module) и копируем туда текст вот такого макроса:
­
Sub CombineWorkbooks() 
    Dim FilesToOpen 
    Dim x As Integer 
    On Error GoTo ErrHandler 
    Application.ScreenUpdating = False 
    FilesToOpen = Application.GetOpenFilename _ 
                  (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _ 
                   MultiSelect:=True, Title:="Files to Merge") 
    If TypeName(FilesToOpen) = "Boolean" Then 
        MsgBox "Не выбрано ни одного файла!" 
        GoTo ExitHandler 
    End If 
    x = 1 
    While x <= UBound(FilesToOpen) 
        Workbooks.Open Filename:=FilesToOpen(x) 
        Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 
        x = x + 1 
    Wend 
ExitHandler: 
    Application.ScreenUpdating = True 
    Exit Sub 
ErrHandler: 
    MsgBox Err.Description 
    Resume ExitHandler 
End Sub

Далее возвращаемся в Excel (File - Close and Return to Microsoft Excel) и запускаем созданный макрос через меню (Сервис - Макрос - Макросы). Отобразится диалоговое окно открытия файла, где необходимо указать один или несколько (удерживая Ctrl) файлов, листы из которых надо добавить к текущей книге.

источник

От меня

Метки:  

 Страницы: [1]