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 originalImports Microsoft.Office.Interop.Excel
Public Function loadData(ByVal datos)
Dim xlApp = New Excel.Application
Dim xlBook = New Excel.Workbook
Dim INCData As New Excel.Worksheet
xlBook = xlApp.ActiveWorkbook
INCData = xlBook.Worksheets(2)
If datos = "INC" Then
xlFila = 2
xlColumna = 1
With INCData
'.Activate()
.Range(.Range("A2"), .Range("S2").End(Excel.XlDirection.xlDown)).Clear()
numReg = UBound(Rs.GetRows(), 2) + 1
Rs.MoveFirst()
While Not Rs.EOF
xlColumna = 1
For i = 0 To Rs.Fields.Count - 1
.Cells(xlFila, xlColumna) = Rs(i).Value
xlColumna = xlColumna + 1
Next i
xlFila = xlFila + 1
Rs.MoveNext()
End While
End With
Else
'ACCIONES CUANDO SON WO
End If
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.