以.xls格式导出​​Excel工作簿

Question

我有一个Excel，每天都会更新销售数字。在一周结束时，当Excel完成时，我导出了WEEKLY工作表的PDF副本。获得PDF副本后，销售编号将转移到工作簿中的另一张纸上，从而清空WEEKLY工作表。

除了这份WEEKLY工作表的PDF副本之外，我还要将整个工作簿在一个单独的Excel文件中导出到相同位置（.xls格式很好）。在清空每周工作表之前，我想这样做。我尝试过使用另存为宏，但我想保留在原始Excel中-而不是新保存的文件。

作为参考，这是我的PDF导出的VBA代码：

Sub SaveWeekly()
'
' SaveWeekly Macro
'

'
    Sheets("WEEKLY").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Z:\Excel New\Previous Excels\" & Range("A1") & " " & Range("H1") & ", " & Format(Date, "yyyy") & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

End Sub

感谢您的帮助。

Answer 1

尝试此代码

Sub Test()
Dim strDate As String
Dim strTime As String

strDate = Format(Date, "DD-MM-YYYY")
strTime = Format(Time, "hh.mm.ss")

Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveCopyAs fileName:=ThisWorkbook.Path & "\" & strDate & "_" & strTime & "_" & .Name
    End With
Application.DisplayAlerts = True
End Sub