如何编写VBA代码以将文件名保存为单元格值的excel工作簿？

我有一个每周都会更改的工作簿，我想编写一个脚本，将工作簿保存在设置的位置，并将名称更改为每周的开始日期

任何帮助都将不胜感激，如果我不清楚，我将尝试更好地解释它

谢谢

您可以使用。我链接的页面解释了传递给函数的不同参数的作用，最适合您的是第一个参数，

Filename

，您可以将其设置为几乎等于任何字符串（例如从单元格检索的字符串）。您还可以（可选）在文件名之前包含文件路径，以确定文件的保存位置，否则将保存到当前文件夹

Workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

您可以将路径和文件名作为字符串分配给

FileName

---

您是否尝试过录制宏并用所需名称保存工作簿？这应该会生成必要的代码，为什么不在发布前尽最小努力搜索解决方案呢？SO在这里帮助您解决编程问题，而不是惰性问题。我不断收到错误“应用程序定义或对象定义错误”我的代码是ActiveWorkbook.SaveAs文件名：=“E:\Weekly Hours\”&单元格。项（4，B），文件格式：=\xlOpenXMLWorkbookMacroEnabled，CreateBackup:=false可能只是语法有问题（例如，您不能使用范围限定符

单元格。我认为，项（4，B）

。稍微改变一下，这个简短的宏对我来说很有用：

Sub test（）ActiveWorkbook.SaveAs文件名：=“C:\Users\a2******\Documents\Excelark\”&工作表（“Sheet2”）。范围（“B4”），文件格式：=xlOpenXMLWorkbookMacroEnabled，CreateBackup:=False End Sub