RE:Exportar a Archivo Plano
COMO ME LO ENSEÑARON TE LE ENSEÑO Y FUNCIONA DE MARAVILLA
Private Sub Command1_Click()
Dim xobjeto As Object
Dim xarchivo As Object
Dim MiBase As Database
Dim rcdregis As Recordset
Set MiBase = OpenDatabase("c:\datos\MOVIPRO.MDB")
Set rcdregis = MiBase.OpenRecordset("PESO")
Set xobjeto = CreateObject("Scripting.FileSystemObject")
Set xarchivo = xobjeto.CreateTextFile("c:\ordenes.txt", True)
rcdregis.MoveFirst
Do While Not rcdregis.EOF
xarchivo.Write (Trim(rcdregis!documento)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!proveedor)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!fecha)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!peso)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!tara)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!descripcion)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!costo)): xarchivo.Write (",")
xarchivo.Write (Trim(rcdregis!codigo)): xarchivo.Write (",")
xarchivo.Writeline (Trim(rcdregis!Status))
rcdregis.MoveNext
Loop
xarchivo.Close
End Sub
SUERTE