Actualización "KB823980"

Prueba esta modificación del codigo y me cuentas que ocurre.

Option Explicit

Private Sub cmdDatosAExcel_Click()

Dim xlsAppUser As Object
Dim xlsHojaUser As Object
Dim strHoja As String
Dim strHojaNueva As String
Dim strLibro As String
Dim i As Integer

Set xlsAppUser = CreateObject("Excel.Application")
xlsAppUser.WorkBooks.Add
Set xlsHojaUser = xlsAppUser.Worksheets(1)

xlsHojaUser.Select
xlsHojaUser.Activate

For i = 1 To 20
xlsHojaUser.Range("A1").Offset(i, 0).Value = i
Next

xlsAppUser.Visible = True

Set xlsHojaUser = Nothing
Set xlsAppUser = Nothing

MsgBox "Termnamos "

End Sub

Guillermo Rey
Vigo (SPAIN)
Desarrollo VB y VBA
www.guillermorey.com


"Eyes" escribió en el mensaje
news:0fd201c36671$81366870$
A todos:

Hace ya de tres a cuatro semanas emití una cuestión,
acerca de algunos problemas con esa
actualización "KB823980", ahora resulta que es de vital
importancia tener dicha actualizacion.

Nadie me ayudó con esta situación, por lo que decidí
mandar un correo directamente a ,
hasta ahora no he recibido ayuda y estamos "propensos" a
dicho virus.

Incluso en el foro de VB lo emití nuevamente con fecha del
14 de agosto, me recomiendan que en este foro o en el de
Excel lo de a conocer para ver si un compañero lo puede
resolver o ya lo revolvió.

El problema básicamente es el no poder enviar datos a
Excel, este ejemplo es el que envíe a Microsoft y solo es
un boton que envía datos a Excel:

Option Explicit

Private Sub cmdDatosAExcel_Click()
Dim xlsAppUser As Excel.Application
Dim xlsLibroUser As Workbook
Dim xlsHojaUser As Worksheet
Dim xlsHojaAnt As Worksheet

Dim strHoja As String
Dim strHojaNueva As String
Dim strLibro As String
Dim i As Integer

Set xlsAppUser = New Excel.Application
Set xlsLibroUser = xlsAppUser.Workbooks.Add
Set xlsHojaUser = xlsLibroUser.Worksheets("Hoja1")
xlsAppUser.Visible = True

xlsLibroUser.Worksheets("Hoja1").Select
xlsLibroUser.Worksheets("Hoja1").Activate

For i = 1 To 20
xlsHojaUser.Range("A1").Offset(i, 0).Value = i
Next

Set xlsHojaUser = Nothing
Set xlsLibroUser = Nothing
Set xlsAppUser = Nothing

MsgBox "Termnamos "

End Sub

El error ocurre cuando se ejecuta el programa y que la
computadora tenga dicha acutalizacion y si quito la
actualizacion se ejecuta perfectamente bien.

El error que me devuelve es el siguiente:

Run-Time error '-2146960888(8007fa08)
Method 'Add' of object 'Workbooks' failed

Y ocurre en la linea:

Set xlsLibroUser = xlsAppUser.Workbooks.Add

Lo tengo en Windows 2000 con Office 97. Ahora, no solo
ocurre con una computadora sino que ocurre con las que
tienen Windows 2000!.

Y si quito dicha actualizacion se ejecuta bien y sin
problema alguno e incluso, me he dado cuenta de algo.

Fijense, el error ocurre cuando se agrega un libro y si
trato antes de poner visible la aplicacion de Excel, es
decir, .Visible = True; el error ocurre en esta línea,
pero si hace visible a la aplicacion de Excel. Lo mismo
sucede con el metodo .Add, es decir, si se agrega el Libro
a la Aplicación de Excel, aun marcando error.

Es algo peculiar, y les repito no solo sucede con una
computadora si no con varias.

A todos aquellos que estan Certificados por Microsoft,
ayúdenme a encontrar una solución, por favor; ya que
estamos vulnerables a dicho virus e incluso a hackers.

Saludos y Gracias a todos
Eyes, only for you!