Schwaches xlObj als Gegenstand, xlFile, lastRow als lang
Schwaches csvFile als Schnur
csvFile = „C:\Ipaymetrics.csv“
xlFile = „C:\Ipaymetrics.xls“
xlObj = CreateObject („Excel.Application“) einstellen
xlObj.Workbooks.Open xlFile
Mit xlObj
lastRow=.Usedrange.rows.count
. Strecke („A“ u. lastrow). Auserwählt
. Selection.EntireRow.Delete
Ende mit
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat: =6, CreateBackup: =False
xlObj.Application.DisplayAlerts = falsch
xlObj.Quit
xlObj einstellen = nichts