VBA/Macro om van 2 csv bestanden beide kopregels te verwijderen

[Nappie84]

Hallo,

Wie kan mij code aanvullen, op het forum kan ik niet direct iets vinden waar ik naar op zoek ben.

In de map D:\Downloads\Test\ staan 2 csv bestanden:
search123456.csv
search1234567.csv

Elke week worden hier 2 nieuwe bestanden geplaatst die achter search telkens nieuwe reeks krijgen.
Het is de bedoeling dat ik van beide csv bestanden de eerste regel verwijderen.
Met onderstaande VBA code lukt het mij alleen om van het 1ste csv bestand de kopregel te verwijderen, het 2de bestand wordt niet aangepast.

Dim xlObj As Object
Dim File As String, Path As String

Path = "D:\Downloads\Test\"
File = Dir(Path & "*.csv")

Set xlObj = CreateObject("excel.Application")
    xlObj.Workbooks.Open (Path & File)
    With xlObj
        .Worksheets(1).Select
        .Range("A1:A1").EntireRow.Delete
        .ActiveWorkbook.Save
        .DisplayAlerts = False
        .ActiveWorkbook.Close
    End With
    xlObj.Quit

Wie kan mij op weg helpen zodat van beide bestanden de kopregel worden verwijderd?

 

[edmoor]

Probeer het eens zo:

Dim xlObj As Object
Dim File As String, Path As String

Path = "D:\Downloads\Test\"
File = Dir(Path & "*.csv")

Set xlObj = CreateObject("excel.Application")
While File <> ""
    With xlObj
        .Workbooks.Open (Path & File)
        .Worksheets(1).Select
        .Range("A1:A1").EntireRow.Delete
        .ActiveWorkbook.Save
        .DisplayAlerts = False
        .ActiveWorkbook.Close
    End With
    File = Dir()
Wend
xlObj.Quit
Set xlObj = Nothing

 

[Nappie84]

Edmoor, het werkt, precies waar ik naar op zoek was! dank voor de hulp.

 

[HSV]

Dit stukje kan nog wel iets anders geschreven.

With xlObj
        .Workbooks.Open (Path & File)
        .Worksheets(1).rows(1).Delete
        .DisplayAlerts = False
        .ActiveWorkbook.Close true
       .diplayalerts = true
    End With

 

[snb]

Sub M_snb()
   c00=createobject("scripting.filesystemobject").opentextfile("D:\Downloads\Test\nieuw.csv").readall
   createobject("scripting.filesystemobject").createtextfile("D:\Downloads\Test\nieuw.csv").write mid(c00,instr(c00,vbcrlf)+1)
end sub