Hola 
Pues nada, que tengo que poder exportar los listados de mi aplicaci贸n a Excel o a una DBF (preferiblemente a Excel).
驴Alguna forma o idea?
Gracias a todos <!-- s:-) --><img src="{SMILIES_PATH}/icon_smile.gif" alt=":-)" title="Smile" /><!-- s:-) --> y un saludo
esta es mi forma ( al la vieja..... )
Function Dbf2Excel( oPadre, cFileDbf, lSQL, cOtraTabla, aOtrosCampos )
Local hExcel, oDDEs
Local Planilla, aNuevo, cCelda, xValor
Local cFileXls := Spac(250)
Local j, nRegistros, nCampos
Local cEjecut := "C:\MSOFFICE\EXCEL\Excel.Exe"
Local i := 0
Local lCerrarExcel := .F.
Local aTareas := GetTasks()
Local hStmt := 0
Local TMaes := {}
Local aResult := {}
Local nOpcion := 0
Local xCampos
Local qq := Chr(34)
MEMVAR DEFATMP
DEFAULT lSQL := .F.
If aScan( aTareas, {|x| "EXCEL.EXE" $ Upper(x) } ) > 0
* excel ya fue cargado en memoria
MsgStop(OemToAnsi("Debe cerrar Excel para realizar este proceso y luego continuar"),;
"Error de Operador")
Return NIL
EndIf
If !MsgGet( "Grabar en Archivo Excel...",;
OemToansi("Nombre de Salida (sin extension .xls)"),;
@cFileXls )
Return NIL
EndIf
cFileXls := AllTrim( cFileXls )
If File( cFileXls )
MsgStop("Nombre de archivo ya existe...","Error de Operador")
Return NIL
ElseIf Empty( cFileXls )
MsgStop("Nombre de archivo no corresponde...","Error de Operador")
Return NIL
EndIf
oPadre:bDdeInit := {|hWndClient, cAppName, cTopicName| MsgBeep() }
oPadre:bDdeExecute := {|hWndClient, cCommand | &(cCommand) }
DEFINE DDE oDDEs ;
SERVICE "Excel" ;
TOPIC "System"
If aScan( aTareas, {|x| "EXCEL.EXE" $ Upper(x) } ) == 0
lCerrarExcel := .T.
If ( hExcel:= WinExec( cEjecut, 
) < 32
If hExcel > 0
MsgStop( "Excel no cargado..." )
Return Nil
Endif
EndIf
Else
lCerrarExcel := .F.
* excel ya fue cargado en memoria
EndIf
hExcel := GetWndTask(1)
If hExcel = Nil
MsgInfo( "Programa Excel no encontrado")
Return Nil
Endif
ACTIVATE DDE oDDEs
CursorWait()
Select (cFileDbf)
COPY TO _Dbf2Xls
oDDEs:Execute("[Open(" +qq+ DEFATMP+"_Dbf2Xls.Dbf" +qq+ ")]")
oDDEs:Execute( "[Save.As(" +qq+ cFileXls +qq+ ",1)]" )
If lCerrarExcel
SendMessage( hExcel, WM_DESTROY )
EndIf
oDDEs:End()
oDDEs := Nil
CursorArrow()
Borrar( "_Dbf2Xls.dbf" )
Return NIL
//-----------------------------------
ademas viktor tomas tiene una clase re-buena para hacer conexion con excel, creo que se llama TFILEXLS.
Saludos y espero te sirva.
Hola
Muchas muchas gracias por la superrespuesta.
Solo una cosa 驴Que es DDE?
Un saludo
de lo que entiendo es Dinamic Data Exchange, o intercambio dinamico de datos....
ahora saber que es exactamente...mmmm dificil.
se que lo hace y eso me deja tranquilo un rato.
Saludos
DDE = Dynamic Data Exchange.
Intercambio Din谩mico de Datos. Conjunto de especificaciones de Microsoft para el intercambio de datos y control de flujo entre aplicaciones.
Saludos
Si estas trabajando a 16 bits utiliza la FileXLS de Ramon Avenda帽o, te genera archivos XLS nativos de Excel sin necesidad de DDE ni de OLE, es mas, no necesitas tener ni siquiera excel instalado.
OK, ya veo lo de DDE pero supongo que es necesaria una librer铆a al respecto 驴o no?
Muchisimas gracias a todos y un saludo
Manuel,
El DDE lo proporciona Windows automaticamente, de todas maneras, como te indica Ren茅, lo id贸neo es usar la clase de Ram贸n que te evita tener que usar DDE, tener Excel instalado, etc. Pero ambas soluciones te servir谩n.
