Inlezen text file en op werkblad weergeven

[bjorn1976]

Op dit moment ben ik bezig met mijn tomtom map collectie weer te geven in excel.
Hierbij wil ik graag bijgevoegde txt file inlezen in excel waarbij de gegevens horizontaal in de sheet worden weergegeven, dus in cel a1, b1, c1, enz.

Wie kan mij hierbij helpen?

 

[snb]

Sub tst()
    Workbooks.Open "C:\Aachen.txt", , , , , , , , 2
End Sub

Kijk even welk karakter de velden scheidt en pas daar 2 op aan.

 

[bjorn1976]

Sub tst()
    Workbooks.Open "C:\Aachen.txt", , , , , , , , 2
End Sub

Kijk even welk karakter de velden scheidt en pas daar 2 op aan.

Helaas, dit is niet wat ik bedoel.

Wil dit doen met Open "Bestand" For Input As #1

Tevens komen de gegevens niet in de cellen a1, b1, c1, enz maar onder elkaar.

dus dit werkt niet, ook krijg je een melding dat het een sylk bestand is, en deze melding wil ik ook niet in beeld krijgen.

De velden in het textbestand worden gescheiden door een block character

de code die ik tot nu toe heb is:

Open dDirs.Path & "\" & tmp For Input As #1
While Not EOF(1)
sPNA = sPNA + 1
Line Input #1, sRegel(sPNA)
If Left(sRegel(sPNA), 2) = "ID" Then Worksheets("Menu").Cells(C, 8).Formula = Right(sRegel(sPNA), Len(sRegel(sPNA)) - 3)

Wend
sPNA = 1
Close #1