如何在Excel中创建一个宏，将当前文档保存到特定位置

Question

我正在excel 2010中创建一个模板，我想创建一个宏，将当前文档保存到具有特定单元格名称的文件夹中。

我该怎么做？

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

只需转到开发人员标签并录制宏即可。然后保存您想要的任何位置...然后停止录制宏并查看代码。应该是这样的。

x =您想要的单元格

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