常數，指示訪問或Excel

Question

我寫一般用一些宏。我有一個應該可以在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 

當然這是行不通的。對象應用程序在編譯時不存在。我的問題是，是否有一個常量，表明宏在Access或Excel下運行？

Answer 1

您可以只在編譯病症使用的編譯器常量。這意味着你必須之前部署調整的常數值，就像這樣：

#Const AccessHost = False 
#Const ExcelHost = True 
#If ExcelHost Then 
    sFile = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & "foo" 
#ElseIf AccessHost 
    sFile = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, ".")) & "foo" 
#End If 

如果你想要的東西更有活力，而你沒有這兩個Excel和Access早期綁定引用，然後你不想編譯器指令，但你需要使用後期綁定，使其在兩個主機工作：

Dim app As Object 'Late-binding 
Set app = Application 
If app.Name = "Microsoft Excel" Then 
    sFile = Left(app.ThisWorkbook.FullName, InStrRev(app.ThisWorkbook.FullName, ".")) & "foo" 
ElseIf app.Name = "Microsoft Access" 
    sFile = Left(app.CurrentDb.Name, InStrRev(app.CurrentDb.Name, ".")) & "foo" 
End If