Gracias, me ha ido muy bien.
Un saludo. -----Mensaje original----- De: Hector Vera G. [mailto:[EMAIL PROTECTED] Enviado el: miércoles, 22 de junio de 2005 18:56 Para: [email protected] Asunto: RE: llamar una cl desde una hoja excel Lo puedes ejecutar desde un store procedure. Te adjunto la forma como puedes incorporarlo desde una rutina hecha en excel. Private Sub Invoca_cl(xzona, xconsultor, xdesde, xhasta, xcriter, xafp, xaño) Dim Con1 As New ADODB.Connection Dim Cmd1 As New ADODB.Command Dim Rs As New ADODB.Recordset Con1.Open "DSN=AS/400-ACCESS;UID=XXX;PWD=XXX;" Cmd1.ActiveConnection = Con1 Cmd1.CommandType = adCmdText Cmd1.CommandText = "Call ACSNEWLIB.Q0903PR('" _ & xuser & "','" & xzona & "','" & xconsultor & "','" _ & xdesde & "','" & xhasta & "','" & xsuper & "','" _ & xcriter & "','" & xafp & "','" & xaño & "')" Cmd1.Execute Con1.Close Set Con1 = Nothing Selection.QueryTable.Refresh BackgroundQuery:=False End Sub __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400 __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
