Buenos d铆as compa帽eros del foro, dado el siguiente llamado a un archivo de Excel:
Dirpath=cGetdir("Selecciona el directorio destino")
if !empty(Dirpath)
cArchr=alltrim(Dirpath)+"\Existencias-"+dtos(date())+".XLS"
ShellExecute(,"Open",cArchr,,,3)
endif
Si Excel esta abierto, entonces muestra el archivo correctamente, si Excel esta cerrado se abre Excel, pero el archivo no se muestra, alguna idea de que este causando este comportamiento?
Saludos y gracias.
shellexecute ( 0, "open", "excel.exe", , 0, 1 )
J. Ernesto Pinto Q.
Fwh_x64 2501, BCC++_x64 7_70 , Harbour 3.20, LopeEdit 5.8
jepsys@hotmail.com, jepsys@gmail.com
Ernesto, gracias por tu respuesta, ya lo intent茅 y sigue dando el mismo resultado.
Saludos.
Estimado:
Asi nunca he tenido problemas:
cFile:='M'+alltrim(LEFT(cDes,20))+".xls"
If IsWinNT()
ShellExecute( oWnd:hWnd, "open" , cFile, , , )
Else
WaitRun( 'Start ' + "excel "+cFile, 0 )
EndIf
Saludos,
Daniel Puente
Puerto Santa Cruz
Santa Cruz, Argentina
Mil gracias por tu respuesta, desafortunadamente sigue dando el mismo resultado.
Esta caracter铆stica realmente no tiene mucha importancia y le estoy invirtiendo demasiado tiempo, mi 煤nica intenci贸n era ayudar al usuario, ya que me ha pasado mas de una vez que cuando se genera el archivo de resultados les pongo una ventana donde indico la ruta y nombre del archivo generado (misma ruta que el propio usuario eligi贸) y me frustra mucho que me pregunte 驴Y donde se gener贸 el archivo?..... 
Jejeje
Muchas gracias de todas formas por su ayuda.
#Include "FiveWin.Ch"
Function Main()
private oSheet,oBook
oExcel:=CreateObject( "excel.application" );oExcel:DisplayAlerts=.F.
oExcel:WorkBooks:Open( "C:\PLANILLAS\MTS.xlsx" );oExcel:Sheets( 1 ):Select();oSheet:=oExcel:Get( "ActiveSheet" )
oExcel:Visible = .T.
Return