Generar archivo plano

[The_Pretorian]

Buenas Tardes:
Puedes probar este codigo, esperot e sirva... se enlaza a una BD en Acces y me generea un TXT, claro q en tu caso le puedes poner la extencion que crees conveniente.
Atte
Jorge Diaz

Dim Rs_Expo As New ADODB.Recordset
Dim CadSql, StrArchivo, nameFile As String
Dim File As FileSystemObject
Dim Line As TextStream
Dim nConta As Long, nPos As Long
Dim nDocu As String, nTabla As String, nSerie As String
nameFile = "archivo_generado.TXT"
StrArchivo = App.Path & "\File\" & nameFile
CadSql = "SELECT NroRuc, RazSoc, MonImp FROM selClientes"
Rs_Expo.Open CadSql, Cn, adOpenKeyset, adLockOptimistic
If Not Rs_Expo.EOF Then
Set File = New FileSystemObject
Set Line = File.CreateTextFile(StrArchivo, True)
End If
If Not Rs_Expo.EOF Then
With Rs_Expo
Do While Not .EOF
Line.Write nDocu & "|"
Line.Write Trim((Rs_Expo("NroRuc"))) & "|"
Line.Write RTrim(Rs_Expo("RazSoc")) & "|"
Line.WriteLine RTrim(Round(Rs_Expo("MonImp"), 0)) & "|"
.MoveNext
Loop
End With
End If
Rs_Expo.Close: Set Rs_Expo = Nothing
Set File = Nothing: Set Line = Nothing