hent en datafil ind i et bestemt celleområde

Et bud:
Koden indsættes i Ark1 og begyndes (p.t.) direkte i VBA

Sub HentFraTxtFil()
Dim linie As String
    filnavn = Application.GetOpenFilename      'udpeg filen
   
    Open filnavn For Input As #1
    While Not EOF(1)
        Line Input #1, linie
        sætIark linie
    Wend
    Close (1)
End Sub
Private Sub sætIark(linie)
    If Right(linie, 1) <> "," Then
        linie = linie + ","
    End If
   
    række = 6                                  'start række
    While InStr(linie, ",")
        p = InStr(linie, ",")
        værdi = Left(linie, p - 1)
        linie = Mid(linie, p + 1)
       
        Cells(række, 2) = værdi                'indsættes i kolonne B
        række = række + 1
    Wend
End Sub

lukker