如何在Excel中创build一个将当前文档保存到特定位置的macros

我在Excel 2010中创build了一个模板，我想创build一个将当前文档保存到具有特定单元名称的文件夹的macros。

我将如何做到这一点？

Answer 1

在Sheet4中说单元格D8包含：

C：\ TestFolder

尝试像这样：

 Sub SaveMe() s1 = Sheets("Sheet4").Range("D8").Value ActiveWorkbook.SaveAs s1 & "\" & ActiveWorkbook.Name End Sub 

编辑＃1：

根据您的意见修改后的代码应该是：

 Sub SaveMe() s1 = Sheets("Sheet4").Range("D8").Value patth = "P:\2013\processed\" & s1 & "\" & ActiveWorkbook.Name ActiveWorkbook.SaveAs patth End Sub 

Answer 2

只需去开发人员选项卡并logging一个macros。 然后做一个保存，无论你想要的位置…然后停止录制的macros和查看代码。 应该看起来像这样

x =你想要的单元格

 ChDir "path" ActiveWorkbook.SaveAs Filename:= _ "path" & x ".xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False