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
scrivere una parola in ComboBox e caricarla filtrando i dati Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 3 |
cerca il più grande numero di celle vuote in un intervallo Autore: papiriof |
Forum: Applicazioni Office Windows Risposte: 2 |
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Visitano il forum: Nessuno e 11 ospiti