COMO CRIAR UM ARQUIVO .TEXT OU WORD ?

USUARIO.EXCLUIDOS 06/07/2007 10:51:35
#224985
Opa.

Finalizei para do meu programa e gostaria que o mesmo gera-se um arquivo .text com o formato do meu modelo.


Tipo uma macro onde vc prenchi os campos que automaticamente são lançados no arquivo de texto.

Detalhe como faz isso ?

Não tenho a minima ideia.

Alguém pode dar uma ajuda ?
USUARIO.EXCLUIDOS 06/07/2007 10:55:33
#224986
Exemplo:

dim sCampos as string

Open "c:\NovoArquivo.txt" For Output Shared As #1

sCampos = "NOME;ENDERECO;CIDADE;CEP"

Print #1, sCampos

close #1
GUTO 06/07/2007 10:56:39
#224987
USUARIO.EXCLUIDOS 06/07/2007 11:03:56
#224988


é só mudar a extensão

dim sCampos as string

Open "c:\NovoArquivo.txt" For Output Shared As #1
Open "c:\NovoArquivo.doc" For Output Shared As #1

sCampos = "NOME;ENDERECO;CIDADE;CEP"

Print #1, sCampos

close #1

Prontinho
USUARIO.EXCLUIDOS 06/07/2007 16:33:52
#225075
Segue uma função que uso para gerar arquivo .txt de LOG
Serve de exemplo de como gerar um arquivo .txt que pode ser reaberto a incrementado periodicamente sem a perda dos dados.

Public Function funGravaAcesso(strAcao As String, strDescricao As String)
    ' Grava Arquivo com LOG de Acesso e Alteracao de Dados
    ' Entra: strAcao - Nome da Acao Executada
    '   strDescricao - Descricao da Acao
    '   strCaminho - Path e Nome do Arquivo de LOG de Acessos
    ' Autor: Roberto Marques (Email: rmarques@rmlc.com.br)
    
    ' Define Variavel FN - File Number
    On Error GoTo ErrLog
    Dim intFN As Integer
    intFN = FreeFile
    
    Open (strCaminhoLogs & "\" & strNomeAcesso) For Append As #intFN
    Print #intFN, "Data/Hora: " & Now & " - Versão: " & strVersao
    Print #intFN, "Usuario  : " & strNomeUsu & " - Acesso: " & strAcesso
    Print #intFN, "Ação     : " & strAcao
    Print #intFN, "Descrição: " & strDescricao
    Print #intFN, "----------------------------------------------------------"
    Close #intFN
    Exit Function
ErrLog:
    ' #R# Verificar a Mensagem
    If Err.Number = 76 Then ' path not found
        strCaminhoLogs = App.Path
        MsgBox "O Caminho do arquivo de Log não está correto." & Chr(13) & _
               "Trocando para caminho do executavel.", vbExclamation
        Err.Clear
        Resume
    End If
End Function
USUARIO.EXCLUIDOS 08/07/2007 11:15:21
#225191
Ah tá.

Vou dar uma testada.

Se quiser passar para arquivo word ?

E outro detalhe ,gostaria de deixar um modelo de carta para as informações que o meu programa pegar ele irá inserir automaticamente no arquivo. txt ou word
Tópico encerrado , respostas não são mais permitidas
Voltar