Pessoal, boa tarde
Compilei o exemplo de uso da classe FWMsExcelEx que encontrei no TDN.
https://tdn.totvs.com/display/framework/FWMsExcelEx
Quando executo a rotina, não esta abrindo o arquivo Excel. Estou usando a versão do office 2013. Alguém já passou por este problema? Preciso de alguma include específica para que o exemplo possa funcionar?
Obrigado.
Bom dia Ivan,
Ele não abre o excel, ou abre o excel com arquivo em branco, já peguei algumas situações onde o office e o protheus não abriam o excel, pois precisava estar sendo executado com permissões de admin do windows.
Atenciosamente,
Ola Douglas, obrigado pelo retorno. Quanto ao meu problema: A rotina realmente nem chega a abri o excel. O exemplo de modelo que estou usando é relativamente simples. Eu cheguei a debugar o fonte e consigo ver o objeto, porém, quando chamo o método FWMsExcelEx():Activate(), nada acontece. Mas vou verificar também esta questão que você mencionou sobre as permissões do windows, pode ser este o problema. Estou enviando anexo, o fonte que estou usando para tentar testar o uso da classe.
Neste exemplo que anexo, ele salva no seu path, caso seja necessário abrir para o usuário, uma das sugestões é copiar o arquivo gerado para o temp da máquina local(GetTempPath - para saber o local a ser gravado) e aí executar a abertura do arquivo.
— Douglas Bichir 04 de Feb de 2020Bom dia Ivan,
A classe FWMsExcelEx é responsável pela geração do arquivo de planilha, e não por sua abertura.
Caso queira abrir o arquivo, você precisa verificar onde o mesmo foi salvo e utilizar de funções como:
https://tdn.totvs.com/display/tec/WinExec
https://tdn.totvs.com/display/tec/WaitRun
https://tdn.totvs.com/display/tec/ShellExecute
Isso será feito após o método GetXMLFile
Daniel, bom dia
Muito obrigado pelo retorno. Me ajudou bastante. Abraços
— Ivan Sousa Ribeiro 04 de Feb de 2020Coloque esse trecho ao final que vai abrir
cArq := GetTempPath() +"\Arquivo"+AllTrim(Str(Randomize(0,999)))+".xlxs"
oExcel:GetXMLFile(_cArq)
oExcel := MsExcel():New()
oExcel:WorkBooks:Open(_cArq)
oExcel:SetVisible(.T.)
oExcel:Destroy()
