Итак, у меня есть файл доступа, который мне регулярно нужно скопировать в другой каталог, заменив последнюю версию. Я хотел бы использовать макрос 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] )
где источник и назначение - полные имена (включая пути) файла.
См. http://msdn.microsoft.com/en-us/library/aa711216(v=vs.71).aspx
Этот метод еще проще, если вы в порядке с меньшим количеством вариантов:
FileCopy source, destination