VBA将大量集合导出到.csv文件

Question

我对VBA很新，我无法找到一个函数来导出我在模拟到.csv文件时创建的巨大集合。

我找到了一个解决方案，建议将集合转换为数组，然后在excel工作簿中编写。我成功打开一个wb，将东西转换成数组然后写。然而，这需要很长时间才能收藏。

我期待像R这样的东西： write.csv（）。

Answer 1

这是一个非常简短的例子：

Sub qwerty()
    Dim c As Collection
    Set c = New Collection

    c.Add "Larry,Moe,Curly"
    c.Add "Columbia,Magenta"
    c.Add "Winken,Blink,Nod"

    Close #1
    Open "C:\TestFolder\TestFile.csv" For Output As #1
    For i = 1 To c.Count
        Print #1, c.Item(i)
    Next i
    Close #1
End Sub