小编Ste*_*fan的帖子

我正在编写一些用于一般用途的宏.我有一个应该在Access和Excel下可执行的宏.我尝试过以下想法.

#If Application.Name = "Microsoft Excel" Then
    sFile = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & "foo"
#ElseIf Application.Name = "Microsoft Access" Then
    sFile = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, ".")) & "foo"
#End If

当然这不起作用.对象Application在编译时不存在.我的问题是是否有一个常量表明宏在Access或Excel下运行？