小编use*_*643的帖子

我在这个网站上发现以下代码"将Excel文件保存为CSV"有任何帮助你的方法我可以在特定时间(每晚11:00)自动运行此代码,并将文件名保存为当前日期(hr2015-05-05),任何帮助将不胜感激.谢谢

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFileName As String

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .DisplayAlerts = False
End With

Set Sourcewb = ActiveWorkbook
TempFileName = Sourcewb.FullName + ".csv"

'Copy the sheet to a new workbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Save the new workbook and close it
With Destwb
    .SaveAs Filename:=TempFileName, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges
    .Close SaveChanges:=False
End With

With Application
    .ScreenUpdating = True
    .EnableEvents = …