Shellexecute no abre archivo excel

[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.

[J. Ernesto]

shellexecute ( 0, "open", "excel.exe", , 0, 1 )

[mariordz]

Ernesto, gracias por tu respuesta, ya lo intenté y sigue dando el mismo resultado.

Saludos.

[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

[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.

[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