xlObj fioco come oggetto, xlFile, lastRow come lungamente
csvFile fioco come stringa
csvFile = “C:\Ipaymetrics.csv„
xlFile = “C:\Ipaymetrics.xls„
Regolare il xlObj = CreateObject (“Excel.Application„)
xlObj.Workbooks.Open xlFile
Con xlObj
lastRow=.Usedrange.rows.count
. Gamma (“A„ & lastrow). Prescelto
. Selection.EntireRow.Delete
Estremità con
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat: =6, CreateBackup: =False
xlObj.Application.DisplayAlerts = falso
xlObj.Quit
Regolare il xlObj = niente