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
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Ricavare dati di origine di un grafico online Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 19 |
Sempre su Autohotkey...importare dati e copiarli in file.txt Autore: Paolo67met |
Forum: Programmazione Risposte: 27 |
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 57 ospiti