用于保存Personal.xlsb副本的宏

Question

我想要一个宏来保存我的Personal.xlsb的备份--为什么这对我不起作用？工作簿(“Personal.xlsb”).SaveCopyAs "C:Users\Tom\Documents\Test.xlsb“我收到运行时错误1004，提示Excel无法访问文件"C:Users\Tom\Documents\Test.xlsb”--我认为它不需要访问它，而是需要创建它。(我知道我可以手动将Personal.xlsb从一个位置复制到另一个位置。)

Answer 1

正如我的老师Leila Gharani所提供的，关键在于:即使使用不同的名称，打开的Personal.xlsb文件的副本也只能保存到xlstart文件夹中。因此，将Personal.xlsb的副本保存到另一个文件夹(用用户名代替Tom)的代码如下：

Workbooks("Personal.xlsb").SaveCopyAs _
    "C:\Users\Tom\AppData\Roaming\Microsoft\Excel\xlstart\Personal(1).xlsb" _
    'can only save it to this folder

 Name "C:\Users\Tom\AppData\Roaming\Microsoft\Excel\xlstart\Personal(1).xlsb" As _
        "C:\Users\Tom\Documents\Personal-Test.xlsb" _
        'can name as (and thus move to) any folder & name