Importación a un txt
Muy buenas.
Recurro a ti porque en su día ya me ayudaste y te agradezco de antemano tu tiempo. Hago una exportación de una consulta a un txt en Access 2000 y el fichero que me genera siempre tiene una linea en blanco al final y me gustaría que no aparecise. ¿Sabes cómo hacerlo? Muchas gracias.
Recurro a ti porque en su día ya me ayudaste y te agradezco de antemano tu tiempo. Hago una exportación de una consulta a un txt en Access 2000 y el fichero que me genera siempre tiene una linea en blanco al final y me gustaría que no aparecise. ¿Sabes cómo hacerlo? Muchas gracias.
1 Respuesta
Respuesta de xabi
1
¿Puedes explicarme un poco mejor lo que haces?
Muy buenas.
Me explico. En Access 2000 tengo creada una consulta. Esa consulta la exporto a un fichero .txt. Para ello tengo creada una especificación de exportación. Me hace la exportación correcta pero siempre me añade al final del archivo una linea en blanco. Me gustaría que no me la añadiese.
Gracias.
Me explico. En Access 2000 tengo creada una consulta. Esa consulta la exporto a un fichero .txt. Para ello tengo creada una especificación de exportación. Me hace la exportación correcta pero siempre me añade al final del archivo una linea en blanco. Me gustaría que no me la añadiese.
Gracias.
No se como lo haces exactamente pero yo tengo este código que hace más o menos lo mismo, es algo por el estilo:
Sub Exportar()
Public cn As ADODB.Connection
Public tOrigen As ADODB.Recordset
Public fs As FileSystemObject
Public ts As TextStream
Dim sLinea As String 'linea a guardar
Dim iCont As Integer 'Contador de linea
Dim sFile As String 'Nombre del fichero "TAR*"
Set cn = New ADODB.Connection
Set tOrigen = New ADODB.Recordset
Set fs = New FileSystemObject
cn.ConnectionString = "DSN=Tarifa"
cn.Open
tOrigen.ActiveConnection = cn
tOrigen.CursorType = adOpenKeyset
tOrigen.LockType = adLockReadOnly
tOrigen.Source = "SELECT *" & _
" FROM Tarifa"
tOrigen.Open
tOrigen.MoveFirst
pbr.Max = tOrigen.RecordCount
pbr.Min = 0
pbr.Value = 0
pbr.Visible = True
iCont = 0
iFile = 0
lstProv.Refresh
sFile = App.Path & "\Tarifa.txt"
Set ts = fs.CreateTextFile(sFile, True)
While Not tOrigen.EOF
sLinea = ""
sLinea = tOrigen("Referencia") & ""
sLinea = sLinea & tOrigen("Descripcion") & ""
sLinea = sLinea & tOrigen("PVP") & ""
ts.WriteLine sLinea
tOrigen.MoveNext
pbr.Value = pbr.Value + 1
iCont = iCont + 1
Wend
pbr.Visible = False
Ts. Close
TOrigen. Close
End Sub
Tienes que añadir una referencia:
Microsoft Scripting Runtime - Para FileSystemObject y TextStream
Uso ADO (cn, tOrigen) para acceder a la BD
Sub Exportar()
Public cn As ADODB.Connection
Public tOrigen As ADODB.Recordset
Public fs As FileSystemObject
Public ts As TextStream
Dim sLinea As String 'linea a guardar
Dim iCont As Integer 'Contador de linea
Dim sFile As String 'Nombre del fichero "TAR*"
Set cn = New ADODB.Connection
Set tOrigen = New ADODB.Recordset
Set fs = New FileSystemObject
cn.ConnectionString = "DSN=Tarifa"
cn.Open
tOrigen.ActiveConnection = cn
tOrigen.CursorType = adOpenKeyset
tOrigen.LockType = adLockReadOnly
tOrigen.Source = "SELECT *" & _
" FROM Tarifa"
tOrigen.Open
tOrigen.MoveFirst
pbr.Max = tOrigen.RecordCount
pbr.Min = 0
pbr.Value = 0
pbr.Visible = True
iCont = 0
iFile = 0
lstProv.Refresh
sFile = App.Path & "\Tarifa.txt"
Set ts = fs.CreateTextFile(sFile, True)
While Not tOrigen.EOF
sLinea = ""
sLinea = tOrigen("Referencia") & ""
sLinea = sLinea & tOrigen("Descripcion") & ""
sLinea = sLinea & tOrigen("PVP") & ""
ts.WriteLine sLinea
tOrigen.MoveNext
pbr.Value = pbr.Value + 1
iCont = iCont + 1
Wend
pbr.Visible = False
Ts. Close
TOrigen. Close
End Sub
Tienes que añadir una referencia:
Microsoft Scripting Runtime - Para FileSystemObject y TextStream
Uso ADO (cn, tOrigen) para acceder a la BD
