Կարեն և Գայանե Եղիազարյաններ
Կայքի բաժիներ
Translate
Օրացույց
«  Փետրվար 2013  »
ԵրկԵրքՉորՀինՈւրբՇթԿիր
    123
45678910
11121314151617
18192021222324
25262728
Անիմացիաներ
Հարցում
Գնահատեք կայքս
Ընդամենը. 26
Մուտքի ձև
Մյուս կայքերը
  • Մեր բալիկը
  • Անձնական կայք
  • Ծրագրեր
  • Главная » 2013 » Փետրվար » 12 » Как объединить несколько файлов Excel в один
    00:18
    Как объединить несколько файлов 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) и запускаем созданный макрос нажатием Alt+F8. Отобразится диалоговое окно открытия файла, где необходимо указать один или несколько (удерживая Ctrl) файлов, листы из которых надо добавить к текущей книге.
    Просмотров: 6675 | Добавил: Egho | Теги: Как объединить несколько файлов Exc | Рейтинг: 5.0/1
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    Որոնում
    Реклама
    Տարադրամ
    Տեգեր
    Կարգավիճակ

    Ընդամենը ցանցում. 1
    Հյուրեր. 1
    Օգտագործողներ 0

    Բրուզերի տեսակն ու տարբերակը՝
    Ձեր հասցեն՝ 54.221.93.187

    Egho Software © 2017-2013