Buenos días Fivewineros, estoy exportando un DBF a Excel con el metodo antiguo para mi (Simplemente le cambio la extensión al archivo de .DBF a .XLS y Excel lo abre sin problemas), pero tengo un comportamiento raro, agregué varios campos (que hacen las veces de columnas en Excel), pero al exportar los datos de esas columnas aparecen vacias, las cabeceras si estan en mi archivo de resultados, pero los datos no (bastante raro, ya que antes de darle el comando "copy to" le puse un xbrowse para ver la información y si aparecen los datos en las columnas que acabo de agregar.
Para tratar de darle la vuelta al asunto y de paso usar los metodos correctos hice un Xbrowse y usé la clausula ToExcel(), lo que necesito saber es como le hago para que no me abra el archivo de resultados, solo necesito que lo salve en una ubicación que ya tengo predeterminada.
Uso FW1604+Harbour+bcc7
Primero le pido al usuario un directorio donde salvar los resultados
- Code: Select all Expand view RUN
- cDirinfo=cGetdir("Selecciona el directorio para guardar la información generada")
Despues genero un dialogo para mostrar los datos con un boton para exportarlo a excel (si hubiera una forma de ejecutar el "TOExcel()" SIN abrir un dialogo estaría mejor)
- Code: Select all Expand view RUN
DEFINE DIALOG oDlg SIZE 800,600 PIXEL //FONT oFont
@ 10, 10 XBROWSE oBrw ;
SIZE 120, 70 PIXEL ;
OF oDlg ;
AUTOCOLS ;
LINES
@ 250, 25 BTNBMP oBtn1 OF oDlg ;
SIZE 80, 15 PIXEL 2007 ;
NOBORDER ;
PROMPT " &AExcel() " ;
FILENAME cDirinfo ;
ACTION ( oBrw:ToExcel())
oBtn1:cToolTip = { "Enviar a Excel","Exportar", 1, CLR_BLACK, 14089979 }
oBtn1:SetColor( 0, )
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
