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