MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

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

    Mensagem  ARIPO em Ter Mar 14, 2017 8:02 pm

    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 41 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua Mar 15, 2017 11:09 am

    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 100%

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

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

    Mensagem  ARIPO em Qua Mar 15, 2017 1:20 pm

    Alvaro, bom dia!

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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua Mar 15, 2017 2:19 pm

    Olá Fabio,
    Obrigado pelo retorno.
    Abraço

      Data/hora atual: Seg Jan 18, 2021 10:46 am