我想获取“另存为”菜单中列出的“当前文件夹”

Question

当我单击Current Folder然后查看Save As位置时，我试图获取Recent的值。

对于确切的应用程序，我有一个SharePoint库，其中将宏文件设置为“新建”文件的文档模板。我有一个按钮，该按钮运行“另存为”命令，并希望将其保存到当前文档集中。

当我停止宏并转到“另存为”菜单时，单击“最近”，我看到正确的文档集被设置为“当前文件夹”，但是我似乎无法通过VBA获得该位置，因此可以自动保存文件在那里。似乎是应用程序级别的属性。

ThisWorkbook.path，CurDir和其他命令给我空字符串或Excel应用程序的路径。

Thisworkbook.path
curDir

我似乎只得到应用程序本身的位置，例如： C:\Program Files (x86)\Microsoft Office\Root\Office16 或空字符串。

Answer 1

Dim path As String
path = Application.RecentFiles(1).Path
path = Left$(path, InStrRev(path, Application.PathSeparator))