我使用什么代码自动另存为引用宏存储在工作表中的文件路径？

Question

**ThisWorkbook.SaveAs Filename:=Sheets.(Sheet1).Range("B25")**

单元格（“B25”）等于W：356487 \ Desktop \ ExcelFiles \ ABCtemplate.xlsb

代码运行完毕后，“另存为”部分位于宏的末尾。

Answer 1

ThisWorkbook.SaveAs Filename:=range("b25").value, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Answer 2

您的行中存在一些语法问题，更正如下： -

ThisWorkbook.SaveAs Filename:=Sheets("Sheet1").Range("B25")

同时确保B25中的路径指向现有文件夹。