☰

VBA - 根据日期创建并保存到文件夹

tag-icon • tag-icon microsoft-excel vba
VBA - 根据日期创建并保存到文件夹

我需要做一些看似简单的事情，但我很难弄清楚如何实施。

我需要使用今天的日期创建一个文件夹。这部分没问题。然后我需要使用文本和今天的日期保存一个文件（也很好）。

让我困惑的是，我需要将新文件保存到新文件夹中。我怎样才能让文件同时以今天的日期保存，并将其保存到以今天的日期保存到新文件夹中？（如果文件路径是恒定的，我可以这样做，但是当部分路径根据日期而变化时，我不知道该怎么做）

我试过了，但是没有用。我收到以下错误：1004：应用程序定义或对象定义的错误。

Sub filesave()

ActiveWorkbook.SaveAs ("S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx")

End Sub

这是创建文件夹的代码（运行完美）：

Sub FolderCreate()

MkDir "S:\HR\TM\" & Format(Now(), "dd.mm.yyyy")

End Sub

请注意，为了安全起见，文件路径/目录已稍微修改/简化。

答案1

只是猜测：

fname = "S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx"
MsgBox fname
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook

相关内容