小编Leo*_*Sam的帖子

我有一个 VBA 代码，可以从 MS Access 或 Excel 应用程序运行。
在代码的一部分（如下所示）中，我必须找到默认的应用程序文件目录，以保存 CSV 文件。
该代码在 Excel 中运行没有任何错误，但在 MS Access 中，编译器会抱怨 <Application.ThisWorkbook.Path> 并在那里停止。
代码有什么问题吗？我还有其他方法可以找到适用于 MS Access 和 Excel 的文件路径吗？

If CSVpath = vbNullString Then
    Select Case Application.Name  '' system in which the code is running from
        Case Is = "Microsoft Excel"  '' it raises an error in MS Access
            CSVpath = Application.ThisWorkbook.Path + "\DataSet_" + CStr(Format(Now(), "YYYY-MM-DD.HH.MM.SS")) + ".csv"
        Case Is = "Microsoft Access"
            CSVpath = Application.CurrentProject.Path + "\DataSet_" + CStr(Format(Now(), "YYYY-MM-DD.HH.MM.SS")) + ".csv" …