Visual Basic para Aplicaciones - Run-Time error '429'ActiveX component can't create

Life is soft - evento anual de software empresarial
   
Vista:

Run-Time error '429'ActiveX component can't create

Publicado por Zeus Alberto Páez Rentería (6 intervenciones) el 16/04/2009 22:54:54
Tengo un problema con un codigo en VBA que cree para una aplicacion, trato de correr el codigo en Excel '97 y me aparece este error tengo tiempo buscando la solucion y no he podido dar con ella.

Error:

Run-Time error '429':ActiveX component can't create

Sistema Operativo
Windows 98
Office:
Microsoft Excel 97

El error sucede cuando el programa llega a esta seccion del codigo

Set FSO = CreateObject("scripting.filesystemobject")

El Scripting.filesystemobject es el que causa el problema ¿?

Si alguien me puede ayudar con esto le agradeceria mucho llevo mas de 15 dias buscando una solucion para que este programa corra.

Nota: El programa se ejecuta sin problemas en ciertas maquinas pero en otras no :-( no se porque esta pasando esto, ya le instale el office de nuevo pero no resuelve el problema, tenemos la misma version y sistema operativo, solo que en unas corre y en otras marca el error. Alguien conoce la solucion Gracias de antemano

Ing. Zeus Alberto Paez Renteria

Codigo:
Sub AdminFilestoPrinter(User As String, DRAWINGNAME As String, R As Integer, FromPath As String)
'This example copy all files between certain dates from FromPath to ToPath.
'You can also use this to copy the files from the last ? days
'If Fdate >= Date - 30 Then
'Note: If the files in ToPath already exist it will overwrite
'existing files in this folder
Dim FSO As Object
Dim ToPath As String
Dim ToProcesed As String
Dim Fdate As Date
Dim FileInFromFolder As Object
Dim Reset As Boolean
Dim Answer
Dim NOMBREDRAWING As String
Dim Plotter As Integer
Dim Found As Boolean
NOMBREDRAWING = DRAWINGNAME
Confirmacion = False
Reset = False
Found = False
Plotter = 99
Application.DisplayAlerts = False
ToPath = "C:Nesting Control" '<< Change PATH EN COMPUTADORA HDD
ToProcesed = "\Mexmil_mx1groupsManufactureIndustrial EngineeringProcess EngineeringAUTODIM SQCNESTINGProcessed Control System Nesting" ' << Move file to procesed drawing folder
If Right(FromPath, 1) <> "" Then
FromPath = FromPath & ""
End If
If Right(ToPath, 1) <> "" Then
ToPath = ToPath & ""
End If

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If

If FSO.FolderExists(ToPath) = False Then
MsgBox ToPath & " doesn't exist"
Exit Sub
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Run-Time error '429'ActiveX component can't

Publicado por JuanC (431 intervenciones) el 16/04/2009 23:19:18
si no me equivoco debés tener registrada la siguiente dll

C:WINDOWSsystem32scrrun.dll (path XP)

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Run-Time error '429'ActiveX component can't

Publicado por Zeus Alberto Páez Rentería (6 intervenciones) el 20/04/2009 17:22:27
Muchas Gracias Juan :-)

Sabes eso era regsvr32 "C:WINDOWSsystem32scrrun.dll"

Al centavo Sr. Le debo una, podria usted enviarme una direccion para mandarle un regalo como muestra de agradecimiento.

Gracias.

Ing. Zeus Alberto Paez Renteria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:Run-Time error '429'ActiveX component can't

Publicado por JuanC (431 intervenciones) el 20/04/2009 18:04:42
me alegra que haya sido eso nomás...
por si me quieres contactar te dejo mi mail juanc2942@gmail.com

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar