Hello!

I'm fairly new to VB, but I have some C, C++ background.

I'm trying to open an existing Excel Document, and add data in specific cells from Text box inputs in my VB program. However I cannot seem to be able to do this.

The closest I've gotten was to Open the document, and save data, but it erases the items that were already in that document when I go to save it again.

Can anyone help me out with this?

Here's what I have so far, haven't incorporated getting the data from the Text boxes yet - as I wanted to ensure the saved document would have the added information, along with the pre-existing data.

Dim oExcel As Excel.Application = New Excel.Application
          oExcel.Workbooks.Open("C:\J\Test.xls")
          Dim oBook As Object
          Dim oSheet As Object
   
          oBook = oExcel.Workbooks.Add
   
          'Add data to cells of the first worksheet in the new workbook.
          oSheet = oBook.Worksheets(1)
          oSheet.Range("A1").Value = "Last Name"
          oSheet.Range("B1").Value = "First Name"
          oSheet.Range("A1:B1").Font.Bold = True
          oSheet.Range("A2").Value = "Doe"
          oSheet.Range("B2").Value = "John"
  
          'Save the Workbook and quit Excel.
          oBook.SaveAs("C:\J\Test3.xls")
          oSheet = Nothing
          oBook = Nothing
          oExcel.Quit()
          oExcel = Nothing
          GC.Collect()

Thank you for any help!

This article has been dead for over six months. Start a new discussion instead.