VBA将文件从一个目录复制到另一个目录

Question

因此，我有一个访问文件，我经常需要将其复制到另一个目录中，以替换最新版本。我想使用Excel宏来实现此目的，并且还想在此过程中重命名文件。

例如

   fileName = "X:\Database\oldName.accdb"

   copyDestination = "Y:\dbstore\"

   newName = "newName.accdb"

有一个简单的方法吗？

Answer 1

使用此代码时使我头疼的一件事（可能会影响其他人，我希望有人在此处留下这样的评论供我阅读）：我的目的是创建一个动态访问仪表板，该仪表板需要更新其链接表。我使用上述复制方法将现有链接的CSV替换为它们的更新版本。从模块手动运行以上代码可以正常工作。从链接到CSV数据的表单运行相同的代码会出现运行时错误70（权限被拒绝），即使我代码的第一步是关闭该表单（该表单也应该已解锁CSV文件，以便可以覆盖它）。我现在相信，尽管该表单已关闭，但在执行与该表单相关联的VBA时，它会保持过期的CSV文件锁定。我的解决方案是从与数据库一起打开的另一个隐藏表单中运行代码（按计时器事件）。

Answer 2

如果您可以选择较少的选项，则此方法甚至更容易：FileCopy source, destination