VBA函数getExcelFolderPath2无法返回字符串问题求助

原函数代码 #

Function getExcelFolderPath2() As String

    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    
    Dim fullPath As String
    
    fullPath = fso.GetAbsolutePathName(ThisWorkbook.Name)
    
    fullPath = Left(fullPath, Len(fullPath) - InStr(1, StrReverse(fullPath), "\")) & "\" 
    
    getExcelFolderPath2 = fullPath

End Function

问题原因 #

调试时fullPath有有效值但函数返回空，核心原因是未引用Microsoft Scripting Runtime库，导致FileSystemObject相关操作存在隐性异常，虽然调试时看起来fullPath已赋值成功，但实际向函数返回值传递时出现错误。

另外原代码的路径截取逻辑冗余，VBA本身提供了更可靠的内置属性直接获取工作簿文件夹路径。

修复方案 #

方案1：修复原代码（添加库引用） #

1. 打开VBA编辑器，点击顶部菜单工具→引用
2. 在弹出窗口中勾选Microsoft Scripting Runtime，确认后重新运行函数

方案2：替换为简洁可靠的实现（无需额外引用） #

直接利用VBA内置属性获取路径，代码更简洁且无依赖：

Function getExcelFolderPath2() As String
    ' 若工作簿未保存，ThisWorkbook.Path会返回空字符串，可按需添加判断逻辑
    getExcelFolderPath2 = ThisWorkbook.Path & IIf(Len(ThisWorkbook.Path) > 0, "\", "")
End Function

方案3：改用FSO后期绑定（无需手动添加引用） #

如果必须保留FSO写法，可使用后期绑定避免库引用问题：

Function getExcelFolderPath2() As String
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim fullPath As String
    fullPath = fso.GetAbsolutePathName(ThisWorkbook.FullName) ' 用FullName确保获取完整路径，避免未保存时的异常
    fullPath = fso.GetParentFolderName(fullPath) & "\"
    
    getExcelFolderPath2 = fullPath
End Function

内容的提问来源于stack exchange，提问作者Martin Berg