Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL: Salvare dati in file di testo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL: Salvare dati in file di testo

Postdi Francesco53 » 01/08/16 21:58

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
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL: Salvare dati in file di testo

Postdi karug64 » 02/08/16 00:14

Dimmi: ma il file txt ed il file excel sono su due cartelle diverse ?
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: EXCEL: Salvare dati in file di testo

Postdi Anthony47 » 02/08/16 01:29

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL: Salvare dati in file di testo

Postdi Francesco53 » 02/08/16 15:46

Grazie Anthony perfetta.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL: Salvare dati in file di testo":


Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti