在 Excel 中创建按钮来复制文件？

Question

我想在 Excel 2010 中创建一个按钮，单击该按钮时，它将保存当前打开的 Excel 文件并将其复制到 C:\temp。

这可能吗？也许宏应该触发 exe 程序，或者可以在宏内完成所有操作？

Answer 1

With ActiveWorkbook
  .Save
  .SaveCopyAs "C:\Temp\Copy.xls"
End With

Answer 2

在按钮的 Click 事件中，您可以将当前工作表复制到另一个工作簿中，然后将其保存在 C:\Temp... 类似：

Sheets(Array("Sheet1", "Sheet2", "Another Sheet")).Copy
ActiveWorkbook.SaveAs "C:\Temp\Copy.xls"
ActiveWorkbook.Close