在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