将文件保存到动态路径，这是 Excel 单元格中的值

Question

我在 PowerPoint 中有一个 vba 代码，它使用活动的 Excel 文件的名称自动保存文件。

 PowerPointApp.ActivePresentation.SaveAs "Z:_PROJECT\Tanverdi\" & Replace(ThisWorkbook.Name, "xlsm", "ppt"), 1

不同的人会使用这个宏，他们都有不同的文件夹。所以我希望文件夹的路径也是动态的。最好的解决方案是从我的活动 Excel 单元格中获取路径名，这样他们就可以在 Excel 单元格中写入路径名，然后我可以将此单元格值用作路径。

但是我怎么能这样做呢？

Answer 1

假设路径在 Sheet1/Cell A1 中，将您的硬编码路径替换为：

PowerPointApp.ActivePresentation.SaveAs ThisWorkbook.Sheets(1).Range("A1").Value & Replace(ThisWorkbook.Name, "xlsm", "ppt"), 1

Saving a file to dynamic path which is a value in Excel cell