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:
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()
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
Az oFSO-val mit definiálsz? Csak hogy okosodjak is, és legközelebb tudjam alkalmazni.
Amúgy nagyon köszönöm. Csak délután fogo tudni kipróbálni, de jónak tűnik, úgyhogy megy a pont.