Actualización "KB823980"

19/08/2003 - 18:46 por Eyes | Informe spam
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 msdn@msmexico.com.mx,
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!

Preguntas similare

Leer las respuestas

#1 Guillermo Rey
19/08/2003 - 19:09 | Informe spam
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!
Respuesta Responder a este mensaje
#2 Eyes
19/08/2003 - 19:45 | Informe spam
Gracias Guillermo!!!... funcionó!

Pero ahora, ¿por qué del error? o mejor preguntado ¿A qué
se debe que no funcione?

¿Tienes alguna idea?

Gracias de antemano
Eyes, only fpr you

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!


.

Respuesta Responder a este mensaje
#3 Guillermo Rey
19/08/2003 - 20:49 | Informe spam
Probablemente a la referencia a las librerias de Excel que tenias
instaladas.
cambia todas las definiciones que tienes en tu proyecto a:
Dim loquesea as object
en vez de los objetos exactos y dime si funciona asi TU CODIGO.

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


"Eyes" escribió en el mensaje
news:00a601c36679$9f85ae00$
Gracias Guillermo!!!... funcionó!

Pero ahora, ¿por qué del error? o mejor preguntado ¿A qué
se debe que no funcione?

¿Tienes alguna idea?

Gracias de antemano
Eyes, only fpr you

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!


.

Respuesta Responder a este mensaje
#4 Guillermo Rey
19/08/2003 - 23:50 | Informe spam
Hola

Bueno, te cuento, tu problema está en la versión de excel utilizada en el
ordenador que hiciste la compilación es diferente a la versión de excel
instalada en los ordenadores que te dieron problemas.
Lo mejor es que declares siempre los elementos como object, no solamente
excel.application si no tambien excel.loquesea siembre
Dim loquesea as object
y asi será independiente de la versión de excel presente en la máquina
destino
NO TIENE nada que ver con la actualización.
Y otra cosa, cuando sea asi y mucha gente te diga que no tiene nada que ver
con algo hazles caso porque si no la gente piensa que estas de coña ;)

Un abrazo

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


"Eyes" escribió en el mensaje
news:04fb01c36692$ce42f9a0$
Gracias!

No modifiqué todas las lineas que tenían:

Excel.Application por Object

pero las que modifiqué si funcionaron correctamente!

Pero mi preocupación es ¿A qué se debe?, porque antes de
poner la actualizacion sirve y después ya no, ya
desinstalo la actualizacion y como si no hubiera pasado
nada!...

Ahora, si la actualizacion no es la que causa el problema,
entonces ¿A qué se debe este "detalle"?

Saludos y Gracias
Eyes, only for you

Probablemente a la referencia a las librerias de Excel


que tenias
instaladas.
cambia todas las definiciones que tienes en tu proyecto a:
Dim loquesea as object
en vez de los objetos exactos y dime si funciona asi TU


CODIGO.

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


"Eyes" escribió en el mensaje
news:00a601c36679$9f85ae00$
Gracias Guillermo!!!... funcionó!

Pero ahora, ¿por qué del error? o mejor preguntado ¿A qué
se debe que no funcione?

¿Tienes alguna idea?

Gracias de antemano
Eyes, only fpr you

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!


.





.

Respuesta Responder a este mensaje
#5 Eyes
20/08/2003 - 00:19 | Informe spam
Ok...

¿A qué te refieres, cuando dices que es la versión de
Excel?, porque es la misma computadora en donde hago la
prueba, es decir, compilo el programa y lo ejecuto tanto
en VB como en EXE y me da los mismos resultados en la
misma máquina y en la diferentes.

La version de Office es la misma, de ahí mi pregunta. Por
lo otroa, tienes razón, a veces soy un póco reacio a
entender, cuando no tengo bien claro la solución e incluso
todavía! por lo que te comento, porque es la misma
computadora.

Te agradezco tu ayuda y tu recomendacion...
Y espero me sigas ayudando!



Hola

Bueno, te cuento, tu problema está en la versión de excel


utilizada en el
ordenador que hiciste la compilación es diferente a la


versión de excel
instalada en los ordenadores que te dieron problemas.
Lo mejor es que declares siempre los elementos como


object, no solamente
excel.application si no tambien excel.loquesea siembre
Dim loquesea as object
y asi será independiente de la versión de excel presente


en la máquina
destino
NO TIENE nada que ver con la actualización.
Y otra cosa, cuando sea asi y mucha gente te diga que no


tiene nada que ver
con algo hazles caso porque si no la gente piensa que


estas de coña ;)

Un abrazo

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


"Eyes" escribió en el mensaje
news:04fb01c36692$ce42f9a0$
Gracias!

No modifiqué todas las lineas que tenían:

Excel.Application por Object

pero las que modifiqué si funcionaron correctamente!

Pero mi preocupación es ¿A qué se debe?, porque antes de
poner la actualizacion sirve y después ya no, ya
desinstalo la actualizacion y como si no hubiera pasado
nada!...

Ahora, si la actualizacion no es la que causa el problema,
entonces ¿A qué se debe este "detalle"?

Saludos y Gracias
Eyes, only for you

Probablemente a la referencia a las librerias de Excel


que tenias
instaladas.
cambia todas las definiciones que tienes en tu proyecto




a:
Dim loquesea as object
en vez de los objetos exactos y dime si funciona asi TU


CODIGO.

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


"Eyes" escribió en el mensaje
news:00a601c36679$9f85ae00$
Gracias Guillermo!!!... funcionó!

Pero ahora, ¿por qué del error? o mejor preguntado ¿A qué
se debe que no funcione?

¿Tienes alguna idea?

Gracias de antemano
Eyes, only fpr you

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!


.





.





.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida