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
1

1 Respuesta

3.500 pts. Ingeniero Informatico
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
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
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas