Schemerige xlObj als xlFile Voorwerp, lastRow zoals lang
Schemerige csvFile als Koord
csvFile = „C:\Ipaymetrics.csv“
xlFile = „C:\Ipaymetrics.xls“
Reeks xlObj = CreateObject („Excel.Application“)
xlFile xlObj.Workbooks.Open
Met xlObj
lastRow=.Usedrange.rows.count
. Waaier („A“ & lastrow). Selecteer
. Selection.EntireRow.Delete
Eind met
csvFile xlObj.ActiveWorkbook.SaveAs, FileFormat: =6, CreateBackup: =False
xlObj.Application.DisplayAlerts = Vals
xlObj.Quit
Reeks xlObj = niets