2011-04-19 30 views

回答

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")部分)

相關問題