Exportar MDB como ASCII

Num módulo:

Public Function Mdb2Txt(BD,
Tabela, Arquivo As String)
Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase(BD)

Set rs = db.OpenRecordset(Tabela)

‘step 3:
Dim nFile%
Dim vFileName$
vFileName$ = Arquivo

nFile% = FreeFile

Open vFileName$ For Output As #nFile%

‘step 4 / 5:
Dim counter%
Dim MaxFields%
MaxFields% = rs.Fields.Count – 1
Do While Not rs.EOF
For counter% = 0 To MaxFields%
If Not IsNull(rs.Fields(counter%).Value)
Then _
Print #nFile, rs.Fields(counter%).Value;

‘Write #nFile,
rs.Fields(counter%).Value; ‘Com delimitadores

Next counter%
Print #nFile,
rs.MoveNext
‘walther.musch@kather.net
Loop

‘step 6:
rs.Close
db.Close
Close #nFile%

End Function

Teste:

Private Sub Comando1_Click()

retorno = Mdb2Txt(“c: empescritafiscal.mdb”,
“tblTransmissor”, “c: emp este.txt”)
End Sub

Em http://www.kather.net/VisualBasicSource/msa/msaindex.htm