Вопрос : уничтожающ последний рядок данных programatically перед импортировать данные

Я имею плоский остроносый напильник что I сохранено внутри первенствует форма, котор оно имеет коллекторы и сноску я хотел был бы для того чтобы получить освобожданным перед импортировать коллекторы я имею Кодего для в виду того что они никогда не изменяют но архив будет иметь по-разному # рядков здесь я имею xlObj
Dim как предмет, xlFile
Dim csvFile как String
csvFile = «C:\Ipaymetrics.csv "/>xlFile = xlObj
Set «C:\Ipaymetrics.xls " =
xlObj.Workbooks.Open CreateObject

ation») xlFile
с xlObj
. Ряд («A1: A13»). Select
. Конец With
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat
Selection.EntireRow.Delete
: =6, CreateBackup: =False
xlObj.Application.DisplayAlerts = xlObj False
xlObj.Quit
Set = помощь Nothing


Any будет appreciated
class=

Ответ : уничтожающ последний рядок данных programatically перед импортировать данные

Тусклое xlObj как предмет, xlFile, lastRow как длиной
Тусклое csvFile как шнур
csvFile = «C:\Ipaymetrics.csv»

xlFile = «C:\Ipaymetrics.xls»
Установите xlObj = CreateObject («Excel.Application»)
    xlObj.Workbooks.Open xlFile
    С xlObj
         lastRow=.Usedrange.rows.count
        . Ряд («a» & lastrow). Отборно
        . Selection.EntireRow.Delete
       
    Конец с
xlObj.ActiveWorkbook.SaveAs csvFile, FileFormat: =6, CreateBackup: =False
xlObj.Application.DisplayAlerts = ложно
xlObj.Quit
Установите xlObj = ничего