Hola Mónica,

Regálame los errores que te salen, si puedes adjuntar tus scripts mejor.

En general puedes juntar los tres scripts creando un main que invoque tus tres scripts los cuales debes identificar como funciones. Algo así:

Sub Main

                Dim objPivot As PivotTable

                Dim objItem As ISpssItem

                Do While GetNextPivot(objPivot, objItem)

                               objPivot.Autofit

                               objItem.Deactivate

                Loop

/*           Función_2 (Argumentos)

/*           Función_3 (Argumentos)

End Sub

/La función GetNextPivot (Función_1: que en este ejemplo va desde el DO hasta el LOOP) se encuentra declarada más abajo, algo así:

Function GetNextPivot(objPivot As PivotTable, objItem As ISpssItem) As Boolean

/*CUERPO DEL SCRIPT

End Function

/*Y así sucesivamente:

/*Function “Función_2”(Argumentos)

/*Function “Función_3”(Argumentos)

Otra alternativa es crear una sintaxis (por ejemplo Prueba.sps) que invoque los tres scripts, algo así:

SCRIPT 'c:\Script_1.sbs' .

SCRIPT 'c:\Script_2.sbs' .

SCRIPT 'c:\Script_3.sbs' .

Y luego crear un botón (menú Ver/Barra de herramientas/Personalizar/Nueva herramienta) y en Acción seleccionas Sintaxis, Luego le das la ruta del archivo (c:\prueba.sps) y en la categoría Personales tienes tu nuevo botón que puedes alojar en tu barra de herramientas para utilizar cuando desees.

Esta última solución es buena si dices que cada uno por separado te funciona adecuadamente y no quieres complicarte con los argumentos en SAX Basic.

AUBERTH EDUARDO HURTADO DÍAZ.

Consultor Estadístico

Invamer S.A. - Gallup Colombia

..........................................................................................................................

Medellín – Colombia  |  Calle 32F No. 81-47  |  Tel: (4) 2507080 Ext. 123  |  Fax: 2506994

eduardo@...

www.invamer.com

...........................................................................................................................