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!

the file open in excel ? and you drive it from VB?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.