EXCEL: Salvare dati in file di testo

[Francesco53]

Un caro saluto a tutto il Forum, scrivo per la seguente difficoltà:
ho recuperato qui nel forum una macro per salvare i dati da un foglio in un file di testo,
il tutto funziona però mi salva il file in C:\Utenti\Francesco\Documenti\Archivio.txt
La mia richiesta è la seguente:
vorrei salvare il file di testo nella stessa Cartella dove è presente il file Excel.
Questa è la macro:

Codice: Seleziona tutto

Sub file_testo()
n = "Archivio"
n = n & ".txt"
colonna_inizio = 1
riga_inizio = 2
colonna_fine = 25
riga_fine = Cells(1, 1)
Open n For Output As #1
    For y = riga_inizio To riga_fine
        For I = colonna_inizio To colonna_fine
            valore = Cells(y, I).Value
            If I = colonna_fine Then
                valore = valore & vbCrLf
            Else
                valore = valore & ";"
            End If
                Print #1, valore;
        Next I
    Next y
Close #1
End Sub

Ringrazio chi può darmi un aiuto,
Francesco

[karug64]

Dimmi: ma il file txt ed il file excel sono su due cartelle diverse ?

[Anthony47]

La macro crea il file txt nella cartella dei Documenti, o nell'ultima impostata tramite chdir, indipendentemente dalla cartella in cui si trova il file che si vuole convertire.
Per ottenere quanto richiesto dovrebbe essere sufficiente sostituire queste righe
n = "Archivio"
n = n & ".txt"
con

Codice: Seleziona tutto

n = Activeworkbook.Path & "\Archivio.txt"

Ho l'impressione che si puo' ottenere lo stesso risultato usando (con cautela) il comando Salva con Nome e scegliendo il formato csv.
La cautela e' dovuta al fatto che il comando salva solo il testo del foglio attivo e perde tutto il resto, se il file originale non viene salvato subito prima.

Ciao

[Francesco53]

Grazie Anthony perfetta.
Francesco