Vraag : programatically schrappend de laatste rij van gegevens alvorens in te voeren gegevens

Ik heb een vlak dossier dat I binnen uitblinkt formaat wordt bewaard het kopballen heeft en footer die ik zou willen van de hand doen alvorens de kopballen in te voeren ik de code heb voor aangezien zij nooit veranderen zal maar het dossier verschillend # van rijen hier is wat heb ik
Dim xlObj als Voorwerp, xlFile
Dim csvFile als String
csvFile = „C:\Ipaymetrics.csv "

xlFile = „C:\Ipaymetrics.xls "
Set xlObj = CreateObject („Excel.Application“)
xlObj.Workbooks.Open xlFile
met xlObj
hebben. Waaier („A1: A13“). Select
. Het Eind van Selection.EntireRow.Delete

csvFile With
xlObj.ActiveWorkbook.SaveAs, FileFormat: =6, CreateBackup: =False
xlObj.Application.DisplayAlerts = False
xlObj.Quit
Set xlObj = de hulp/>
Any van Nothing

zijn

Antwoord : programatically schrappend de laatste rij van gegevens alvorens in te voeren gegevens

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
Andere oplossingen  
 
programming4us programming4us