VBA在

Question

我想每次在当前目录之前打开文件夹。我试过“..”但是它不起作用，你能帮我解决这个问题。

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

Answer 1

如果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

Answer 2

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

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