gibaf Posted February 17, 2014 Report Share Posted February 17, 2014 se sim, como ? desde ja abradeco: MUITO OBRIGADO !!! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 17, 2014 Report Share Posted February 17, 2014 Olá veja a Linha: 1371 desta Rotina se ajuda: Function Gera_Excel_txt(cArq) https://code.google.com/p/scm/source/browse/trunk/scm/rotina.prg?r=62 Baixe e de uma lida, acho que é por ai.. abs Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 17, 2014 Author Report Share Posted February 17, 2014 ola obrigado por responder.... mas, infelizmente, nao deu pra aproveitar, devido estar faltando muitas funcoes q esse bloco faz chamadas, como por exemplo GeraFile(). se alguem mais, tiver mais dicas, eu agradeco obrigado Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 17, 2014 Report Share Posted February 17, 2014 Ai, você é quem define como será o arquivo, por ex.: GERAFILE() SELE ENTRADA COPY TO (cFILE) FOR DTOS(DATA) >= DTOS(xDATA) .AND. DTOS(DATA) <= DTOS(xDATA1) VIA "DBFCDX" USE (cFILE) alias RELATOR1 EXCL VIA "DBFCDX" index on RELATOR1->codpro to (cFILE) SET index to (cFILE) SELE RELATOR1 ... ... .. OU GERAFILE() SET DEVICE TO PRINT set print to (cFILE) .... ... ... SET PRINTER TO set device to screen CHAMAIMP("S",cFILE+".PRN") Function GERAFILE() vSIS1 := GETENV("temp") public cFILE := vSIS1+"\TEMP"+ ALLTRIM( STR( HB_RandomInt(9999) )) RETURN cFILE Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 17, 2014 Report Share Posted February 17, 2014 Outra coisa: nas Versões atuais do FIVEWIN, isto é automático no preview. abs. http://www.pctoledo.com.br/forum/viewtopic.php?f=45&t=9306 Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 17, 2014 Author Report Share Posted February 17, 2014 a minha versao do fw nao eh versao atual obrigado Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 17, 2014 Report Share Posted February 17, 2014 Veja se te gera uma idéia aqui: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25610&start=0&hilit=cFileExcel Interessante seria vc. está atualizado para a última versão, ai seria fácil. abs, Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 17, 2014 Author Report Share Posted February 17, 2014 o link q vc passou nao gera ideia alguma (hehehe) e, sim..claro...concordo com vc... o pequeno detalhe e o valor q sempre tem dispor a cada atualizacao... kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 17, 2014 Report Share Posted February 17, 2014 sim..claro...concordo com vc... o pequeno detalhe e o valor q sempre tem dispor a cada atualizacao... Giba, consulte o Gilmer, indiquei, e várias pessoas atualizaram, e ganharam um descontão(só porquê fui eu que indiquei) -> kkkkkkkkkkkk, E te garanto que quem atualizou, não me reclamou no Skype. Vale à pena atualizar, pergunte ao Gilmer quanto ele fará para você... Verás que dá para pagar tranquilamente. Acho, que hoje em dia, só continua Pirata(não é o seu caso), quem é muito desonesto(a), pois o preço está excelente. Veja: Eu migrei da Versão 2.7 de 2007 para a Versão de Junho de 2013(FWH13.06), e o preço foi fantástico, tudo bem que eu negociei pessoalmente com o Gilmer, e além do preço bom, ainda ganhei no "xorinho". Mas, eu acho que todos podem e devem "xorar". Primeiro passo, é enviar um email para o Gilmer e perguntar o preço da versão atual. Abs, Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 18, 2014 Author Report Share Posted February 18, 2014 sem ter a versao atual, nao outro geito, nao ? obrigado Quote Link to comment Share on other sites More sharing options...
emotta Posted February 18, 2014 Report Share Posted February 18, 2014 Se voce precisa apenas "jogar" para o excel o texto segue um exemplo. Como estou sem tempo o que voce precisa fazer é apenas separar o texto por linha e ir jogando linha a linha no excel, mas aí é com voce, seja criativo. Abraços Function FileToExcel(cFile)Local cTexto := MemoRead(cFile)Local oExcel,oAS TRY oExcel := CreateObject( "Excel.Application" ) CATCH oExcel := NIL MsgStop("Erro ao carregar o MS-Excel") Return END oExcel:WorkBooks:Add() oAS := oExcel:ActiveSheet() oAS:Cells:Font:Name := "Arial" oAS:Cells:Font:Size := 12 oAS:Cells( 1, 1 ):Value := RTrim(cTexto) oExcel:Visible := .T.Return .t. Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 18, 2014 Author Report Share Posted February 18, 2014 blz. .obrigado vou implementar obrigado mais uma vez 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.