从工作表中提取选项卡，并另存为新文件到特定目录中，文件名为今天的日期

Question

我想从Excel的一个选项卡中复制数据，将数据粘贴到新工作表中，然后将新工作表保存到特定目录中，今天的日期为新保存文件的名称。

如何使用VBA做到这一点？

每天都会在同一确切时间发生。我想我会结合使用onTime和人们在这里为我提供帮助的任何脚本。

Answer 1

这在VBA中只需要几行代码：

Sub SaveSheet1()
    'This will copy the sheet and by default stick it in a new workbook
    Sheets("Sheet1").Copy
    'That new workbook is now the "ActiveWorkbook" so save it.
    ActiveWorkbook.SaveAs ("C:\my_new_workbook" & Format(Now(), "YYYYMMDD") & ".xls")

End Sub

Answer 2

我建议您使用工作表的代号，而不是使用用户可以轻松更改的选项卡名称。