cendon

Bom dia amigos,
a algum tempo gero alguns relatorios em excel utilizando
o que há de mais simples. Um arquivo texto renomeado para xls com chr(9) para separar os campos.
porem já não estava atendendo mais meus clientes
passei a testar com OLE
até consegui gerar o arquivo. Era para ter 1 só celula ocupada, porem ele repete o mesmo conteudo em toda planilha.
alguem saberia onde está o erro?
o fonte é este.
/*
Generando um arquivo Excel
Angelo José Ferreira Cendon
*/
#include "FiveWin.ch"
FUNCTION Testaj()
LOCAL cFilexls := ".\arqexcel.xls"
LOCAL oExcel
msgalert("iniciando geração")
oExcel := TExcelScript():New()
msgalert("Criando script para excel")
oExcel:Create( cFilexls )
oExcel:Visualizar(.T.)
msgalert("Arquivo test1.xls criado - Partindo para entrada de dados")
oExcel:Font("Tahoma") // fonte de letra
oExcel:Size(10) // tamanho do fonte
oExcel:Align(1) // alinhamento a esquerda
oExcel:Say( 4 , 2 , 'Teste de geração excel' , , , .T.)
oExcel:Visualizar(.T.)
oExcel:End()
msgalert("K bo")
RETURN ( .T. )
Abençoados sejam os pessimistas, eles fizeram backups!!
Angelo Cendon
cendon.angelo@gmail.com
Belo Horizonte-MG
Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

OK. procure fazer sempre assim:
 

use M:\PROPOSTA SHARED  NEW   use M:\PROPOSTA EXCLUSIVE NEW 

Obrigado Joao!
Vou aproveitar sua rotina e atualizar meu errorsys.
 
Quanto ao problema do mapeamento não sei se é um problema do fivewin ou do Windows10
Mas consegui contornar, o mapeamento deve ser executado de dentro do fivewin
Function MapDrive(cDriveLetter,cRemotePath,lPermanent,cUserName,cPassword)
    Local oNetwork,oError
    DEFAULT lPermanent:=.F.
    oNetwork:=CreateObject("WScript.Network") 
    TRY
        oNetwork:MapNetworkDrive(cDriveLetter, cRemotePath,lPermanent,cUserName,cPassword)
    CATCH 
        MsgInfo("Rede com problemas: "+cDriveLetter+ " to "+cRemotePath+CRLF+;
                   OemToAnsi("Desligue seu computador e religue")+CRLF+;
                   OemToAnsi("Se o problema persistir entre em")+CRLF+;
                   OemToAnsi("contato com o suporte"))
    END
Return NIL
mapeando dentro do fivewin, a letra do mapeamento funciona sem problema
 
De qualquer maneira obrigado pela ajuda

Srs obrigado pelas respostas, realmente faltava o parâmetro -aa na linha do Link
Obrigado Jose, Rocinha e João. O fórum continua nota 10

Obrigado!!
Ele deve estar viajando, vou aguardar até semana que vem, o email que eu tinha está correto, de qualquer maneira obrigado João.

kkkkkk
 

Amigos!
Agradeço a todos a colaboração. funcionou corretamente.
Agradecimento especial ao Rocinha, pelo caminho das pedras. Muito bom as rotinas implementadas da ADO.
Parabens pelo trabalho
um abraço a todos

Srs boa tarde! Preciso de uma pequena ajuda, estou tentando colocar um dbu dentro de uma aplicação
porem esta dado um erro na compilação
fonte
@ 0, 0 XBROWSE oBrw OF oWnd LINES ;
AUTOCOLS ALIAS Alias() AUTOSORT ;
ON CHANGE ( oMsgBar:cMsgDef := "FileName: " + cFileName,;
oMsgBar:Refresh(),;
oMsgRecNo:SetText( "RecNo: " + ;
AllTrim( Str( ( cAlias )->( RecNo() ) ) ) + " / " + ;
AllTrim( Str( ( cAlias )->( RecCount() ) ) ) ),;
oMsgTagName:SetText( "Ordered by: " + If( ! Empty( OrdName() ), OrdName(), "Natural order" ) ),;
oMsgDeleted:SetText( If( ( oBrw:cAlias )->( Deleted() ),;
"DELETED", "NON DELETED" ) ),;
oMsgDeleted:SetBitmap( If( ( oBrw:cAlias )->( Deleted() ),;
"deleted", "nondeleted" ) ) )
Erro
Error E0030 Syntax error: "parse error at '@'"
a versao do fivewin é a 6.12 e do xharbour é 0.99.71 simplex
Obrigado de antemão
Um abraço

http://code.google.com/p/fivewin-contributions/downloads/detail?name=Explorer%20Lib-2.0-win32.exe&can=2&q=

Funciona normalmente, mas a picture correta acho que é: "@K!"