[ACCESS] Creazione file .txt attraverso macro access

[Misterxxx]

prova:

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("table1")
Dim fs, TextFile
Set fs = CreateObject("Scripting.FileSystemObject")
Do Until rst.EOF = True
Set TextFile = fs.CreateTextFile("C:\" & rst!A & ".txt", True)
TextFile.WriteLine (rst!B)
rst.MoveNext
Loop
TextFile.Close