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
| How to Fix Excel Freezing When Opening Large Files on Window Autore: olalaleon |
Forum: Applicazioni Office Windows Risposte: 2 |
| Trasferimento dati sparpagliati da foglio1 a foglio2 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 17 |
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 31 ospiti