Bom dia para todos, Estou com mais um probleminha, é o seguinte; estou gerando um relatório em excel , na tela , mas como é que eu faço para gerar este arquivo diretamente na rede, sem abrir na tela. Estou querendo gerar diretamente na rede sem abrir na tela: Ex: K:\GSI_Fábrica\05 - Diversos\valter\teste.xls segue anexo exemplo Desde já agradeço a atenção de todos.
Após a execução do Excel coloque o seguinte comando. create "Excel.Application" chExcel no-error. chExcel:Visible = false. No fim do programa coloque o seguinte comando: chExcel:Quit.
Obrigado pela atenção Rogério , mesmo assim da erro, me diz uma coisa esses procedimentos é para não abrir o excel, e para gerar este aruivo em um lugar específico na rede como eu faço. ex: k:\temp\valter\teste.xls é o seguinte, eu tenho o m eu .w que chama o rp.p onde chama a include que gera em excel {gminc/gmft003.i} include excel--------------------------------------------------- /* include de funcoes de planilha Excel */ {gminc/dts-excel.i} Def Var chExcel As CHAR No-undo. coloquei aqui o que vc me pediu /* Bloco de Impressao */ xlcreate(). create "Excel.Application" chExcel no-error. coloquei aqui o que vc me pediu chExcel:Visible = false.coloquei aqui o que vc me pediu xlFontSize("*",9). RUN pi-print-cabec. RUN pi-imprime-c. xlrelease(NO,NO,NO). RUN pi-finalizar IN h-acomp. RETURN "Ok":U. chExcel:Quit. coloquei aqui o que vc me pediu mesmo assim dá erro segue anexo erro.
Caro colega, Vocé colocou o comando depois de um RETURN, assim ele não é executado. Bom vamos lá, primeiro você salva o arquivo e depois fecha o Excel, veja abaixo (o exemplo abaixo salva em 2007). Código: ChExcel:ActiveWorkbook:SaveAs(<nome do arquivo>, 51, "", "", false, false, 3, 1, 1, 1) no-error. ChExcel:ActiveWorkbook:close. release object ChExcel no-error. return "Ok".
