Geraldo (gbsilva) Posted February 1, 2016 Report Share Posted February 1, 2016 Boa tarde pessoal! De volta com problema do Windows 7. Compilei o sistema no Win7 32 bits, tudo funciona com exceto quando estou tentando gravar uma planilha de excel usando a TOleauto() dá o erro abaixo. Nas máquinas 32 bits funciona normal, alguém sabe o que devo fazer nas máquinas 64 bits para conseguir gravar? Obs.: Não tenho permissão aqui na empresa para compilar no notebook que são os de 64 bits, para conseguir vai levar muito tempo e burocracia, pois trabalho numa empresa grande e é difícil essas autorizações. Se alguém souber algum maçete agradeço. Application =========== Path and name: D:\Projetos\Sisaf\Sisaf.EXE (32 bits) Size: 3,788,288 bytes Time from start: 0 hours 1 mins 14 secs Error occurred at: 01/02/2016, 12:50:29 Error description: Error Excel.Application/0 S_OK: SAVE Args: Stack Calls =========== Called from TOLEAUTO:SAVE(0) Called from TATENDIMENTO:SAVEPLANILHASAGRE(1321) Called from TATENDIMENTO:PRINTINSPECAOSAGRE(914) Called from GERARPRINT(295) Called from (b)ATEND(239) Called from TBUTTONBMP:CLICK(157) Called from TBUTTON:HANDLEEVENT(1654) Called from TBUTTONBMP:HANDLEEVENT(290) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 1, 2016 Report Share Posted February 1, 2016 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=28545&p=159794&hilit=Error+Excel.Application%2F0+S_OK%3A+SAVE#p159794 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=24505&p=132581&hilit=Error+Excel.Application%2F0+S_OK%3A+SAVE#p132581 http://forums.fivetechsupport.com/viewtopic.php?f=6&t=19445&p=102433&hilit=Error+Excel.Application%2F0+S_OK%3A+SAVE#p102433 Quote Link to comment Share on other sites More sharing options...
rubensma Posted February 3, 2016 Report Share Posted February 3, 2016 Não sei se é seu caso. Tive problema usando Save, troquei por SaveAs, e cada vez salvo com um nome diferente // acrescenta minutos e segundos no final do arquivo para não dar erro de arquivo já existe cArquivo := "LT_Reversão_"+substr(time(), 4 , 2)+substr(time(), 7 , 2)+".xls" oExcel:ActiveWorkBook:SaveAs( cArquivo ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.