[VBA/EXCEL] Estrazione da file testuale

[Aki]

Ave populus,
mi han chiesto una macro di excel che prenda dati da un file così:

 2005;    1964;SUPER SOTTOCOSTO 06/10-15/10            ;      1072;   1;ARANCIATA 1500CC S.BENEDETTO            ;IC;        75,000;        25,000; ; ; ; ;
 2005;    1964;SUPER SOTTOCOSTO 06/10-15/10            ;      1072;   8;GASSOSA 1500 CC S BENEDETTO             ;IC;        80,000;        25,000; ; ; ; ;
 2005;    1964;SUPER SOTTOCOSTO 06/10-15/10            ;      1123;   1;ACQUA SAN BERNARDO NAT  1500CC          ;IC;      2365,000;       336,000; ; ; ; ;
 2005;    1964;SUPER SOTTOCOSTO 06/10-15/10            ;      1124;   1;ACQUA S. BERNARDO FRIZZ.CL150           ;IC;      1980,000;       252,000; ; ; ; ;
...

che, se non erro, è un CSV.
Quindi come faccio ad aprire un flusso di input dal file in questione e leggerne i dati (separati da';')
Ciao

[mgmg]

Con una macro:

Open "c:\file.csv" For Input As #1 ' Apre il file.
Do While Not EOF(1) ' Ripete fino alla fine del file.
Line Input #1, TextLine ' Assegna la riga a una variabile.
Debug.Print TextLine ' Scrive nella finestra Immediata.
Z = Len(TextLine)
x = 1
y = 0
Do Until x > Z
If Mid(TextLine, x, 1) = ";" Then
y = y + 1
Testo = Mid(TextLine, 1, x - 1)
Cells(6, y) = Testo 'oppure se numerico val(testo)
End If
x = x + 1

Loop
Loop
Close #1 ' Chiude il file.

Per cercare il ; puoi usare anche l'istruzione instr piu' veloce senz'altro di questo codice che ti ho postato (che comunque io ho utilizzato e funziona ).
Ciao