从Excel VBA中此文件夹路径中的文件获取文件夹路径

Question

我很惊讶，通过搜索互联网简单的解决方案来找到这个目的并不容易，它可以快速集成到我的代码中。在许多情况下，答案与其他事物相结合。我将提出我的解决方案，并将等待解决此问题的其他答案。

Answer 1

由于这个函数不时出现，我需要在我的项目中，我决定为它创建一个单独的函数。它的代码如下：

Function getFolderPathFromFilePath(filePath As String) As String
Dim lastPathSeparatorPosition As Long
lastPathSeparatorPosition = InStrRev(filePath, Application.PathSeparator)
getFolderPathFromFilePath = Left(filePath, lastPathSeparatorPosition - 1)
End Function

在用于此目的的一些解决方案中，我使用了 FSO，但它需要资源，如果您只需要这个简单的函数，我认为创建 FSO 对象是不值得的。