Import z viacerých zdrojov

Sub importujData()

    Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    directory = "c:\Test\"
    fileName = Dir(directory & "*.xl??")

    Do While fileName <> ""
        Workbooks.Open (directory & fileName)
    Loop

    For Each sheet In Workbooks(fileName).Worksheets
        total = Workbooks("import-sheets.xls").Worksheets.Count
        Workbooks(fileName).Worksheets(sheet.Name).Copy _
                after:=Workbooks("import-sheets.xls").Worksheets(total)
    Next sheet


    Workbooks(fileName).Close
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub