Questione : cancellando l'ultima fila dei dati programatically prima dell'importazione dei dati

Ho una lima piana che la I è conservata dentro eccelle la disposizione che ha le intestazioni e una persona alta un dato numero di piedi di che vorrei liberarmi prima dell'importazione delle intestazioni ho il codice per poiché non cambiano mai ma la lima avrà differente # delle file qui è che cosa il xlObj del
Dim come oggetto, xlFile
Dim csvFile come String
csvFile = “di C:\Ipaymetrics.csv "/>xlFile = xlObj del
Set “di C:\Ipaymetrics.xls " = xlFile
del
xlObj.Workbooks.Open di CreateObject il

ation„) con xlObj
. Gamma (“A1: A13„). Select
. Estremità With
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat del
di Selection.EntireRow.Delete
: =6, CreateBackup: il =False
xlObj.Application.DisplayAlerts = xlObj di False
xlObj.Quit
Set = aiuto di Nothing


Any sarà appreciated
class= del

Risposta : cancellando l'ultima fila dei dati programatically prima dell'importazione dei dati

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
Altre soluzioni  
 
programming4us programming4us