PC Toledo

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 |

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

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

Enviado: **01 Mar 2019 08:44**

Bom dia...

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

Rubens

Enviado: **23 Jan 2020 22:48**

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 ?

Enviado: **24 Jan 2020 09:28**

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.

Enviado: **24 Jan 2020 10:13**

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

Enviado: **24 Jan 2020 11:02**

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

Enviado: **24 Jan 2020 12:10**

Marcos Kieron escreveu: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:

alemellado escreveu: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.

Enviado: **24 Jan 2020 13:54**

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

Enviado: **24 Jan 2020 14:29**

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

PC Toledo

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....

Programa parou de gerar planilha....