在Excel中创buildbutton来复制文件？

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

这可能吗？ 也许一个macros应该触发一个exe程序，或者可以全部在macros内完成？

Answer 1

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

Answer 2

在button的Click事件中，可以将当前工作表复制到另一个工作簿中，然后将其保存在C：\ Temp中，如下所示：

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