使用 VBA 将文件复制到动态文件夹

如何解决使用 VBA 将文件复制到动态文件夹

我有一个 VBA 代码，可以根据日期每天运行它来创建一个文件夹。我为此使用 MkDir；

MkDir "C:\Users\Stark\Desktop\Automation\Report" & " " & Format$(Date,"dd-mm-yyyy")

创建此文件夹后，我必须将一些文件复制到此文件夹中，我将不得不在该文件夹上工作。由于每次运行时此路径都会不断变化，因此我不确定在这种情况下如何将文件复制到新创建的文件夹中。如果我使用与上述相同的路径，则 Filecopy 函数会引发错误。

Filecopy "C:\Users\Stark\Desktop\Templates\RawData.xlsx","C:\Users\Stark\Desktop\Automation\Report" & " " & Format$(Date,"dd-mm-yyyy")\RawData.xlsx"

当我想将文件从 Templates 文件夹复制到新创建的文件夹时，这部分会引发错误。

请帮助我。

解决方法

如果我更正 FileCopy 行末尾的连接，您的代码在这里运行良好：

\RawData.xlsx" 必须使用 & 正确连接（就像在其他地方一样）：

FileCopy "C:\Users\Stark\Desktop\Templates\RawData.xlsx","C:\Users\Stark\Desktop\Automation\Report" & " " & Format$(Date,"dd-mm-yyyy") & "\RawData.xlsx"