Page 1 of 1
Shellexecute no abre archivo excel
Posted: Wed Jul 15, 2015 2:39 pm
by mariordz
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.
Re: Shellexecute no abre archivo excel
Posted: Wed Jul 15, 2015 11:38 pm
by J. Ernesto
shellexecute ( 0, "open", "excel.exe", , 0, 1 )
Re: Shellexecute no abre archivo excel
Posted: Thu Jul 16, 2015 1:30 pm
by mariordz
Ernesto, gracias por tu respuesta, ya lo intenté y sigue dando el mismo resultado.
Saludos.
Re: Shellexecute no abre archivo excel
Posted: Thu Jul 16, 2015 1:41 pm
by puenteda
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
Re: Shellexecute no abre archivo excel
Posted: Thu Jul 16, 2015 2:06 pm
by mariordz
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.
Re: Shellexecute no abre archivo excel
Posted: Thu Jul 16, 2015 3:18 pm
by acuellar
Mario
Intenta directamente con código
Code: Select all
#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
Saludos,
Adhemar