CurrentProjectName

以字面 String 形式返回当前项目的名称。

语法：CurrentProjectName [ () ]

该值是拥有调用点的项目（可执行文件或库）的名称。

INFO

CurrentProjectName 是编译时内部函数——字面字符串在调用点从项目的元数据嵌入到编译后的代码中。

示例

Dim ProjectName As String
ProjectName = CurrentProjectName()
Debug.Print "Running in project: " & ProjectName

另请参阅

• CurrentComponentName 函数
• CurrentProcedureName 函数
• CurrentSourceFile 函数