如何使用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！