我可以使用字符串作为条件编译常量

Question

可以在VBA中使用条件编译时使用字符串常量吗？

例如：

#Const This_File_Concept="Chancleta" 
' 
#If This_File_Concept="Chancleta" then 
    ''...Something happens 

#End If 
'  
#If This_File_Concept="Auto" then 
    ''...Something different happens 

#End If 
'  
#If This_File_Concept="Freesbee" then 
    ''...Another thing happens 

#End If 

谢谢！

Answer 1

简短的回答：是的

示范：

#Const This_File_Concept = "Chancleta" 

#If This_File_Concept = "Chancleta" Then 
    Dim zx As Long 
#End If 
' 
#If This_File_Concept = "Auto" Then 
    Dim zx As String 
#End If 
' 

Sub Demo_OK() 
    #If This_File_Concept = "Chancleta" Then 
     zx = 1 
    #End If 
    ' 
    #If This_File_Concept = "Auto" Then 
     zx = "Hello" 
    #End If 
End Sub 

Sub Demo_Error() 
    #If This_File_Concept = "Chancleta" Then 
     zx = "Hello" 
    #End If 
    ' 
    #If This_File_Concept = "Auto" Then 
     zx = 1 
    #End If 
End Sub 

运行Sub Demo_OK与做工精细，没有错误。

运行Sub Demo_Error与不行，返回错误13，type mismatch