Olá gente boa tarde...
Observando alguns exemplos aqui no forum eu achei essa maneira de exportar em txt maravilhoso do wellingtoneo (conforme link abaixo) que exportava no meu caso, os dados na tabela, porém, achei outro exemplo manero no JPaulo que importa arquivo txt, porém acho que esta dando problema por que ta dando "numero de linha 0". Olha ai a maneira que esta exportando o arquivo, acredito que seja pela forma que esta exportando...
O código que estou usando é o do JPaulo:
'By JPaulo ® Maximo Access
Dim Delimitador As String
Dim DB As Database
Dim fnum As Integer
Dim LinhaDoTexto, LinhaDoTextoTemp As String
Dim InstrucaoSQL As String
Dim Posicao As Integer
Dim QtdDeRegistros As Long
Dim ArquivoTexto As String
Dim strBanco As Databases
Dim strTabela As String
ArquivoTexto = "C:\Users\user.SED-SETOR-01\Desktop\Desktop\Materiais Censo\Recenseamento Escolar - Atualizado\Em teste\Doc.txt" 'caminho do arq de texto
strTabela = "ALUNOS" 'nome da tabela no banco
Delimitador = ";" & "" 'defina aqui qual o delimitador que não quer importar
If Delimitador = "" Then Delimitador = " "
If Delimitador = "" Then Delimitador = vbTab
fnum = FreeFile
On Error GoTo NoTextFile
Open ArquivoTexto For Input As fnum
On Error GoTo NoDatabase
Set DB = CurrentDb
On Error GoTo 0
'salta uma linha, ou seja vai começar na segunda linha
Line Input #1, LinhaDoTexto
Do While Not EOF(fnum)
Line Input #fnum, LinhaDoTexto
If Len(LinhaDoTexto) > 0 Then
'procura na linha, se existe algo escrito igual a "Deb_Cred"
If Mid(LinhaDoTexto, 1, 255) Like "*Protocolo*" Then
'se existir inicia a copia a partir do carater 60
LinhaDoTextoTemp = Mid(LinhaDoTexto, 60, 255)
LinhaDoTexto = LinhaDoTextoTemp
LinhaDoTexto = Replace(LinhaDoTexto, """", "")
InstrucaoSQL = "INSERT INTO " & _
strTabela & " VALUES ("
Do While Len(LinhaDoTexto) > 0
Posicao = InStr(LinhaDoTexto, Delimitador)
If Posicao = 0 Then
InstrucaoSQL = InstrucaoSQL & _
"'" & Replace(LinhaDoTexto, """", "") & "', "
LinhaDoTexto = ""
Else
InstrucaoSQL = InstrucaoSQL & _
"'" & Left$(LinhaDoTexto, Posicao - 1) & _
"', "
LinhaDoTexto = Mid$(Replace(LinhaDoTexto, """", ""), Posicao + Len(Delimitador))
End If
Loop
InstrucaoSQL = Left$(InstrucaoSQL, Len(InstrucaoSQL) - 2) & ")"
On Error GoTo SQLError
DB.Execute InstrucaoSQL
On Error GoTo 0
QtdDeRegistros = QtdDeRegistros + 1
End If
End If
Loop
Close fnum
DB.Close
MsgBox "Inseridas " & Format$(QtdDeRegistros) & " Linhas"
Exit Sub
NoTextFile:
MsgBox "Erro na abertura do Arquivo de Texto."
Exit Sub
NoDatabase:
MsgBox "Erro na abertura do Banco."
Close fnum
Exit Sub
SQLError:
MsgBox "Erro na execusão do SQL '" & _
InstrucaoSQL & "'"
Close fnum
DB.Close
Exit Sub
http://maximoaccess.forumeiros.com/t13888-exportar-conteudo-de-uma-consulta-p-txt?highlight=exportar+txt