VBA之前打开文件夹

Question

我想每次打开当前目录之前的文件夹。我想“.. \”，但它没有工作，你能帮助我与N个

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

Answer 1

刚收拾ThecurrentDirectory在另一个fso.GetParentFolderName。

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

Answer 2

如果OBJFILE是一个文件对象，然后你可以连一起的ParentFolder物业多次获得disred结果：

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 \ best buy \ Downloads