[Resolvido]Exportar em TXT Uma única coluna de uma tabela

Olá pessoal,

Preciso da ajudinha.

Tenho uma tabela com várias colunas e gostaria de exportar apenas 1 dessas coluna no formato ".TXT" e sem o cabeçalho.

Essa coluna já está configurada de acordo com o layout do programa que irei importar. Preciso apenas dessa dica, de como fazer.

Dei uma olhada no fórum e achei apenas coisas semelhantes, nada específico.

Poderiam me ajudar, por favor?


Desde já agradeço

Olá Cinthia,

Por gentileza, disponibilize uma cópia do seu bd (somente objetos envolvidos) para análise e solução.

Veja como postar arquivos no link:
https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com


[]'s

FIM

Olá Alexandre,

Obrigada pela ajuda.

Segue anexo o arquivo em access. A coluna que eu quero extrair, chama-se "txt".

Se for mais fácil, eu também posso criar uma QRY de Make Table e adicionar apenas essa coluna, então através de um botão em um formulário, acionar a vba que irá gerar o txt da nova tabela. O que for mais fácil. O único detalhe é não perder a formatação da coluna e não ter cabeçalho.

Oi cinthia,

Não veio o anexo.

Verifique, por favor

[]'s


FIM

Você foi mais rápido do que eu, estava anexando quando você mandou a informação seguinte, rs...

Deixei o anexo na resposta anterior.


Obrigada!

Rsssss......ok...sem problemas...
Vou analisar o teu projeto e definir uma solução.
Até+

[]'s

Fim

Olá Cinthia,

Criei uma tela para selecionar o diretorio onde será gerado o arquivo:



Após selecionar o diretório, clique em "Exportar TXT", e o sistema gerará o arquivo no diretório informado, com a seguinte nomenclatura:
- Export_AAAAMMDDHHMMSS.txt

Ex.: Export_20210824194012.txt

Ao abrir o código, no menu "Ferramentas>>Referencias.." marque os seguintes itens:



É isso.

Espero ter ajudado

Boa sorte

[]'s

FIM

Oi Alexandre, sensacional!

Muito muito obrigada...


Sobre ir em "Ferramentas>Referências", acho que não veio a informação no seu texto, então deixo abaixo os objetos que precisão ser selecionados, caso mais alguém precise desse código:

"Microsoft Scripting Runtime" e o "Microsoft Office 16.0 Object Library"

Olá Cinthia,

Segue imagem sobre as referência que devem estar assinaldadas:




Em seguida, realize a Compilação:



A compilação verifica se o projeto não possui erros e ausência de referencias e e tc.
Se não aparecer nenhuma mensage, o projeto está OK.

É isso.

Boa sorte

Top, valeu mesmo Alexandre...

Só tenho uma última pergunta... As vezes o txt gera uma linha em branco logo no início e outra no final, tem como corrigir isso?


Muito obrigada, novamente!

Olá Cinthia,

Pelo que analisei, o texto do campo TXT da tabela deve ter sido um COPY+COLA e com isso gravou também alguns caracteres (espaços e backspace), e o que pode ter ocasionado a inclusão dessas linhas em branco.
Este campo TXT é uma concatenação dos campos da tabela e, ao invés de exportar este campo, seria melhor montar o arquivos através dos outros campos.

Por gentileza, me mande o layout do arquivo para que eu monte a saida do .txt.

É isso

No aguardo

[]'s

FIM

Oi Alexandre,

É exatamente isso, existe uma tabela anterior onde os dados são adicionados na TBL_9_5, após a inclusão, tem uma QRY de atualização (9_5_3) que irá concatenar os campos que eu preciso e atualizar a informação na coluna "TXT".

Eu adicionei a QRY_9_5_03 que faz essa atualização, está no arquivo em anexo a seguir.


Desde já agradeço.

Olá Cinthia,

Na rotina abaixo, remova a linha em vermelho, e o arquivo será exportado corretamente.

Public Sub ExportaTXT()
On Error GoTo trata_erro

Dim db          As DAO.Database
Dim rs          As DAO.Recordset
Dim sSQL        As String
Dim sDados      As String
Dim sArq        As String

   Set db = CurrentDb

   sSQL = "SELECT TXT from TBL_9_5_DOM_TXT"
   Set rs = db.OpenRecordset(sSQL)
   
   sArq = txtdir.Value & "\Export_" & Format(Now, "yyyymmddhhmmss") & ".txt"
   
   Open sArq For Output As #1

   Print #1, sDados
   Do While Not rs.EOF
       sDados = rs("TXT")
       Print #1, sDados
       rs.MoveNext
   Loop

   MsgBox "Arquivo " & sArq & " gerado com sucesso.", vbInformation, "Mensagem"
   
   rs.Close
   Set rs = Nothing
   
   Close #1
   
   Exit Sub
trata_erro:
   MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
   Exit Sub


End Sub

É isso!!!
Espero ter ajudado

Boa sorte.

[]'s

FIM

Oi Alexandre,

Perfeito! Muito obrigada novamente....

Sensacional, muito obrigada... PARABÉNS \o/