Allego file creato con la tua macro:
http://www.megaupload.com/?d=CVWQGW4Z
Grazie
Francesco
Moderatori: Anthony47, Flash30005
Sub Leggi_Line_Input()
File_Inp = "D:\Test.txt"
Open File_Inp For Input As #1
Do Until EOF(1)
I = I + 1
' Legge con "LINE INPUT"
Line Input #1, Dati
Sheets("Foglio1").Cells(I, 1) = "---" & Dati & "+++" ' <<--------- i "---" e i "+++" servono solo a capire quanto inizia e quando finisce la tua "Riga"
Loop
Close
End Sub Torna a Applicazioni Office Windows
| Trasferimento dati sparpagliati da foglio1 a foglio2 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Esportare password da Chrome a Opera su Windows Autore: sandrawelker |
Forum: Sistemi Operativi Windows Risposte: 1 |
| Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Visitano il forum: Marius44 e 42 ospiti