请求协助修正路径提取代码：确保Percf终止于...\03-CALCOLO

看起来你遇到的问题是路径处理时误进入了同级的04-OFFERTE_CONTRATTO文件夹，核心需求是无论当前路径在02-XLS下的哪个子层级，都要确保最终路径停在03-CALCOLO。下面给你几种不同语言的具体实现思路和代码示例：

核心思路 #

不管当前路径有多深，我们可以通过向上遍历父目录的方式，精准定位到名为03-CALCOLO的文件夹，以此截断后续的路径层级，避免误访问同级目录。

示例1：Python 实现（推荐使用pathlib） #

Python的pathlib模块对路径处理非常友好，可以轻松遍历父目录：

from pathlib import Path

# 假设这是你当前的文件/文件夹路径
current_path = Path(r"你的当前路径，比如C:\项目\02-XLS\子文件夹1\子文件夹2\文件.xlsx")

# 向上遍历所有父目录，找到03-CALCOLO
target_folder = None
for parent in current_path.parents:
    if parent.name == "03-CALCOLO":
        target_folder = parent
        break

# 验证结果
if target_folder:
    print(f"成功定位到目标路径：{target_folder.resolve()}")
    # 这里可以把target_folder作为你后续操作的根路径
else:
    print("错误：未找到03-CALCOLO文件夹，请检查目录结构")

示例2：VBA 实现（适用于Excel宏场景） #

如果你是在Excel宏中处理路径，可以用FileSystemObject来遍历父目录：

Sub LocateCalcoloFolder()
    Dim currentFilePath As String
    Dim fso As Object
    Dim currentFolder As Object
    Dim targetFolder As Object
    
    ' 替换成你的当前文件路径
    currentFilePath = "C:\项目\02-XLS\子文件夹\你的文件.xlsx"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set currentFolder = fso.GetFile(currentFilePath).ParentFolder
    
    ' 向上查找父文件夹，直到找到03-CALCOLO
    Do While Not currentFolder Is Nothing
        If currentFolder.Name = "03-CALCOLO" Then
            Set targetFolder = currentFolder
            Exit Do
        End If
        Set currentFolder = currentFolder.ParentFolder
    Loop
    
    ' 输出结果
    If Not targetFolder Is Nothing Then
        MsgBox "目标路径已找到：" & targetFolder.Path
        ' 后续操作可以基于targetFolder.Path来执行
    Else
        MsgBox "未找到03-CALCOLO文件夹，请确认目录结构"
    End If
End Sub

额外建议 #

如果你的代码是在遍历目录时出现问题，记得在进入03-CALCOLO文件夹后停止递归遍历，或者在路径判断时直接过滤掉04-OFFERTE_CONTRATTO这类同级目录，避免误进入。

内容的提问来源于stack exchange，提问作者Dennis Grasso