Question : supprimant la dernière rangée des données programatically avant d'importer des données

J'ai un dossier plat qu'I est sauvé dedans excellent le format qu'il a des en-têtes et un titre de bas de page que je voudrais pour se débarasser de avant importer les en-têtes j'ai le code pour puisqu'ils ne changent jamais mais est le dossier aura différent # des rangées ici ce qui j'ai le xlObj du
Dim comme objet, le xlFile
Dim csvFile comme String
csvFile = de « C:\Ipaymetrics.csv "/>xlFile = xlObj du
Set de « C:\Ipaymetrics.xls " = le xlFile
de
xlObj.Workbooks.Open de CreateObject le

ation ») avec le xlObj
. Gamme (« A1 : A13 »). Select
. Extrémité With
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat du
de Selection.EntireRow.Delete
: =6, CreateBackup : le =False
xlObj.Application.DisplayAlerts = xlObj de False
xlObj.Quit
Set = aide de Nothing


Any sera l'appreciated
class= de

Réponse : supprimant la dernière rangée des données programatically avant d'importer des données

Faible xlObj comme objet, xlFile, lastRow en tant que longtemps
Faible csvFile comme corde
csvFile = « C:\Ipaymetrics.csv »

xlFile = « C:\Ipaymetrics.xls »
Placer le xlObj = le CreateObject (« Excel.Application »)
    xlObj.Workbooks.Open xlFile
    Avec le xlObj
         lastRow=.Usedrange.rows.count
        . Gamme (« A » et lastrow). Choisi
        . Selection.EntireRow.Delete
       
    Extrémité avec
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat : =6, CreateBackup : =False
xlObj.Application.DisplayAlerts = faux
xlObj.Quit
Placer le xlObj = rien