如何在excel中创建将当前文档保存到特定位置的宏

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

---

我该怎么做呢？

只需转到“开发人员”选项卡并录制一个宏。然后，将“另存为”保存到所需的任何位置。。。然后停止录制宏并查看代码。应该是这样的

x=所需的单元格

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

---

假设活页4中的单元格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

---

到目前为止你试过什么？网上有很多关于这类宏的教程。看看这个：棒极了，这真的很有帮助。具体来说，我在其中一个单元格中有一个序列号，该序列号在我的硬盘上有一个文件夹，我想将excel文档保存在该文件夹中。你知道那会怎样改变密码吗？我对vba非常不熟悉，所以请更新您的原始帖子，以显示样本单元格内容和相应文件夹。样本单元格内容：CF13G16样本对应文件夹：P:\2013\processed\CF13G16好的。但现在它给了我一个错误代码1004。它说对象“\u工作簿”的“另存为”方法失败