Excel 使用Dictionary metod集成多个csv文件中的数据

我正在尝试使用字典方法集成来自多个csv文件的数据。 虽然我已经仔细检查了路径和其他细节，但程序的运行遇到了错误

运行时错误432
在自动化操作期间未找到文件名或类名

此错误出现在以下代码行

.Item（sn（j））=GetObject（“G:\OF\”&sn（j））.Sheets（1）.UsedRange.Value

这是我的密码：

Sub M_integratie_csv()
    sn = Split(CreateObject("WScript.Shell").Exec("cmd /c Dir ""G:\OF\*.csv"" /b").StdOut.ReadAll, vbCrLf)
    With CreateObject("Scripting.Dictionary")
        For j = 0 To UBound(sn)
            .Item(sn(j)) = GetObject("G:\OF\" & sn(j)).Sheets(1).UsedRange.Value
            GetObject("G:\OF\" & sn(j)).Close False
        Next
        Sheets.Add.Name = "total"
        For Each it In .Items
            Sheets("total").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(it), UBound(it, 2)) = it
        Next
    End With
End Sub

我使用的csv文件链接如下。

---

哪里出错了？

以下代码在我的计算机上似乎工作正常：

Sub M_integratie_csv()
    sn = Split(CreateObject("WScript.Shell").Exec("cmd /c Dir ""G:\OF\*.csv"" /b").StdOut.ReadAll, vbCrLf)
    Set oDic = New Dictionary
    With oDic
        For j = 0 To UBound(sn)
            .Item(sn(j)) = GetObject("G:\OF\" & sn(j)).Sheets(1).UsedRange.Value
            GetObject("G:\OF\" & sn(j)).Close False
        Next
        Sheets.Add.Name = "total"
        For Each it In .Items
            Sheets("total").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(it), UBound(it, 2)) = it
        Next
    End With
End Sub

---

请注意，必须在VBE中设置对Microsoft脚本运行时的引用，才能使上述代码正常工作。

是否在VBE中设置了对Microsoft脚本运行时的引用？另一种可能是将其分为两行：

setodic=newdictionary

，然后使用oDic。我用上面提到的引用尝试了这种方法，在这里它似乎是有效的。我已经在VBE中将引用设置为Microsoft脚本运行时，但它不起作用。你的建议似乎很有希望。请你发送我的代码部分的更正，这样就不会有任何不匹配。它已经在为你工作了。