Question

我查询xls文件并将其保存到文件夹中。这个文件夹位于许多文件夹的末尾，我希望代码使用先前的文件夹名称保存它（猜测我需要一个只返回一个文件夹的相对路径）＆amp;当前文件夹名称＆amp;当前日期，采用xlsm格式，以便稍后可以在其上使用宏。

例如：先前文件夹的名称是＆＃34;主文件夹＆＃34; 当前文件夹的名称是＆＃34; Program＆＃34; 日期是＆＃34; 01/22/2016＆＃34;

我希望它保存为＆＃34;主文件夹程序01.22.16＆＃34;作为xlsm文件

之前我已经保存到特定的位置，但这是不同的，因为我需要它作为相对参考，因为我为不同的报告执行此过程数十次/天。

Excel 2013

Answer 1

好的，所以这可能有点难看作为解决方案，但它对我有用。请注意，我在我的mac上这样的路径给出了：它可能是/在Windows上的内存。所以只需更新一下。但是...：

Dim str As String
Dim today As Date
Dim x As Integer

today = Now()
str = Application.ActiveWorkbook.Path
x = InStrRev(str, ":", InStrRev(str, ":") - 1)
str = Mid(str, x + 1)
str = Replace(str, ":", " ")
str = str + " " + Format(today, "dd.mm.yyyy")

将工作簿另存为文件夹名称的VBA代码

1 个答案: