在任何桌面上使用带命令button的excel文件创build一个新文件来执行该任务
我有一个Excel文件，BookDatabase.xls，其中包含书籍的数据库，并有一个命令button，将工作表的一些内容备份到一个新的Excel文件。
我的问题是BookDatabase.xls将用于笔记本电脑和桌面，我怎样才能使这个button在这两个设备上工作。
下面是我创build该文件的代码的一部分，我期望这不会在其他设备上工作，因为path只适用于桌面。
ActiveWorkbook.SaveAs Filename:="C:\Users\Karen\Documents\BookDatabase.xls" 我对VBA不太好，希望了解更多。 我希望你也可以在代码中留言，这样我可以更好地理解代码行的function。
如果问题只是在笔记本电脑上的用户名不一样，以下应该工作：
ActiveWorkbook.SaveAs Filename:=Environ("USERPROFILE") & "\Documents\BookDatabase.xls"