Excel VBA csv összefűzés

Excel VBA csv összefűzés
2016-01-31T17:47:11+01:00
2016-01-31T19:55:49+01:00
2022-10-15T22:40:43+02:00
Niko
Sziasztok !

2007-es Excel VBA-ban szeretnék rendszeresen sok .csv fájlokat összefűzni (kb 7000 db).

Ez nem működik, mert *-ot nem lehet megadni, hanem pontos filenév kell:

FileCopy "c:\mappa\*.csv", "c:\all.csv"

Ez pedig cmd-s ablakban gyűjti egybe a fileokat:

Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
wsh.Run "cmd /c Copy c:\mappa\*.csv c:\all.csv", windowStyle, waitOnReturn

Van valami a FileCopy-hoz hasonló gyors összefűzési megoldás?

Előre is köszönöm!
Mutasd a teljes hozzászólást!
Szia!

Egyrészt használhatod a dir parancsot a fájlok "begyűjtéséhez".

ujfile =dir("*.csv") do while ujfile<>"" then begyűjtöd a változóban levő neve alapján ujfile=dir() loop
Másrészt nézd meg lsz. a filesystemobject objektumot és a hozzá kapcsolódó help példákat.
Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd