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