我有一个excel文件，BookDatabase.xls，它包含一个书籍数据库，并有一个命令按钮，用于将工作表的某些内容备份到新的Excel文件。
我的问题是BookDatabase.xls将用于笔记本电脑和桌面，如何让这个按钮在两个设备上都能正常工作。
以下是我创建文件的部分代码，我希望这在其他设备中不起作用，因为该路径仅适用于桌面。
ActiveWorkbook.SaveAs Filename:="C:\Users\Karen\Documents\BookDatabase.xls"
我对VBA不太满意，想了解更多。我希望你也可以在代码中添加注释，这样我就能更好地理解代码行的功能。
答案 0 :(得分：1)
如果问题仅在于笔记本电脑上的用户名不同，则以下情况应该有效：
ActiveWorkbook.SaveAs Filename:=Environ("USERPROFILE") & "\Documents\BookDatabase.xls"