Archivos txt
Estimado
Tengo un archivo de excel, del cual debo generar un archivo.txt con varias filas, delimitados por comas(,). ¿Cómo puedo realizarlo? '
Gracias
María
Tengo un archivo de excel, del cual debo generar un archivo.txt con varias filas, delimitados por comas(,). ¿Cómo puedo realizarlo? '
Gracias
María
Respuesta de clumulti
1
Private Sub btnGenerar_Click()
Dim ContadorBucle As Integer
Dim strRegistro As String
Dim i As Integer
Dim fs As Scripting.FileSystemObject
Dim a As Object
Set fs = New Scripting.FileSystemObject
Set a = fs.CreateTextFile("C:\ESQUEMA.TXT", True)
ContadorBucle = 0
'aca se espera unos segundos mientras se crea el archivo
If fs.FileExists("C:\ESQUEMA.TXT") = False Then
Do While ((fs.FileExists("C:\ESQUEMA.TXT") = False) Or (ContadorBucle < 200))
ContadorBucle = ContadorBucle + 1
Loop
End If
dim Fila as integer
For Fila = 1 To 10 'aca cambias hasta que fila debes recorrer en el excel
strRegistro = Sheets("Hoja1").Range("A" & Fila) & ","
a.WriteLine (strRegistro)
Next
a.Close
Set fs = Nothing
Set a = Nothing
End Sub
Dim ContadorBucle As Integer
Dim strRegistro As String
Dim i As Integer
Dim fs As Scripting.FileSystemObject
Dim a As Object
Set fs = New Scripting.FileSystemObject
Set a = fs.CreateTextFile("C:\ESQUEMA.TXT", True)
ContadorBucle = 0
'aca se espera unos segundos mientras se crea el archivo
If fs.FileExists("C:\ESQUEMA.TXT") = False Then
Do While ((fs.FileExists("C:\ESQUEMA.TXT") = False) Or (ContadorBucle < 200))
ContadorBucle = ContadorBucle + 1
Loop
End If
dim Fila as integer
For Fila = 1 To 10 'aca cambias hasta que fila debes recorrer en el excel
strRegistro = Sheets("Hoja1").Range("A" & Fila) & ","
a.WriteLine (strRegistro)
Next
a.Close
Set fs = Nothing
Set a = Nothing
End Sub
Me falto decirte que este código lo debes agregar en una macro del archivo excel.
Error
No se ha definido el tipo definido por el usuario
No se ha definido el tipo definido por el usuario
En la dimension de la variable fs declárala como object
Dim fs as object
Y en la creación del objeto pon el siguiente código:
Set fs = CreateObject("Scripting.FileSystemObject")
en vez de:
Set fs = New Scripting.FileSystemObject
Dim fs as object
Y en la creación del objeto pon el siguiente código:
Set fs = CreateObject("Scripting.FileSystemObject")
en vez de:
Set fs = New Scripting.FileSystemObject
