Анализ значений, разделенных табуляцией, в VBA

Question

Я пытаюсь взять данные буфера обмена, скопированные из Excel (т. е.текст, разделенный табуляцией) и проанализируйте его в Коллекции словарей.Идея заключается в том, что каждая строка будет представлена Словарем, который сопоставляет заголовки со значениями ячеек.Первая строка в скопированных данных будет содержать заголовки.

Получить текст из буфера обмена достаточно просто:

Dim dataObj As DataObject
Dim clipString As String
Set dataObj = New DataObject
dataObj.GetFromClipboard
clipString = dataObj.GetText

Затем я разделил входные данные на строки:

Dim strRows As Variant

strRows = Split(clipString, vbNewLine)

Затем я пытаюсь извлечь заголовки:

Dim headers As New Collection
Dim strCols As Variant
strCols = Split(strRows(0), vbTab)

For col = LBound(strCols) To UBound(strCols) - 1
    headers.Add strCols(col)
Next

Наконец я извлекаю строки:

Dim cells
Dim rows As New Collection

For i = 1 To UBound(strRows) - 1
    strCols = Split(strRows(0), vbTab)
    Set cells = CreateObject("Scripting.Dictionary")
    For col = 0 To UBound(strCols) - 1
        cells.Add headers.Item(col + 1), strCols(col)
    Next
    rows.Add cells
Next

Однако я получаю сообщение об ошибке.На линии

headers.Add strCols(col), col

Доступ возвращается с ошибкой времени выполнения "12":несоответствие типов.

Обновить исправлена проблема, описанная выше, спасибо за предложения.Теперь я получаю сообщение об ошибке в строке

Set cells = CreateObject(Scripting.Dictionary)

424:Требуемый объект.

Любые намеки на то, в чем я ошибаюсь - VBA на самом деле не моя сильная сторона.

Обновление 2 исправлена и эта проблема (спасибо за предложение ниже).Теперь код работает.

Answer 1

Для вашей второй проблемы - вам нужно указать строковое имя целевого класса, так что на самом деле это

Set cells = CreateObject("Scripting.Dictionary")

Answer 2

Я думаю, что col должен быть строкового типа.

headers.Add strCols(col), cstr(col)