Exportar de varios excel a 1 txt

[Ramo72]

Buenas, a ver si me pueden ayudar.

Tengo dos excels, de los cuales quiero exportar los datos de una hoja, de cada uno, a un solo Txt.

Mediante el siguiente codigo (colocado en ambos archivos excel) logro realizar la exportacion al mismo txt, tomando rangos variables (siempre y cuando no existan celdas vacias en la base de datos). El procedimiento es llamado al cierre de cada libro.

Sub pasaratxt1()

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

'====C1=========================================================================================================


'Defino las ctes/variables


    Dim MiRango As Range, Largo As Integer, FilaActual As Long

    On Error Resume Next


'Activo la hoja a exportar (tiene varias hojas el excel)


    ThisWorkbook.Sheets("C1").Activate

    Dim U, C As Integer

'La exportacion no contempla los titulos, por lo tanto verifico que existan datos en la primer celda donde se cargarian los mismos

    If Range("A2") = "" Then

    Exit Sub

    Else


'Defino el rango seleccionando la ultima celda con datos y seleccionando hasta la primera


    U = Range("A" & Rows.Count).End(xlUp).Row

    C = Cells(U, Columns.Count).End(xlToLeft).Column

    Set MiRango = Range(Cells(2, 1), Cells(U, C))

    On Error GoTo 0

        If MiRango Is Nothing Then Exit Sub


'con Open... Append le estoy diciendo que coloque los datos en secuencia con los datos anteriores. 


        Open "Z:\TABLERO COMANDO PRODUCCION\2012\TXT\UTE1C1.txt" For Append As #1

    For Each celda In MiRango

        If Largo <= Len(celda) Then Largo = 1 + Len(celda)

    Next celda

        FilaActual = MiRango.Cells(1).Row

    For Each celda In MiRango

        If FilaActual < celda.Row Then

            FilaActual = celda.Row: Print #1, ""

        End If

        Print #1, CStr(celda); ";";

    Next celda

        Close #1

        Set MiRango = Nothing

    End If

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True


End Sub[/CODE]

El codigo funciona bien excepto por un detalle que es con lo que me gustaria que me ayuden

Al colocar los datos en forma secuencial, pega los datos al final de la ultima linea. Sin pasar de linea como seria ideal. Provocando que siempre la ultima y primera linea de un nuevo archivo queden como una sola en el txt.

Entonces la pregunta es: ¿Como puedo hacer para que me coloque los datos despues de la ultima linea de datos del txt, pero iniciando desde una nueva linea?

Saludos

[Ramo72]

Siendo un poco mas especifico, el posee desde inicio los titulos viendose similar a:

Nombre1;Nombre2;Nombre3;Nombre4;Nombre5;Nombre6;

Cuando pego los datos con el codigo que expuse antes queda

Nombre1;Nombre2;Nombre3;Nombre4;Nombre5;Nombre6;Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

lo que busco es que quede

Nombre1;Nombre2;Nombre3;Nombre4;Nombre5;Nombre6;

Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

Dato1;Dato2;Dato3;Dato4;Dato5;Dato6;

He visto temas similares pero no logro adaptar los codigos a este que yo poseo, ni utilizarlos como alternativa.

La idea seria que antes de cargar la primera linea haga un salto de linea, o que lo haga despues de la ultima linea, cualquiera de las dos alternativas serviria. No he logrado realizar ninguna de las dos cosas.

Saludos

[ezequielcufone]

Hola Ramo, como andas? miré tu macro y se me ocurrió incorporarle a tu codigo Print #1, "" antes de la sentencia Close #1 y funciona genial. probalo!

Saludos.-

[Ramo72]

Hola ezequiel, si funciona, justamente genera un salto de linea despues de la ultima linea cargada, por lo que cuando se realiza una nueva carga, comienza desde ahi y no desde la linea anterior.

Muchisimas gracias por la solucion. Realmente esto es algo que no lograba decifrar.

Saludos

Pueden dar el tema como cerrado supongo.