从文本文件中读取数据并进行分隔

我有一个Excel 2010电子表格，并且正在读取.txt文件（以及将来的另一个.xls文件）中的信息。

这个文本文件每行有3个元素; 姓，职称，每个元素用逗号隔开。 我有数据读取和粘贴到Excel中，但每行都粘贴到一个单元格。 我正在寻找将每个元素粘贴到不同的列。 我知道我应该尝试划分，但我不能弄清楚语法。

我的问题是如何分离每个元素，并将其粘贴到它自己的单元格？ 我目前使用逗号来分隔我的.txt文件上的每个元素，但未来的文件可能使用制表符，全站，分号等。我如何扩展它，使所有的基地被覆盖？

下面是我的代码，在我的代码下是一个虚拟数据的样本

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 

John，Doe，老板

Johnny，Steele，经理

简，史密斯，员工

注意：在其他编程语言中有竞争力，但是在大约6或7年内没有完成VB。 我似乎永远不能包围VB语法，所以请像对待新手这样对待我。

Answer 1

 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 

对于不同的分隔符，请使用这里的答案