VBA中的#号

sh0whigh

在学习xlwings源码的时候，发现代码中有很多#号。例如：

1. Attribute VB_Name = "Config"
   
2. Option Explicit
   
3. #Const App = "Microsoft Excel" 'Adjust when using outside of Excel
   
4. 
   
5. Function GetDirectoryPath() As String
   
6.     ' Leaving this here for now because we currently don't have #Const App in Utils
   
7.     Dim Path As String
   
8.     #If App = "Microsoft Excel" Then
   
9.         On Error Resume Next 'On Mac, this is called when exiting the Python interpreter
   
10.             Path = ActiveWorkbook.Path
    
11.         On Error GoTo 0
    
12.     #ElseIf App = "Microsoft Word" Then
    
13.         Path = ActiveDocument.Path
    
14.     #ElseIf App = "Microsoft Access" Then
    
15.         Path = CurrentProject.Path ' Won't be transformed for standalone module as ThisProject doesn't exit
    
16.     #ElseIf App = "Microsoft PowerPoint" Then
    
17.         Path = ActivePresentation.Path ' Won't be transformed for standalone module ThisPresentation doesn't exist
    
18.     #Else
    
19.         Exit Function
    
20.     #End If
    
21.     GetDirectoryPath = Path
    
22. End Function

复制代码

又例如：

1. Function GetConfigFilePath() As String
   
2.     #If Mac Then
   
3.         #If MAC_OFFICE_VERSION >= 15 Then
   
4.             ' ~/Library/Containers/com.microsoft.Excel/Data/xlwings.conf
   
5.             GetConfigFilePath = GetMacDir("Home") & "/" & "xlwings.conf"
   
6.         #Else
   
7.             ' True home dir
   
8.             GetConfigFilePath = GetMacDir("Home") & "/" & ".xlwings/xlwings.conf"
   
9.         #End If
   
10.     #Else
    
11.         GetConfigFilePath = Environ("USERPROFILE") & "\.xlwings" & "xlwings.conf"
    
12.     #End If
    
13. End Function

复制代码

我是东拼西凑的拾荒型后辈，没有经过完整系统的学习。求助在座的各位：1、vba中的#号在本例中起到的什么样的作用？
2、在vba中#号都有其他哪些用途功能？

fanyoulin

1、#比较常用的是用于日期，2020/06/18一般写成 #2020/06/18#，尤其是用SQL的时候；
2、正则表达式或许也能用上，这个我不熟，只是猜测；

你上面的代码我没看到#，所以是不是你想问的问题，我也不清楚；

sh0whigh

#If  #Const App  #End If

sh0whigh

fanyoulin 发表于 2020-6-18 08:55
1、#比较常用的是用于日期，2020/06/18一般写成 #2020/06/18#，尤其是用SQL的时候；
2、正则表达式或许也 ...

我猜想过，是不是在解释前预执行，或者宏替换什么的，但只是猜想，我没办法确定什么，所以来求助了。

fanyoulin

sh0whigh 发表于 2020-6-18 08:58
#If  #Const App  #End If

这个不是日期，这是预编译，意思是根据不同的环境设置不同的配置，比如苹果系统和windows系统，或者32位和64微系统的不同配置等等，在help能看到这个解释

sh0whigh

fanyoulin 发表于 2020-6-18 09:04
这个不是日期，这是预编译，意思是根据不同的环境设置不同的配置，比如苹果系统和windows系统，或者32位 ...

预编译不是C里面的吗？解释型的vba也可以预编译？

fanyoulin

sh0whigh 发表于 2020-6-18 09:16
预编译不是C里面的吗？解释型的vba也可以预编译？

只是类似那个意思吧，内部的编译机制肯定与c是不同的，你只能把它看成是系统对环境参数的不同选择；

fanyoulin

sh0whigh 发表于 2020-6-18 09:16
预编译不是C里面的吗？解释型的vba也可以预编译？

你可以看vba参考的说明：https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/ifthenelse-directive

fanyoulin

sh0whigh 发表于 2020-6-18 09:16
预编译不是C里面的吗？解释型的vba也可以预编译？

vba参考有说明，看截图，发链接需要审核

sh0whigh

fanyoulin 发表于 2020-6-18 09:24
vba参考有说明，看截图，发链接需要审核

谢谢你完美的解决了我的问题，是我二了，我搜帮助文档就搜了一个#号，什么都没有搜出来。