Esportare dati celle xcel

[nicktrichy]

Salve a tutti,sto cercando una soluzione ,per esportare in dati di 1000 celle excel in altrettanti file txt.
Spiego meglio Cella (A) nome da assgnare al file Cella (B) dati da incorporare nel file.

[Anthony47]

Ciao nicktrichy, benvenuto nel forum.
Penso che puoi ottenere quel che ti serve con una macro come questa:

Codice: Seleziona tutto

Sub coltext()
Dim LastR As Long, I As Long, Riga As String, myPath As String
'
myPath = "C:\Users\UTENTE\Documents\"        '<<< Il percorso in cui salvare, CON \ finale
LastR = Cells(Rows.Count, 1).End(xlUp).Row
For I = 1 To LastR
    NextF = FreeFile
    Open myPath & Cells(I, 1) & ".txt" For Output As #NextF
        Riga = Cells(I, 2)
    Print #NextF, Riga
    Close
Next I
End Sub

Operativamente:
-da excel, Alt-F11 per aprire l' editor delle macro
-Menu /Inserisci /Modulo
-copia il codice e incollalo nel frame vuoto di dx
Personalizza la riga marcata "<<<"

Torna poi su excel, attiva il foglio con i tuoi dati e manda in esecuzione la macro (Alt-F8, scegli coltext dall' elenco che ti propone, premi Esegui).
Prova prima con poche righe...

Ciao, fai sapere