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.
Moderatori: Anthony47, Flash30005
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
Torna a Applicazioni Office Windows
esportare testo da macro di Corel Draw Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
estrazione/ordinamento dati da pagina web Autore: nignetto |
Forum: Applicazioni Office Windows Risposte: 10 |
Inserisci riga sopra, copia dati e aggiungi testo Autore: BG66 |
Forum: Applicazioni Office Windows Risposte: 3 |
Excel: eseguire macro se modificato valori celle Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 5 |
EXCEL Copiare celle di un intervallo dinamico Autore: ste155 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 40 ospiti