以 .xls 格式导出 Excel 工作簿答案

【问题标题】：Export Excel Workbook in .xls Format以 .xls 格式导出 Excel 工作簿
【发布时间】：2019-01-18 08:16:35
【问题描述】：

我有一个每天都会更新销售数字的 Excel。在周末，当 Excel 完成时，我导出了一份每周工作表的 PDF 副本。一旦我有了 PDF 副本，销售数字就会转移到工作簿中的另一张工作表中，从而清空每周工作表。

除了这份每周工作表的 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

感谢任何帮助。

【问题讨论】：

我觉得这是一个简单的顺序问题。如果您不想退出正在处理的文件（您还有其他工作要做），但想在退出前将文件保存在单独的语言环境中......为什么不使用 SaveAs 作为最后一个完成所有工作后归档文件的步骤？
SaveCopyAs 可能是你需要的
^^^^ 蒂姆·威廉姆斯有它
我编辑了我的问题，以更准确地描述我需要导出或复制的原因。谢谢大家的帮助！

标签： vba excel

【解决方案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

【讨论】：

这让我得到了我需要的东西。我稍微编辑了它以调整保存位置，但它是完美的！