Import VBA

Sub importujData()

    Dim adresar As String, menoSuboru As String, harok As Worksheet, pocetHarkov As Integer

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' Inicializovat premennú adresara.
    ' Najdeme prve subory cez reg. vyraz *.xl?? uložené v tomto adresári
    adresar = "C:\Test\"
    menoSuboru = Dir(adresar & "*.xl??")

    ' Neexistuje žiadny jednoduchý spôsob, ako kopírovat harky z uzavretých súborov Excel.
    ' Z tohto dôvodu otvorame jednotlive súbory programu Excel.

    Do While menoSuboru <> ""
        Workbooks.Open (adresar & menoSuboru)
        For Each harok In Workbooks(menoSuboru).Worksheets
            pocetHarkov = Workbooks("import-sheets.xlsm").Worksheets.Count
            Workbooks(menoSuboru).Worksheets(harok.Name).Copy _
                    after:=Workbooks("import-sheets.xlsm").Worksheets(pocetHarkov)
        Next harok

        Workbooks(menoSuboru).Close
        'Ked prejdeme vsetky názvy súborov, funkcia Dir vráti retazec nulovej dlžky ("").
        ' V dôsledku opustit cyklus
        menoSuboru = Dir()
    Loop

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub