Proyecto VB Studio 2010 para Excel

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