- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro na Exportação para o Excel
×
Linguagem de Programação ADVPL
Perguntas Erro na Exportação para o Excel
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25035
por Mjuniorfacic
Erro na Exportação para o Excel foi criado por Mjuniorfacic
Bom dia Amigos (as),
Tenho no fonte está analise se existe ou não o Excel instalado para exportação...
If MV_PAR11 = 2
If !ApOleClient("MSExcel")
MsgAlert("Microsoft Excel não instalado!")
Else
DlgToExcel({ {"ARRAY", "Relatório de Controle de Fretes", aCabec, aDados} })
EndIf
EndIF
Porem em 200 maquinas funcionam, mas tenho uma que está dando trabalho, o pacote oficie está instalado mas tenho o retorno de Não Instalado.
Pode ser alguma DLL?
Tenho no fonte está analise se existe ou não o Excel instalado para exportação...
If MV_PAR11 = 2
If !ApOleClient("MSExcel")
MsgAlert("Microsoft Excel não instalado!")
Else
DlgToExcel({ {"ARRAY", "Relatório de Controle de Fretes", aCabec, aDados} })
EndIf
EndIF
Porem em 200 maquinas funcionam, mas tenho uma que está dando trabalho, o pacote oficie está instalado mas tenho o retorno de Não Instalado.
Pode ser alguma DLL?
Por favor Acessar ou Registrar para participar da conversa.
- rodrygoz
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25036
por rodrygoz
Respondido por rodrygoz no tópico Erro na Exportação para o Excel
Qual o Excel instalado na maquina? é o mesmo das outras 200 ?. Se for com certeza essa maquina esta faltando alguma DLL, pois seu fonte esta correto. Porém o meu é dessa forma:
If !ApOleClient( "MsExcel" )
MsgAlert( "MsExcel nao instalado" )
Return ( Nil )
EndIf
oExcelApp := MsExcel():New()
oExcelApp:WorkBooks:Open( _cPath + _cArquivo + ".CSV" )
oExcelApp:SetVisible( .T. )
If !ApOleClient( "MsExcel" )
MsgAlert( "MsExcel nao instalado" )
Return ( Nil )
EndIf
oExcelApp := MsExcel():New()
oExcelApp:WorkBooks:Open( _cPath + _cArquivo + ".CSV" )
oExcelApp:SetVisible( .T. )
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25037
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico Erro na Exportação para o Excel
O Excel é o 2013...
Qual seria esta DLL, ela deveria esta do registros?
Qual seria esta DLL, ela deveria esta do registros?
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 2 meses atrás #25038
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico Erro na Exportação para o Excel
Não tenho a necessidade gravar o CSV...
Apenas mando abrir conforme os dados do array
Apenas mando abrir conforme os dados do array
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro na Exportação para o Excel
Tempo para a criação da página:0.093 segundos