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

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

Oi cinthia,

Não veio o anexo.

Verifique, por favor

[]'s


FIM

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

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

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

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