使用 VBA 保存：不同单元格中的路径和文件名

Posted 2023-05-07

【中文标题】使用 VBA 保存：不同单元格中的路径和文件名

【英文标题】：Saving using VBA: Path and file name in different cells

【发布时间】：2018-01-22 14:51:50

【问题描述】：

我正在寻找一个代码，它可以在给定路径和位于该路径下的文件名下保存来自 excel 输出 (CHART jpg) 的结果。

所以地址（路径）位于单元格“W7”中。 以及单元格“W8”中的文件名 NAME.pptx。

换句话说，

在单元格“W7”中设置文件的路径 并在单元格“W8”中的文件名（应保存 excel 图片）：

Dim FName           As String
Dim FPath           As String

FPath = oWB.worksheets("Sheet1").Range("W7")
FName = oWB.worksheets("Sheet1").Range("W8")

如何将两个输入组合到一个 VBA 行中？

非常感谢您的反馈。 先感谢您。

【问题讨论】：

您能更清楚地了解您需要哪些帮助吗？要将两者连接起来，您只需执行FullPath= Path & FileName。

FullPath = Path & "\" & filename 我认为

您可能会发现以下有用：***.com/questions/15621318/…

您要将其保存为 Excel、jpg 还是 Powerpoint 文件？

您好，我想将 jpg 保存在 powerpoint 文件中。

【参考方案1】：

这样的？

ActiveWorkbook.SaveAs Path & "\" & FileName, fileFormat:=52

请看下面。

【讨论】：

不够具体是我的错。在您的代码中，您暗示使用 excel 文件所在的相同路径。在我想要的解决方案中，路径由两部分组成，路径和文件名将写入给定单元格中。 [在此处输入图片描述][1] 请看图片。 [1]：i.stack.imgur.com/jPhIx.jpg

我把它写得很短，并使用了你的变量。使用以下代码，您已经将变量分配给 Fpath 和 Fname： FPath = oWB.worksheets("Sheet1").Range("W7") FName = oWB.worksheets("Sheet1").Range("W8") 然后跟随你的变量应该保存你的文件：ActiveWorkbook.SaveAs Fpath & "\" & Fname, fileformat:=52 (如果你想把它保存为 *.XLSM)。