Frage : die letzte Reihe von Daten vor dem Import von Daten programatically löschen

Ich habe eine flache Akte, dass I innen übertreffen Format gespeichert wird, das es Überschriften und ein Seitenende hat, die vor dem Import der Überschriften ich möchte, dass loswerden, ich den Code für habe, da sie nie ändern, aber die Akte unterschiedliches # der Reihen hier ist, was ich
Dim xlObj als Gegenstand habe, das xlFile
Dim, das als String
csvFile = „C:\Ipaymetrics.csv "/>xlFile = „C:\Ipaymetrics.xls "
Set xlObj = CreateObject

ation“)
xlObj.Workbooks.Open xlFile
mit xlObj
. Strecke („A1: A13“). Select
. Selection.EntireRow.Delete

Ende With
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat: =6, CreateBackup: =False
xlObj.Application.DisplayAlerts = False
xlObj.Quit
Set xlObj = Nothing


Any Hilfe ist appreciated

Antwort : die letzte Reihe von Daten vor dem Import von Daten programatically löschen

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
Weitere Lösungen  
 
programming4us programming4us