CleitonSH Posted December 19, 2012 Report Share Posted December 19, 2012 Ola amigos, alguem poderia testar o codigo abaixo abrindo o arquivo do excel no link abaixo, esta demorando cerca de 6 minutos pra abrir este arquivo. Estou achando meio estranho. Se alguem puder testar fico grato, e sao varios arquivos que tenho que fazer este processo. Para baixar o arquivo, entre no link abaixo, e-mail: cleiton.softhouse@bol.com.br, senha 123cleiton123 http://www.mediafire.com/myfiles.php#myfiles TRY oExcel:= GetActiveObject( "Excel.Application" ) CATCH TRY oExcel:= CreateObject( "Excel.Application" ) CATCH MsgInfo("Excel is not installed in this PC. Unable to continue") Return .F. END END ? "NESTA LINHA ABAIXO CONSTATEI A LENTIDAO" oBook = oExcel:Workbooks:Open(_cArq_) id=code>id=code>Cleiton FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b Quote Link to comment Share on other sites More sharing options...
CleitonSH Posted December 19, 2012 Author Report Share Posted December 19, 2012 Ola amigos, alguem poderia testar o codigo abaixo abrindo o arquivo do excel no link abaixo, esta demorando cerca de 6 minutos pra abrir este arquivo. Estou achando meio estranho. Se alguem puder testar fico grato, e sao varios arquivos que tenho que fazer este processo. Para baixar o arquivo, entre no link abaixo, e-mail: cleiton.softhouse@bol.com.br, senha 123cleiton123 http://www.mediafire.com/myfiles.php#myfiles TRY oExcel:= GetActiveObject( "Excel.Application" ) CATCH TRY oExcel:= CreateObject( "Excel.Application" ) CATCH MsgInfo("Excel is not installed in this PC. Unable to continue") Return .F. END END ? "NESTA LINHA ABAIXO CONSTATEI A LENTIDAO" oBook = oExcel:Workbooks:Open(_cArq_) id=code>id=code>Cleiton FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 19, 2012 Report Share Posted December 19, 2012 O código não apresenta aparentemente nada d+, então vc. deveria testar em outra máquina. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
joaosolution Posted December 19, 2012 Report Share Posted December 19, 2012 Bom dia filhim Abri o arquivo direto no excel e demorou mesmo fora do sistema. João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql 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.