如何使用VBA将制表符分隔的数据导入Excel

Question

鉴于我从Excel导入的制表符分隔数据，如何将其插入电子表格中，以便它像粘贴时一样在多个单元格中结束。

编辑：我在变量中有文字，所以我不想浏览文件系统。

Answer 1

这基本上是我最终提出的，它有点复杂并且使用了数组，但这就是它的要点。

i = 1
For Each Row In VBA.Split(text, vbCrLf)
    j = 1
    For Each Col In VBA.Split(Row, vbTab)
        ActiveSheet.Cells(i, j).Value = Col
        j = j + 1
    Next Col
    i = i + 1
Next Row

Answer 2

不应该太难。请尝试：http://www.zerrtech.com/content/excel-vba-open-csv-file-and-import

如果您想从字符串变量中执行此操作，请按结束行分割文本：

Dim linesSplit As Variant 
linesSplit = Split(yourTextVar, "\n") 

对于每个linesSplit，用逗号分隔：

Dim lineSplit As Variant 
lineSplit = Split(linesSplit[i], ",")

将结果放入工作表中。 GL！