Modifica archivo de excel

[luise32]

Que pena... voy a cambiar un poco el codigo ya que tenia un error...

Dim oExcel As Excel.ApplicationClass
Dim oBooks As Excel.Workbooks
Dim oBook As Excel.WorkbookClass
Dim oSheet As Excel.Worksheet

'Inicia Excel y abre el workbook
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oBooks = oExcel.Workbooks
oBook = oExcel.Workbooks.Add
oSheet = oBook.Sheets(1)

oBook = oBooks.Open("C:\GenerarExcel.xlsx")

Const ROW_FIRST = 3
Dim iRow As Int64 = 1

'' Encabezado
oSheet.Cells(ROW_FIRST, 1) = "ID"
oSheet.Cells(ROW_FIRST, 2) = "Compañía"
oSheet.Cells(ROW_FIRST, 3) = "Contacto"
oSheet.Cells(ROW_FIRST, 4) = "País"

oSheet.Cells(ROW_FIRST, 1).font.bold = True
oSheet.Cells(ROW_FIRST, 2).font.bold = True
oSheet.Cells(ROW_FIRST, 3).font.bold = True
oSheet.Cells(ROW_FIRST, 4).font.bold = True

oSheet.Columns(1).ColumnWidth = 10
oSheet.Columns(2).ColumnWidth = 40
oSheet.Columns(3).ColumnWidth = 30
oSheet.Columns(4).ColumnWidth = 15


'Cierra todo
'oBook.Close(True)
System.Runtime.InteropServices.Marshal. _
ReleaseComObject(oBook)
oBook = Nothing

System.Runtime.InteropServices.Marshal. _
ReleaseComObject(oBooks)
oBooks = Nothing

'oExcel.Quit()
System.Runtime.InteropServices.Marshal. _
ReleaseComObject(oExcel)
oExcel = Nothing


Como esta ahi deberia editarme el archivo que estoy abriendo pero no! :( no se que hacer alguien q por favor me ayude...

PD: para q funcione es necesario agregar la referencia Microsoft Excel 12 que esta en la pestaña COM

despues de agregar esto importen estas librerias

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

Gracias!