[SOLUCIONADO] Proyecto VB Studio 2010 para Excel

[darkprogrammer]

Buen día,

Pues me acerco a ustedes con una duda muy grande (para mi que no soy experto en .net).

Antes que nada los pongo en antecedentes:

Estoy creando un proyecto en Visual Basic (Visual Studio 2010) para Excel, el proyecto esta creado y algunas cosas ya funcionan como yo quiero.

El problema empieza donde realizo una consulta a una base de datos e intento poner los resultados en una hoja (hoja2) me arroja el siguiente error:
Referencia a objeto no establecida como instancia de un objeto.

NullReferenceException was unhandled by user code

El error me lo presenta en esta parte del codigo:

Código vb:

Public Function loadData(ByVal datos)
        Dim INCData As New Hoja2
        If datos = "INC" Then
            xlFila = 2
            xlColumna = 1
            With INCData
                .Activate() '<----- Aquí es donde me marca el error
                .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
 

Incluso si comento esa línea me marca el error en la siguiente, todo lo que tenga que ver con hacer referencia a la hoja me arroja ese error y en el troobleshooting tips me envía el siguiente link:
Use the "new" keyword to create an object instance.

Hasta el momento he intentado todo lo que se me ocurre, declarar la hoja como nueva, declararla en un modulo como publica, etc, etc... Pero hasta el momento nada me ha dado resultado.

Espero me puedan ayudar.

Saludos.

[alan_69niupi]

Microsoft.Office.Interop.Excel.Application aplicacion;
Microsoft.Office.Interop.Excel.Workbook libros_trabajo;
Microsoft.Office.Interop.Excel.Worksheet hoja_trabajo;
aplicacion = new Microsoft.Office.Interop.Excel.Application();
libros_trabajo = aplicacion.Workbooks.Add();
hoja_trabajo =
(Microsoft.Office.Interop.Excel.Worksheet)libros_t rabajo.Worksheets.get_Item(1);

el uno lo reemplazas por dos esto es C# pero puedes pasar el código a VB. espero te ayude
saludos!!!

[darkprogrammer]

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:

Public 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.

[alan_69niupi]

'Crear una referencia a Microsoft Excel 12.0
'El numero 12.0 hace referencia a MS Office 2007.
'El numero 11.0 haria referencia a MS Office 2003.
'esta parte de codigo es para hablar al Office 2007
Imports Microsoft.Office.Interop
'esta parte de codigo es para hablar al Office 2003
'Imports Microsoft.Vbe.Interop

Dim m_Excel As New Excel.Application
m_Excel.Cursor = Excel.XlMousePointer.xlWait
m_Excel.Visible = True
Dim objLibroExcel As Excel.Workbook = m_Excel.Workbooks.Add
Dim objHojaExcel As Excel.Worksheet = objLibroExcel.Worksheets(1)


Este es un ejemplo que tengo hecho con VB08, no cabia mucho la sintaxis. es lo mismo solo cambia el 1 por 2.
si falla por aquí ando estaré pendiente para ayudarte.

Saludos!!!

[darkprogrammer]

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:

Imports 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.

[alan_69niupi]

Dim xlApp = New Excel.Application
Dim xlBook = New Excel.Workbook


fijate aqui que tienes puesto "=" en lugar de AS

ese es un detalle, un gran detalle

Saludos!!!

[darkprogrammer]

Después de mucho buscar, encontré la solución no se si sea la mas práctica pero me funciona.

Fuente: [URL="http://visualstudiomagazine.com/articles/2011/06/20/wcovb_automate-excel/wcovb_listing-2.aspx"]http://visualstudiomagazine.com/articles/2011/06/20/wcovb_automate-excel/wcovb_listing-2.aspx[/URL]

Así quedó mi código:

Código vb:

Public Function loadData(ByVal datos)
        Dim xlApp As Excel.Application = New Excel.Application
        xlApp.ScreenUpdating = False
        Dim INCData As Excel.Worksheet = CType(Globals.ThisWorkbook.Sheets(2), Excel.Worksheet)
        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
 

Pero... Ahora no me funciona el screenupdate = false no quiero que se vea todo el cambio de hojas y cálculos que se van a hacer.

¿Alguna idea?

Saludos,
Erick.

[darkprogrammer]

¿Cómo ves? alan_69niupi, será la mejor manera de hacerlo??

Saludos,

[alan_69niupi]

xlApp.ScreenUpdating = False

al termino de todo tu proceso debes de cerrarlo por así decirlo

xlApp.ScreenUpdating = True


La mejor manera de hacer una aplicación es según para uso que le vamos a dar
por lo general si es para la escuela creo que con que funcione basta.
ahora si esta para algún trabajo hay que contemplar muchos punto, tiempo de respuesta, cantidad de usuarios, cantidad de peticiones. etc.


Saludos!!!!

[darkprogrammer]

Bueno, pues ni "cerrando" el screenupdate funcionó, pero de momento, eso no me preocupa, es el menor de mis males, hahahaha...

Mil y una gracias por tu ayuda alan_69niupi , seguro por aquí me veras dando lata muy seguido.

Voy a dar por concluido el tema.

Saludos,
Erick.