add referencias

Question

hola en mi aplicacion me sale este error "" Formato antiguo o tipo de biblioteca no válida. (Excepción de HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"" en mi maquina a donde programe el proyecto me manda los treportes axcel muy bien ahora el probla es que monte el proyecto a la nueva que tiene instalado office 2003 me manda ese error me podrian decir que hacer ya intente cambiara las refernecias y aun nada

 

Dim ApExcel As Object

ApExcel = CreateObject(

"Excel.application")

 

' Hace que Excel se vea

ApExcel.Visible =

True

 

'Agrega un nuevo Libro

ApExcel.WORKBOOKS.ADD()

 

'Poner(Titulos)

ApExcel.cells(1, 4).Formula =

"SISTEMA PLANNER"

ApExcel.cells(1, 4).Font.Size = 20

ApExcel.cells(3, 1).Formula =

"No PARTE"

ApExcel.cells(3, 1).Font.Size = 12

ApExcel.cells(4, 1).Formula = CmbParte.Text

ApExcel.cells(3, 2).Formula =

"ESPECIFICACION"

me manda error en:::ApExcel.WORKBOOKS.ADD() como soluciono el problema

Answer 1

hola

es muy raro este codigo

como es posible que accedas a la celdas usando el objeto ApExcel, cuando agregas el WorkBook este seguro devuelve una instancia de libro que agregas, es en este que debes trabajr las celdas

 

C ó mo automatizar Microsoft Excel desde Visual Basic

Como automatizar Excel desde Visual Basic .NET para rellenar u obtener datos de un rango utilizando matrices

Open and Edit Cells in an Excel 2007 file in VB.NET

 

en el primer link usa

Set oWB = oXL.Workbooks.Add

siendo oWB del tipo Excel.Workbook

y de este obtienes un Sheet, alli es dodne debes agregar las celdas, en el ejmeplo usa

 oSheet.Cells(1, 1).Value = "First Name"

saludos

---

Leandro Tuttini

Blog
Buenos Aires
Argentina