MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Exportar .txt separado por tabulações

    avatar
    ARIPO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Exportar .txt separado por tabulações Empty [Resolvido]Exportar .txt separado por tabulações

    Mensagem  ARIPO 14/3/2017, 20:02

    Amigos, boa tarde!

    tenho o seguinte problema, criei um BD que o mesmo exporta uma tabela para o
    formato .csv, ou seja separado por virgula, preciso criar o mesmo arquivo do tipo
    texto (separado por tabulações).
    Anexos
    [Resolvido]Exportar .txt separado por tabulações AttachmentRateio Operadores.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (313 Kb) Baixado 53 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Exportar .txt separado por tabulações Empty Re: [Resolvido]Exportar .txt separado por tabulações

    Mensagem  ahteixeira 15/3/2017, 11:09

    Olá Fabio,
    O separador de tabulação em VBA vbTab

    Veja se é o pretendido:
    Código:
    Public Function ExportRateioFunction()

    On Error GoTo F
    Dim rst As Recordset, varRecCount As Integer, varCount As Integer
    Dim varArq As String
    Dim DB As dao.Database
        Debug.Print Now()
        Set DB = CurrentDb()
        Set rst = DB.OpenRecordset("tblRateioOperador", dbOpenTable)
        rst.MoveLast
        varRecCount = rst.RecordCount
        rst.MoveFirst
       
        varArq = Forms!frmRateio!local & "\HorasRateio.csv"
       
        Open varArq For Output As #1
       
            For varCount = 1 To varRecCount
                'separador TAB é vbTab
                Print #1, rst!Equipamento & vbTab & rst!ID & vbTab & rst!H_Inicial & vbTab; rst!H_Final & vbTab; rst!Data_Padrao
                'anteriro
                'Print #1, rst!Equipamento & ";"; rst!ID & ";" & rst!H_Inicial & ";"; rst!H_Final & ";"; rst!Data_Padrao
                rst.MoveNext
            Next varCount
       
        Close #1
        rst.Close
        Set DB = Nothing
    MsgBox "Horas Trabalhadas Exportadas com Sucesso!!!", vbExclamation
    F:
        Select Case Err.Number
            Case 3021
            MsgBox "Não existem Dados para serem exportado no período!!!", vbInformation, "Atenção!"
            Case 0
            Exit Function
            Case Else
            MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erro!"
            Exit Function
        End Select
       
    End Function

    Abraço
    avatar
    ARIPO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    [Resolvido]Exportar .txt separado por tabulações Empty Re: [Resolvido]Exportar .txt separado por tabulações

    Mensagem  ARIPO 15/3/2017, 13:20

    Alvaro, bom dia!

    Ótimo, era isso mesmo, muito obrigado pelo apoio.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Exportar .txt separado por tabulações Empty Re: [Resolvido]Exportar .txt separado por tabulações

    Mensagem  ahteixeira 15/3/2017, 14:19

    Olá Fabio,
    Obrigado pelo retorno.
    Abraço
    avatar
    wsantos
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 26/07/2012

    [Resolvido]Exportar .txt separado por tabulações Empty Exportar com o título da coluna

    Mensagem  wsantos 13/7/2021, 19:24

    Caros senhores, parabéns pelo excelente exemplo, mas eu queria perguntar como eu faria para na exportação do arquivo sair o título da coluna, para ficar organizado os dados, não exportar somente os dados mas que os mesmo tenha a coluna do qual pertencem???
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Exportar .txt separado por tabulações Empty Re: [Resolvido]Exportar .txt separado por tabulações

    Mensagem  ahteixeira 15/7/2021, 15:56

    Olá a todos,

    Warley Santos, seja bem-vindo ao fórum.
    Será colocar antes do for o Print ... com no nome dos campos, algo assim:

    Código:
     
     Print #1, rst!Equipamento.Name & vbTab & rst!ID.Name & vbTab & rst!H_Inicial.Name & vbTab; rst!H_Final.Name & vbTab; rst!Data_Padrao.Name

    Abraço

      Data/hora atual: 24/7/2021, 09:08