Ver Mensaje Individual
  #5 (permalink)  
Antiguo 14/08/2013, 10:26
darkprogrammer
 
Fecha de Ingreso: octubre-2012
Ubicación: Piedras Negras
Mensajes: 8
Antigüedad: 12 años, 1 mes
Puntos: 0
Respuesta: Proyecto VB Studio 2010 para Excel

Hola alan_69niupi,

Creo que estoy un poco aunque diría mucho, hehehe... perdido.

Se supone que el proyecto lo estoy construyendo sobre excel, de hecho dentro del visual studio tengo mi libro de excel abierto y puedo modificarlo sin problemas directamente sobre el libro.

He revisado las referencias del proyecto y si tengo cargadas las de Microsoft.Office.Interop.Excel de la versión 14 que es la que estoy usando, aun así hice la importación tal como me sugeriste.

El codigo quedó así:
Código vb:
Ver original
  1. Imports Microsoft.Office.Interop.Excel
  2.     Public Function loadData(ByVal datos)
  3.         Dim xlApp = New Excel.Application
  4.         Dim xlBook = New Excel.Workbook
  5.         Dim INCData As New Excel.Worksheet
  6.         xlBook = xlApp.ActiveWorkbook
  7.         INCData = xlBook.Worksheets(2)
  8.         If datos = "INC" Then
  9.             xlFila = 2
  10.             xlColumna = 1
  11.             With INCData
  12.                 '.Activate()
  13.                .Range(.Range("A2"), .Range("S2").End(Excel.XlDirection.xlDown)).Clear()
  14.                 numReg = UBound(Rs.GetRows(), 2) + 1
  15.                 Rs.MoveFirst()
  16.                 While Not Rs.EOF
  17.                     xlColumna = 1
  18.                     For i = 0 To Rs.Fields.Count - 1
  19.                         .Cells(xlFila, xlColumna) = Rs(i).Value
  20.                         xlColumna = xlColumna + 1
  21.                     Next i
  22.                     xlFila = xlFila + 1
  23.                     Rs.MoveNext()
  24.                 End While
  25.             End With
  26.         Else
  27.             'ACCIONES CUANDO SON WO
  28.        End If
  29.     End Function

Cuando no declaro como new el workbook me dice que no está declarado y que tengo que hacerlo, pero si lo declaro, entonces me manda el mensaje de error del COM que describí anteriormente.


Excepción de HRESULT: 0x800A03EC

Saludos,
Erick.