我有一个访问文件,我需要定期复制到另一个目录,替换上一个版本。 我想用一个Excel宏来实现这个目标,并想在这个过程中重命名该文件。
比如说。
fileName = "X:\Database\oldName.accdb"
copyDestination = "Y:\dbstore\"
newName = "newName.accdb"
有什么简便的方法吗?
使用Scripting.FileSystemObject中的适当方法。这样,你的代码就能更好地移植到VBScript和VB.net。为了让你开始,你需要包括。
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
然后你可以用
Call fso.CopyFile(source, destination[, overwrite] )
其中source和 destination是文件的全名(包括路径)。
见https://docs.microsoft.com/en-us/office/vba/Language/Reference/user-interface-help/copyfile-method
在使用这段代码时,有一件事让我非常头疼(可能会影响到其他人,我希望有人在这里留下这样的评论让我看)。
我的解决方案是在另一个与数据库一起打开的隐藏表单中运行代码(在定时器事件中)。