使用 activeworkbook.path 语法添加子文件夹

Question

好的，所以这是一个大工作簿中的短暂和平...我想要做的就是告诉它一个特定的保存位置。

ActiveWorkbook.SaveCopyAs _
    FileName:=ActiveWorkbook.Path "\OLD " & Range("D1").Value & ".XLSM"

这完全符合预期，但是，我想说的基本上 "activeworkbook.path" 再加上一步，指定一个名为 "old" 的文件夹，它将转到该文件夹。

本质上看起来像这样

\documents\test\my-file.xlsm

至此

\documents\test\OLD\my-file.xlsm

有什么提示吗？

Answer 1

您在 "\OLD " 中有一个 space，并且您没有关闭 \OLD 成为文件夹。

该行应该看起来像

ActiveWorkbook.SaveCopyAs _
    FileName:=ActiveWorkbook.Path & "\OLD\" & Range("D1").Value & ".XLSM"

我也会强烈考虑用你的工作表来证明你的Range("D1")。

Dim fileNameRng as range
Set fileNameRng = thisworkbook.worksheets("Sheet1").Range("D1")

ActiveWorkbook.SaveCopyAs _
    FileName:=ActiveWorkbook.Path & "\OLD\" & fileNameRng.Value & ".XLSM"

使用 activeworkbook.path 语法添加子文件夹

adding a sub folder using activeworkbook.path syntax

excel

vba

save

file-location

filepath