FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola Anabel, estoy tratando de exportar un reporte desde delphi a excel y estoy utilizando el codigo que tu expones en el foro, lo que quiero saber es a que corresponde el Query1OrderNo.Value que esta en la siguiente linea y como lo obtengo:
Range['A'+LineString, 'B'+LineString].Value[oleVar] := VarArrayof([Query1OrderNo.value, Query1CustNo.Value]); Gracias por tu ayuda.. Saludos, Juan Pablo |
#2
|
|||
|
|||
Hola, ya la resolvi esa parte y ahora quisiera que por favor me expliques el paso 5, antes quiero decirte que yo solo quiero pasarle 2 campos a excel pues la tabla de la base de datos a la cual hago referencia en el Query tiene 2 campos.
//Paso 5 Range['H2','G'+LineString].NumberFormat := '0.00%'; Range['G2','G'+LineString].NumberFormat := '$#,##0.00'; Range['I2','I'+LineString].NumberFormat := '$#,##0.00'; Range['J2','J'+LineString].NumberFormat := '$#,##0.00'; Range['A1','J'+LineString].AutoFormat(xlRangeAutoFormatlist1, true, true,true,true,true,true); Range['A1','J'+LineString].Columns.AutoFit; ActiveWorkbook.SaveAs(FileName,xlNormal, '', '', false, false, xlNochange,xlUserResolution,False,EmptyParam,EmptyParam, LCID); Espero tu pronta respuesta, gracias. Saludos, Juan Pablo. |
#3
|
|||
|
|||
Hola Juan Pablo!
Perdón pero no entiendo cula es la duda que tienes, pordrías ser más especifico. En las líneas que escribe unicamente se le stá dando formato alas celdas, formato de número. En ese paso también se da explica el comando para salvar la hoja en la que se está trabajando en excel. Saludos Belén
__________________
Ana |
#4
|
|||
|
|||
Gracias Belen por tu respuesta, ya entendi lo que hace el paso 5.
Ahora tengo un problema en esta linea: ActiveWorkbook.SaveAs(FileName,xlNormal, '', '', false, false,xlNochange,xlUserResolution,False,EmptyParam,EmptyParam,LCID); La aplicacion no me ejecuta y me sale este error: Not enough actual parameters Espero me sepas dar una idea de lo que puede estar pasando, gracias. Saludos, Juan Pablo. |
#5
|
||||
|
||||
Hola,
Cita:
Edito: efectivamente, se trata de lo primero que digo: se están proporcionando menos parámetros de los necesarios. De la ayuda de Delphi: Cita:
Última edición por dec fecha: 11-09-2006 a las 17:47:36. |
#6
|
|||
|
|||
Gracias por tus respuestas, me han ayudado a resolver los problemas que tenia.
|
#7
|
|||
|
|||
hola
Ya que se esta en este tema me gustaria saber si hay una manera de guardar el archivo .xls creado en la direccion que yo quiera y si se puede proteger la hoja, todo desde el codigo. Espero me puedan ayudar.
|
#8
|
|||
|
|||
Hola me podrias ayudar por favor con lo siguiente:
Quiero pasar el resultado de una expresion TQRExpr de delphi a excel: La expresion es esta: Sum(if(ADOReportLogin.Answer_Code = 1, ADOReportLogin.Total, 0)). Como le asigno el resultado de esta expresion a una celda de excel?? Gracias por las sugerencias a mi pregunta.. Saludos, Juan Pablo. |
#9
|
|||
|
|||
Error "not enough actual parameters"
Hola! Alguien sabe como puedo arreglar esto?
Bueno les cuento tengo problemas con el ExcelXP.pas, hace un tiempo he estado compilando una aplicación y nunca tuve problemas con esto, pero hoy cambié una query y la exportacion de datos a excel me falló, he estado leyendo que este error es porque tengo menos parametros que los que necesita la funcion, y aunque ya lo cambié, tendría que cambiar todas las llamadas a esta función desde toda la aplicación... mi pregunta es, por qué esto cambió?? antes tenía estas mismas llamadas con menos parámetros y nunca me tiró ningun error. me da la impresión de que es la versión del ExcelXP, alguien sabe como puedo volver a una versión anterior?? Muchos saludos |
|
|
|