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
ShellExecute nao abre excel
- Antonio Linares
- Site Admin
- Posts: 42508
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 30 times
- Been thanked: 72 times
- Contact:
Re: ShellExecute nao abre excel (RESOLVIDO)
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](http://img826.imageshack.us/img826/6373/excelnaoabre.jpg)
opss!!
oExcel:Visible = .T.![Smile :)](./images/smilies/icon_smile.gif)
hWnd:=oExcel:hWnd
ShowWindow(hWnd, 3) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
BringWindowToTop(hWnd)
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](http://img826.imageshack.us/img826/6373/excelnaoabre.jpg)
opss!!
oExcel:Visible = .T.
![Smile :)](./images/smilies/icon_smile.gif)
hWnd:=oExcel:hWnd
ShowWindow(hWnd, 3) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
BringWindowToTop(hWnd)
FWH2008 | xHarbour | BCC74 | SQLRDD