VBA打开之前的文件夹

Question

我想每次打开当前目录之前的文件夹。 我尝试了“ .. \\”，但没有成功，请您帮我

ThecurrentDirectory= fso.GetParentFolderName(objFile)
Set myWorkBook = myxlApplication.Workbooks.Open( ThecurrentDirectory & "\..\CLIENTS.xlsx" )

Answer 1

如果objFile是文件对象，则可以多次将其ParentFolder属性链接在一起以获得分散的结果：

Dim fso, f
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set objFile = fso.GetFile("C:\Users\best buy\Downloads\stackoverfow\test.xlsm")

输出：

• objFile.ParentFolder.ParentFolder = C：\\ Users \\百思买\\下载

Answer 2

只需将ThecurrentDirectory打包到另一个fso.GetParentFolderName中。

ThecurrentDirectory= fso.GetParentFolderName(objFile)
Set myWorkBook = myxlApplication.Workbooks.Open( fso.GetParentFolderName(ThecurrentDirectory) & "\CLIENTS.xlsx" )