将Excel表保存在当前文件夹中

我想将当前表格保存为与当前工作簿(已打开)相同的文件夹中的文本文件。

我使用这个代码:

ActiveWorkbook.SaveAs ThisWorkbook.path & "\" & filename 

出于某种原因,它将文本文件保存在我的personal.xlsb所在的文件夹中。

我使用Office 2010

如果这是不可能的,那么也许可以强制Excel打开一个浏览窗口,在那里我可以select我想要的文件保存。

ThisWorkbook指向编写代码的位置。 在你的情况personal.xlsb。

如果要将表保存在与活动工作簿相同的目录中,请改用ActiveWorkbook.path。