Excel 2013

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
FFreire
Usuário Nível 3
Usuário Nível 3
Mensagens: 113
Registrado em: 19 Mai 2013 16:16
Localização: Andirá-PR / Itaporanga-SP

Excel 2013

Mensagem por FFreire »

Prezados senhores...

Sempre gerei planilhas no harbour e sempre funcionou certinho, agora me deparei com o seguinte problema, em Excel versão 2013, simplesmente não gera, da erro, alguém ja passou por isso ???
Harbour 3.2.0+MiniGui Extended 16.02+BCC5 / HWGdebug / SIXCDX / PostgreSQL 9.5 / LetoDB 2.15 / Java8
fabiano@ffsoft.com.br
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Excel 2013

Mensagem por Toledo »

FFreire escreveu:simplesmente não gera, da erro
Amigo, qual é o erro?

Se for possível, poste um exemplo de código de como você está gerando a planilha.

Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

Excel 2013

Mensagem por Kapiaba »

Olá, veja se tem algo a ver com isto:

Código: Selecionar todos

for i := 2 to nRow

    codExcel := oHoja:Cells(i,1):Value

    if valtype(codexcel) = "C"
    //if valtype(oHoja:Cells(i,1):Value) <> "U"
        codExcel := strtran( codExcel, "*", "" )
        codExcel := PadR(Alltrim(codExcel ),15) 
Ou,

Código: Selecionar todos

IF oHoja:Cells(i,1):Value <> NIL
.....
..... 
Abs,
Avatar do usuário
FFreire
Usuário Nível 3
Usuário Nível 3
Mensagens: 113
Registrado em: 19 Mai 2013 16:16
Localização: Andirá-PR / Itaporanga-SP

Excel 2013

Mensagem por FFreire »

Pessoal... descobri o erro, é que no office 2013, ele tem apenas 1 planilha (Plan1), ja nas versões anteriores tem 3 (Plan1,Plan2,Plan3) e por excesso de preciosismo, eu dou um comando para deletar quando não uso a 2 ou a 3...

oExcel:Sheets("Plan1"):Name := "Montagem de Linha"
oExcel:Sheets("Plan2"):Delete() -----> Aqui da erro, pq não existe essa planilha no excel versão 2013
oExcel:Sheets("Plan3"):Delete() -----> Aqui também...

Resolvido, mas fica de bagagem... obrigado !
Harbour 3.2.0+MiniGui Extended 16.02+BCC5 / HWGdebug / SIXCDX / PostgreSQL 9.5 / LetoDB 2.15 / Java8
fabiano@ffsoft.com.br
Responder