Vedi se con questo codice ottieni il risultato sperato.![]()
Per quanto riguarda le guide online non saprei cosa consigliarti. Non conosco nessun sito che meriti più di altri. Man mano che mi si presenta un problema mi aiuto con la generazione automatica delle macro e poi con il fido google.
Personalmente ho iniziato ad usare il vba relativo ad excel solo da poco perchè costretto da esigenze lavorative e ho acquistato un manualetto dei miti mondadori a pochi euro. Ora sono in ufficio e non ricordo il titolo esatto. Nel caso ti interessi ti dico il titolo stanotte.
Personalmente trovo molto utile questo forum in inglese
http://www.vbforums.com/
nella sezione office development trovi tante discussioni interessanti e gente molto preparata.
@patel: troppo buono ma grazie lo stesso. Ah, comunque dilettante.codice:Sub copiatxt() 'recupero il valore dell'ultima riga contenente qualcosa nella colonna A ultima = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row Set fso = CreateObject("Scripting.FileSystemObject") 'passo il percorso del mio file di testo Set file = fso.OpenTextFile("C:\Documents and Settings\...\tuofile.txt", 1, -2) k = 0 i = ultima + 1 'setto l'indice della riga da cui iniziare a scrivere, pari al numero dell'ultima riga già occupata + 1 Do While Not file.AtEndOfStream 'ciclo il mio file di testo riga = file.ReadLine 'recupero il contenuto di ciascuna riga valori = Split(riga, ",") For Each valore In valori ActiveSheet.Cells(i, 1).Offset(0, k).Value = valore k = k + 1 Next valore k = 0 i = i + 1 '.. e incremento il contatore Loop file.Close 'libero le risorse Set file = Nothing Set fso = Nothing End Sub![]()
![]()

Rispondi quotando