VBA遍历OneDrive/SharePoint子文件夹CSV文件报错求助

问题根源 #

你的代码报错核心原因是：当文件在SharePoint/OneDrive在线打开时，ActiveWorkbook.Path返回的是HTTPS格式的在线路径，而VBA原生的Dir函数、FileSystemObject（FSO）只支持本地文件系统路径或映射网络驱动器路径，完全无法识别HTTP/HTTPS URL，这才导致了「文件名或编号错误」「路径未找到」这类提示。

解决方案 #

方案1：用本地同步路径（最直接） #

如果你的SharePoint/OneDrive文件夹已经同步到本地，VBA就能正常访问本地路径：

• 先手动确认同步路径：打开同步后的文件夹，右键点Raw Reports选「属性」，复制本地路径（一般是C:\Users\<你的用户名>\OneDrive - <公司名>\...）
• 用下面的代码自动适配同步路径（需替换成你的实际域名和同步前缀）：

Sub GetRawReportsFiles_LocalSync()
    Dim localPath As String
    Dim fileName As String
    
    ' 替换成你的SharePoint域名和本地同步前缀
    localPath = Replace(ThisWorkbook.Path, "https://your-sharepoint-domain/", "C:\Users\YourName\OneDrive - YourCompany\")
    localPath = localPath & "\Raw Reports\"
    
    ' 先检查路径是否存在
    If Dir(localPath, vbDirectory) = "" Then
        MsgBox "本地同步路径不存在，请确认文件夹已同步", vbExclamation
        Exit Sub
    End If
    
    ' 遍历Raw Reports下的CSV文件（可修改通配符）
    fileName = Dir(localPath & "*.csv")
    Do While fileName <> ""
        MsgBox fileName
        fileName = Dir()
    Loop
End Sub

方案2：用Power Query（无需复杂VBA） #

Power Query原生支持SharePoint/OneDrive在线路径，操作更简单：

1. 打开你的电子表格，点「数据」→「获取数据」→「从文件」→「从文件夹」
2. 粘贴Raw Reports文件夹的在线URL（从浏览器地址栏复制）
3. 确认后Power Query会自动加载所有文件列表，你可以把列表导入工作表，后续VBA直接读这个表就行

方案3：用文件选择对话框（动态适配任何位置） #

如果不想依赖同步，让用户手动选Raw Reports文件夹，完全适配任何存储位置：

Sub GetRawReportsFiles_FileDialog()
    Dim fd As FileDialog
    Dim selectedFolder As String
    Dim fileName As String
    
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .Title = "请选择Raw Reports文件夹"
        .InitialFileName = ThisWorkbook.Path ' 默认打开当前工作簿所在路径
        If .Show = -1 Then
            selectedFolder = .SelectedItems(1) & "\"
        Else
            MsgBox "未选择文件夹，操作取消", vbInformation
            Exit Sub
        End If
    End With
    
    ' 遍历选中文件夹下的CSV文件
    fileName = Dir(selectedFolder & "*.csv")
    Do While fileName <> ""
        MsgBox fileName
        fileName = Dir()
    Loop
End Sub

方案4：修复本地路径下的代码（仅适用于非在线场景） #

如果你的文件是在本地打开（不是在线链接），原代码只是路径拼接用了Windows不识别的正斜杠，改成反斜杠就能用：

Sub FileNames_Fixed()
    Dim FolderName As String
    Dim fileName As String

    FolderName = ActiveWorkbook.Path & "\Raw Reports\"

    If Dir(FolderName, vbDirectory) = "" Then
        MsgBox "Raw Reports文件夹不存在", vbExclamation
        Exit Sub
    End If

    fileName = Dir(FolderName & "*.csv")
    Do While fileName <> ""
        MsgBox fileName
        fileName = Dir()
    Loop
End Sub

关键提醒 #

• 在线路径场景下，VBA原生文件工具不支持HTTPS，必须依赖本地同步或Power Query/专用API
• Windows路径统一用反斜杠\，别混合正斜杠/，否则容易触发路径识别错误

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