Olá,
bom dia!
Preciso de uma ajuda!
Tenho uma Query onde cada registro tem diversos campos.
Preciso exportar para TXT definindo cada linha como mostra o modelo da foto.
Tipo:
Campo1 Campo2 Campo3
Campo4 Campo5
Já tentei diversas formas e não consigo.
tenho esse codigo mas ele não esta rodando.
'Dim ErroMsg As String
'On Error GoTo Err_Erro_click'
'Dim Campo1 As String
'Dim DB1 As Database
'Dim TB1 As Recordset
'Set DB1 = CurrentDb()
'Set TB = DB1.OpenRecordset("qry_total_txt")
' Open "C:\Desktop\Carta Verde\CartaVerde.txt" For Output As #1
' Do Until TB1.EOF
'Campo1 = TB1(Cod_capa) & TB1(n_lote_titulo) & TB1(tipo_doc_titulo) & TB1(Suc_titulo) & TB1(tipo_pag_titulo) & TB1(premio_ta_titulo) & TB1(cap_total_titulo)
'Print #1, Campo1
'TB1.MoveNext
'Loop
'Close #1
'ErroMsg = MsgBox("Arquivo CartaVerde.Txt gerado com sucesso!", vbOKOnly)
'Exit Sub
'Err_Erro_click:
'ErroMsg = MsgBox("ERRO!!! O arquivo não foi gerado", vbOKOnly)
' Exit Sub
alguém poderia me ajudar ? :(
