vba - 如何使用 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") 

对每一行分割，用逗号分割：

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

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