How to append Data to an existing Excel file?

[premMS143]

How to append Data to an existing Excel file?
means,
I'm using VB as front end & once I exported the data to Excel file & saved it as 'ABC.xls'.

Now, the question/doubt is;
I addded some more records in VB.
Now if I want to export these newly updated records to an already existing file 'ABC.xls' what shall I do..?
Could anybody help me...? Pls....


Thanks in advance.
Waiting for your answer.

[mrmelvin]

This solution will help you find the first empty row number in a spreadsheet. After you know that number you would used the standard expression like worksheet.range("A1").value.

Dim excelApp As Excel.Application = New Excel.Application()
Dim excelBook As Excel.Workbook
Dim strPath As String = "C:\Documents and Settings\All Users\Documents\Intranet\Sysco ARL\uniqueinv-20081201-024-ALL.xls"
excelBook = excelApp.Workbooks.Open(strPath, 0, False, 5, _
System.Reflection.Missing.Value, System.Reflection.Missing.Value, _
False, System.Reflection.Missing.Value, System.Reflection.Missing.Value, _
True, False, System.Reflection.Missing.Value, False)
Dim excelSheets As Excel.Sheets = excelBook.Sheets
Dim excelSheet As Excel.Worksheet = excelSheets(1)
Dim excelRange As Excel.Range = excelSheet.UsedRange
excelRange.SpecialCells(Excel.XlCellType.xlCellTyp eLastCell).Activate()
Dim intNewRow As Int32 = excelApp.ActiveCell.Row + 1
Dim strNewCellAddress As String = "A" & intNewRow
excelSheet.Range(strNewCellAddress).Value = "this data goes in the first empty row"
excelBook.Save()
excelBook.Close()
excelApp.Quit()

[premMS143]

ThanQ for your reply SIr.
I will try it.

Thanks & regards,
Prem

[Kolags]

Thank you mrmelvin.
Your Solution is prefectly suitable to my problem.