如何让Excel以编程方式写入CSV？

Question

目前，我的电子表格会读取财务数据。我想以编程方式每秒将其转储为CSV。我怎么能在VBA中做到这一点？

Answer 1

这样的事情应该有效：

Sub SetTimeout()
    Application.OnTime Now + TimeValue("00:00:30"), "SaveAsCSV"
End Sub

Sub SaveAsCSV()
    Calculate
    ActiveWorkbook.SaveAs Filename:="book1.csv", FileFormat:=xlCSV, CreateBackup:=False
    Call SetTimeout
End Sub

只要您想开始保存，只需拨打SetTimeout()，从那时起每30秒就会调用一次（Now + TimeValue("00:00:30")部分）