Foros del Web » Programación » Programación General »

Error 5 en tiempo de Ejecucion en Macro de Excel

Estas en el tema de Error 5 en tiempo de Ejecucion en Macro de Excel en el foro de Programación General en Foros del Web. Buenas Compañeros, la verdad soy nuevo en macros y de Basic se muy poco pero me han pedido revisar este programa en excel que segun ...
  #1 (permalink)  
Antiguo 09/07/2010, 09:07
Avatar de jonnyhelluz  
Fecha de Ingreso: diciembre-2008
Ubicación: Arequipa
Mensajes: 26
Antigüedad: 5 años, 4 meses
Puntos: 0
Error 5 en tiempo de Ejecucion en Macro de Excel

Buenas Compañeros, la verdad soy nuevo en macros y de Basic se muy poco pero me han pedido revisar este programa en excel que segun me dicen antes les aparecia una barra en la que podian operar ciertos datos pero ahora ya no aparece he tratado de revisarla y darle vueltas pero no consigo hacer aparecer la vendita barra y me vota el siguiente error:

Se ha producido el error '5' en tiempo de ejecución:
Argumento o llamada a procedimiento no válida

les muestro parte del codigo que depurando me indica esta el error.

ojala puedan ayudarme y les estaria muy agradecido...

Public Sub CreaBarra()
Dim A As CommandBar
Dim B As CommandBarButton
Set A = CommandBars.Add("BarOn", , , -1)
/* El depurador me muestra el error en esta linea*/
A.Position = 1
A.Visible = -1
Set B = A.Controls.Add(1)
B.OnAction = "Datos"
B.FaceId = 328
B.Caption = "Datos Personales"
B.TooltipText = "Ingresa los datos personales del sujeto."
B.Style = 3
Set B = A.Controls.Add(1)
B.FaceId = 558
B.OnAction = "BE"
B.Caption = "Tipo de Evaluación"
B.TooltipText = "Establece el tipo de Evaluación."
B.Style = 3
Set B = A.Controls.Add(1)
B.FaceId = 65
B.OnAction = "CE"
B.Caption = "Cuestionario"
B.TooltipText = "Cuestionario BarOn (ICE) Niños."
B.Style = 3
Set B = A.Controls.Add(1)
B.BeginGroup = -1
B.FaceId = 64
B.OnAction = "Evaluar"
B.Caption = "Procesar"
B.TooltipText = "Procesa los datos ingresados en la Plantilla."
B.Style = 3
Set B = A.Controls.Add(1)
B.FaceId = 67
B.OnAction = "Borra"
B.Caption = "Borrar"
B.TooltipText = "Borra todos los datos ingresados en la Plantilla."
B.Style = 3
Set B = A.Controls.Add(1)
B.BeginGroup = -1
B.FaceId = 271
B.OnAction = "Enviar"
B.Caption = "Guardar Datos"
B.TooltipText = "Almacena los resultados en la Base de Datos."
B.Style = 3
Set B = A.Controls.Add(1)
B.OnAction = "CG"
B.FaceId = 46
B.Caption = "Cargar Datos"
B.TooltipText = "Busca un registo de la Base de Datos."
B.Style = 3
Set B = A.Controls.Add(1)
B.BeginGroup = -1
B.OnAction = "CL"
B.FaceId = 48
B.Caption = "Ver Colores"
B.TooltipText = "Visualiza las Hojas en 'balnco y negro' o 'color'"
B.Style = 3
Set B = Nothing
Set A = Nothing
End Sub
  #2 (permalink)  
Antiguo 09/07/2010, 13:37
Avatar de Libras
Colaborador
 
Fecha de Ingreso: agosto-2006
Ubicación: En todos lados y en ninguno......
Mensajes: 4.372
Antigüedad: 7 años, 8 meses
Puntos: 505
Respuesta: Error 5 en tiempo de Ejecucion en Macro de Excel

Encontre este articulo sobre el coomandbars y creo que le faltan argumentos a tu funcion

http://support.microsoft.com/kb/830502

Saludos!

Etiquetas: ejecucion, excel, macro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:19.
SEO by vBSEO 3.3.2