xlsb - 用于保存 Personal.xlsb 副本的宏

Question

我想要一个宏来保存我的 Personal.xlsb 的备份——为什么这对我不起作用？Workbooks("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