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

Question

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

我使用此代码：

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

由于某种原因，它将文本文件保存在与personal.xlsb相同的文件夹中。

我使用Office 2010

如果不能轻易做到这一点，那么也许可以强制Excel打开一个浏览窗口，我可以在那里选择我想要保存文件的位置。

Answer 1

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

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