求适配MS Access与MS Excel的VBA应用文件目录路径获取方案

你写的分支判断逻辑本身没有问题，报错是VBA的提前编译机制导致的：VBA运行代码前会先整体编译所有代码校验语法和对象成员有效性，Access应用本身没有ThisWorkbook这个内置成员，哪怕Application.Name = "Microsoft Excel"的分支逻辑上不会在Access环境下执行，编译阶段识别到不存在的ThisWorkbook属性就会直接中止，根本不会走到运行时的应用名称判断环节。

下面两种方案都可以同时适配Excel和Access环境：

方案1：动态调用（推荐，无需修改代码即可适配双环境） #

用CallByName函数在运行时动态获取属性，编译阶段不会校验属性是否存在，完美避开编译报错：

If CSVpath = vbNullString Then
    Dim pathPrefix As String
    ' 忽略运行时错误，依次尝试匹配不同环境的路径属性
    On Error Resume Next
    pathPrefix = CallByName(Application, "ThisWorkbook", VbGet).Path
    If Err.Number <> 0 Then
        Err.Clear
        pathPrefix = CallByName(Application, "CurrentProject", VbGet).Path
    End If
    On Error GoTo 0 ' 恢复默认错误处理
    
    If pathPrefix <> "" Then
        ' 注意VBA字符串拼接优先用&，避免+号和数值加法逻辑冲突
        CSVpath = pathPrefix & "\DataSet_" & Format(Now(), "YYYY-MM-DD.HH.MM.SS") & ".csv"
    Else
        CSVpath = ""
    End If
End If

该方案不需要调整任何配置，代码可以直接在两个环境中运行，自动识别当前应用并获取对应路径。

方案2：条件编译（适合固定环境分发场景） #

如果你的代码是分别打包给Excel和Access用户使用，可以用条件编译，运行效率更高：

' 在Excel环境下运行就把常量设为True，Access环境下设为False
#Const RUN_IN_EXCEL = True

If CSVpath = vbNullString Then
    #If RUN_IN_EXCEL Then
        CSVpath = Application.ThisWorkbook.Path & "\DataSet_" & Format(Now(), "YYYY-MM-DD.HH.MM.SS") & ".csv"
    #Else
        CSVpath = Application.CurrentProject.Path & "\DataSet_" & Format(Now(), "YYYY-MM-DD.HH.MM.SS") & ".csv"
    #End If
End If

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