La lecture des données depuis un fichier texte et de délimitation

J'ai une feuille de calcul Excel 2010, et je suis à la lecture de l'information à partir d'un .fichier txt (et un autre .fichier xls dans l'avenir).

Ce fichier texte a 3 éléments par ligne; firtname, nom et titre de l'Emploi, et chaque élément est séparé par une virgule. J'ai de la lecture des données et de les coller dans Excel, cependant, chaque ligne est collé dans une cellule. Je suis à la recherche pour coller chaque élément dans les différentes colonnes. Je sais que je devrais essayer et de les délimiter, mais je ne peux pas comprendre la syntaxe.

Ma question est comment puis-je séparer chaque élément et de le coller dans une cellule? Je suis actuellement à utiliser des virgules pour séparer chaque élément sur mon .fichier txt, mais les fichiers peuvent utiliser les onglets, points, points-virgules, etc. Comment puis-je étendre toutes les bases sont couvertes?

Ci-dessous mon code, et en vertu de mon code est un exemple de données factices

Sub FetchDataFromTextFile()
    Dim i As Long
    Dim LineText As String
    Open "C:\mytxtfile.txt" For Input As #24
    i = 2
    While Not EOF(24)
        Line Input #24, LineText
        ActiveSheet.Cells(i, 2).Value = LineText
        P = Split(Record, ",")
        i = i + 1
    Wend
    Close #24
End Sub

Jean, Doe, Patron

Johnny, Steele, Directeur

Jane, Smith, Employé

REMARQUE: Competant dans d'autres langages de programmation, mais pas fait de VB dans environ 6 ou 7 ans. Je peux ne semblent jamais à envelopper ma tête autour de la Syntaxe VB, donc merci de me traiter comme un novice pour ce.

OriginalL'auteur J.H. | 2013-05-21

  1. 3
    Sub FetchDataFromTextFile()
    Dim i As Long
    Dim LineText As String
    Open "C:\mytxtfile.txt" For Input As #24
    i = 2
    While Not EOF(24)
        Line Input #24, LineText
            Dim arr
            arr = Split(CStr(LineText), ", ")
            For j = 1 To 
                ActiveSheet.Cells(i, j).Value = arr(j - 1)
            Next j
            i = i + 1
    Wend
    Close #24
End Sub

    Pour différents délimiteurs, utiliser les réponses ici

    Manque quelque chose sur For j = 1 To ...

    OriginalL'auteur