Hola alan_69niupi,
Gracias por tan pronta respuesta.
Fijate que intente adaptar el codigo que compartiste, pero...
Por ejemplo usas el
libros_trabajo = aplicacion.Workbooks.Add();
Pero no necesito abrir un nuevo libro de excel porque de hecho desde donde mando llamar a la función es desde el mismo excel. Probablemente, estoy haciendo algo mas (Es lo mas seguro
) Esta es mi adaptación de tu codigo:
Código vb:
Ver originalPublic Function loadData(ByVal datos)
Dim xlApp = New Excel.Application()
Dim xlBook = xlApp.ThisWorkbook() '<---- Aquí me marca la excepción.
Dim INCData = xlBook.Worksheets.Item(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
End If
End Function
Ahora obtengo una excepción del COM
Excepción de HRESULT: 0x800A03EC
Ya no me dice que tengo que declararla como new.
De antemano agradezco tu ayuda.
Saludos.