Как импортировать данные с разделителями табуляции в Excel с помощью VBA

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!