VBA minden csv fájl importálása egy könyvtárból
2021-04-18T06:37:04+02:00
2021-04-19T17:33:50+02:00
2022-08-12T02:10:30+02:00
amatore
Sziasztok,

Egy könyvtárból (ahol a makrós fájl van) szeretném az összes csv fájl adatait importálni egy Excel fájlba. Azonban csak a makrós fájl fölötti csv fájlokat importálja a makró, az alatta levőket nem. Eddig jutottam el a makróval:


Sub ImportCsv()
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim wsTarget As Worksheet
        Set wsTarget = ActiveWorkbook.Sheets("csv")
    wsTarget.Visible = True
    Dim frowt As Integer
        frowt = 2
 
'Import data
    Dim FOLDER_PATH As String
        FOLDER_PATH = Application.ActiveWorkbook.Path & ""
    Dim files As String
        files = Dir(FOLDER_PATH & "\*.csv")
    Dim wbs As Workbook
    Dim wss As Worksheet
    
    Do While files <> ""
    
        Set wbs = Workbooks.Open(FOLDER_PATH & files, False, False, , , , True)
        Set wss = wbs.Sheets(1)
        Dim lrows As Integer
            lrows = wss.Cells(Rows.Count, 1).End(xlUp).Row
        Dim i As Integer
        For i = 2 To lrows
            If wss.Range("A" & i).Value <> "" Then
                wsTarget.Range("A" & frowt).Value = wss.Range("A" & i).Value
                frowt = frowt + 1
            End If
        Next i
        wbs.Close SaveChanges:=False
        files = Dir()
           
    Loop
    Set wss = Nothing
    Set wbs = Nothing
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
 
End Sub


Azzal, hogy "*.csv"-vel határozom meg a fájlokat, nem kellene az összes csv fájlt beimportálnia az Excel fájlba?
Köszönök bármilyen segítséget.


Üdv,
Mutasd a teljes hozzászólást!
Szia,

Azzal csak egy file elérési útját kapod meg.

Ezt alkalmazd:

Dim oFSO As Object Dim oFolder As Object Dim oFile As Object Dim i As Integer Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("SAJÁT MAPPA") For Each oFile In oFolder.Files Cells(i + 1, 1) = oFile.Name i = i + 1 Next oFile
Mutasd a teljes hozzászólást!

abcd