Programa parou de gerar planilha....

[lugab]

Boa noite, pessoal.
Eu uso HB-32 console+ W7-64 professional e tenho o Excel 2016 instalado no PC. Desde que reformatei o HD eu não consigo mais gerar uma planilha XLS..
Alguém tem alguma dica pra eu testar ?
1)Eu tentei o comando abaixo, mas sempre retorna FALSE

Código: Selecionar todos

IF ( oExcel := win_oleCreateObject( "Excel.Application" ) ) = NIL
**IF ( oExcel := win_oleCreateObject( "Excel.Application.16" ) ) = NIL  // tb nao funcionou
   tret=.f.
   Aviso("O aplicativo Excel nao esta operacional no atual ambiente")
else
   tret=.t.
endif
retu tret

2)E tentei o Comando

Código: Selecionar todos

 oExcel:=TOleAuto():New( "Excel.Application" )

que sempre retorna o erro
Log

-------------------- Internal Error Handling Information ---------------------

Subsystem Call ....: TOleAuto
System Code .......: -1
Default Status ....: .F.
Description .......: CO_E_CLASSSTRING
Operation .........: TOLEAUTO:NEW
Arguments .........: [ 1] = Type: C Val: Excel.Application
Involved File .....:
Dos Error Code ....: 0

|Error TOleAuto/-1 CO_E_CLASSSTRING: TOLEAUTO:NEW Arguments: ( [ 1] = Type: C Va|
|l: Excel.Application) |
| |
|Error at ...: XHB_DEFERROR(0) in Module: xhb\xhberr.prg |
|Called from : TOLEAUTO:NEW(0) in Module: xhb\xhbole.prg |
|Called from : EXCELINSTALADO(536) in Module: funCOMUM.prg |
|Called from : EXCEL08(12) in Module: Excel08.prg |
|Called from : EST001C4(131) in Module: est001c4.prg |
|Called from : EST001C(80) in Module: est001c.prg |
|Called from : EST001(506) in Module: est001.prg |
|Called from : MAIN(943) in Module: Estcdx.prg |

[JoséQuintas]

Não tenho certeza, mas talvez falte algum componente pra 32 bits.
Fazem muitos anos que não uso isso.

[lugab]

Obrigado, Mestre
Eu acho que é a culpa é do novo Excel q instalei, pq acabei de testar em outro notebook e funcionou...
Vou é reinstalar o office todo

[rubens]

Bom dia...

Tive problemas assim qdo o ativador do office do cliente caiu ..

Rubens

[alemellado]

Infelizmente acho que é alguma incompatibilidade no Windows 10 , nas maquinas que tenho Windows 10 instalado com o office 365 dá esse mesmo erro, será que alguém conhece alguma outra maneira de criar planilha do Excel com o harbour ?

[alemellado]

Fiz alguns testes hoje e percebi que a maquina que tinha o office 365 não estava funcionando, pois a variavel de ambiente do windows "SystemRoot"estava vazia, quando o correto é:
"SystemRoot=C:\WINDOWS" depois de eu dar o comando SET SystemRoot=C:\WINDOWS Voltou a funcionar.

Porem gostaria de saber se tem como gerar planilha em uma maquina que não tem o Excel instalado.

[JoséQuintas]

Quanto ao problema inicial, ressuscitando o post antigo:
Diz usar Harbour 3.2, mas o erro é do XHARBOUR.
Provavelmente usando a biblioteca de compatibilidade com XHarbour aconteça o mesmo erro do XHarbour.

Quanto a gerar planilha sem Excel:
- Pode gerar arquivo CSV.
- Pode usar o ADO e o ODBC pra Excel, que a Microsoft disponibiliza grátis.
- Pode usar LIBs que criaram pra isso, que tem no GitHub

[Marcos Kieron]

Lugab,

Fiz um teste aqui, funcionou, mas verifiquei que precisa ter o Excel instalado para funcionar.
Já tentou re-instalar o Excel?

Código: Selecionar todos

proc main( ... )
oExcel := win_oleCreateObject( "Excel.Application" )
oWorkBook := oExcel:WorkBooks:Add()
oAS := oExcel:ActiveSheet()
oAS:Cells( 1, 1 ):Value := "hello world"
oExcel:Visible := .T.
return

[JoséQuintas]

Fiz um teste aqui, funcionou, mas verifiquei que precisa ter o Excel instalado para funcionar.
Já tentou re-instalar o Excel?

Acho que confundiu com as mensagens anteriores (antigas), que eu apenas acrescentei por não ter resposta anterior, sobre a lib de compatibilidade.

A pergunta dele foi esta:

Porem gostaria de saber se tem como gerar planilha em uma maquina que não tem o Excel instalado.

Por isso indiquei aquelas 3 opções.

[alemellado]

José quintas em CSV é tranquilo, porem não tem formatação na planilha ai fica muito pouco profissional, quanto as outras duas opções vou ver se consigo achar algo a respeito.
Obrigado

[JoséQuintas]

Lista do GitHub pra Harbour

https://github.com/Petewg/harbour-list

Acho que é a primeira

https://github.com/FTrautwein/hblibxlsxwriter

https://github.com/FTrautwein/xlsxwriter