ShellExecute nao abre excel

ShellExecute nao abre excel

Postby Sistem » Tue Mar 12, 2013 4:35 pm

Tentei assim:
cArqExcel:="c:\temp\test.xls"

ShellExecute( 0, "open", cArqExcel ) // nao abre
ShellExecute(GetActiveWindow(), "open", "excel", cArqExcel,"",5) // nao abre
ShellExecute(0, "OPEN", cArqExcel, "", "", 0) // nao abre
WinExec("Excel "+cArqExcel,0) // nao abre
WAITRUN( "EXCEL " +cArqExcel, 1) // nao abre

usando Win7 x64 Office 2010
FWH1302 - xHarbour

alguem tem uma ideia?

obrigado
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
Sistem
 
Posts: 226
Joined: Sun May 13, 2012 7:52 am

Re: ShellExecute nao abre excel

Postby Antonio Linares » Tue Mar 12, 2013 5:04 pm

Revisa FWH/samples/excel.prg y excel2.prg por si te sirve de ayuda :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42107
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: ShellExecute nao abre excel (RESOLVIDO)

Postby Sistem » Tue Mar 12, 2013 7:43 pm

tentei o seguinte:
cArqExcel:="c:\temp\test.xls"
oExcel := CreateObject("Excel.Application")
oPlani := oExcel:WorkBooks:Open( cArqExcel, OleDefaultArg() , OleDefaultArg() , OleDefaultArg() ) / nao abre

e

cArqExcel:="c:\temp\test.xls"
oExcel := CreateObject("Excel.Application")
oPlani := oExcel:WorkBooks
oPlani :Open( cArqExcel ) // nao abre

fica no gerenciador de tarefas mais nao abre
Image


opss!!
oExcel:Visible = .T. :)

hWnd:=oExcel:hWnd
ShowWindow(hWnd, 3) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
BringWindowToTop(hWnd)
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
Sistem
 
Posts: 226
Joined: Sun May 13, 2012 7:52 am


Return to All products support

Who is online

Users browsing this forum: No registered users and 3 guests