Home Forums SQL Server 2008 SQL Server Newbies Need to delete last row in Excel sheet using SSIS script task RE: Need to delete last row in Excel sheet using SSIS script task

  • try using sql script task-

    Dim filename As String

    Dim appExcel As Object

    Dim newBook As Object

    Dim oSheet1 As Object

    Dim cell As String

    Dim rowcount As Int16

    appExcel = CreateObject("Excel.Application")

    filename = "C:\Documents and Settingsbkrrov\Desktop\test.xls"

    appExcel.DisplayAlerts = False

    newBook = appExcel.Workbooks.Open(filename)

    oSheet1 = newBook.worksheets("Sheet1")

    rowcount = oSheet1.UsedRange.Rows.Count()

    cell = "A" + rowcount.ToString

    oSheet1.Range(cell).Entirerow.Delete()

    With newBook

    .SaveAs(filename, FileFormat:=56)

    End With

    appExcel.Workbooks.Close()

    appExcel.Quit()

    Thanks

    Sneh