arbeiten in csv Datei

Sub test()
Dim strFile As String
Dim strPath As String
Dim strExt As String
Dim ZWB As Workbook
Dim OWB As Workbook
Dim lngRow As Long
strPath = "G:\xxx\xxx\"
strExt = "*.csv"
If strPath = "" Then Exit Sub
strFile = Dir$(strPath & strExt)
Do Until strFile = vbNullString
Set ZWB = ThisWorkbook
Workbooks.Open Filename:=(strPath & strFile), Local:=True
Set OWB = Workbooks(strFile)
With ZWB.Worksheets("Import")
ThisWorkbook.Worksheets("Import").Columns("D:D").Copy
OWB.Worksheets(1).Columns("D:D").PasteSpecial xlPasteValues
OWB.Worksheets(1).Columns("C:C").Delete Shift:=xlToLeft
OWB.Worksheets(1).Columns("A:A").Delete Shift:=xlToLeft
End With
OWB.Close SaveChanges:=True
strFile = Dir$ ' nächste Datei
Loop
Set OWB = Nothing
End Sub