2

我正在尝试获取从 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

Access 返回运行时错误“12”：类型不匹配。

更新解决了上面的问题，感谢您的建议。现在我在线上遇到错误

Set cells = CreateObject(Scripting.Dictionary)

424：需要对象。

关于我错了什么的任何提示 - VBA 并不是我的强项。

更新 2也修复了这个问题（感谢下面的建议）。代码现在可以工作了。

4

2 回答 2

3

对于你的第二个问题——你需要提供目标类的字符串名称，所以它实际上是

Set cells = CreateObject("Scripting.Dictionary")
于 2009-06-23T12:48:45.467 回答
2

我认为 col 必须是字符串类型。

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

于 2009-06-23T12:01:23.423 回答