Reading VBA Information from MPP file

Aspose.Tasks for C++ API provides support for reading VBA information from MPP file. This includes working with:

• VBA Information.
• Modules information contained in the project.
• References Information stored in the project.

The VbaProject class is the main class for reading the VBA information from the project file. This further has Modules and References collection for reading further details of the VBA project file. This article demonstrates the usage of all these with the help of code samples.

Reading VBA Project Information

The following code example demonstrates how to read VBA Project Information with the help of VbaProject and Project class.

// Loading project file
System::SharedPtr<Project> project = System::MakeObject<Project>(dataDir + u"VbaProject1.mpp");
    
System::SharedPtr<VbaProject> vbaProject = project->get_VbaProject();
    
System::Console::WriteLine(System::String(u"VbaProject.Name ") + vbaProject->get_Name());
System::Console::WriteLine(System::String(u"VbaProject.Description ") + vbaProject->get_Description());
System::Console::WriteLine(System::String(u"VbaProject.CompilationArguments") + vbaProject->get_CompilationArguments());
System::Console::WriteLine(System::String(u"VbaProject.HelpContextId") + vbaProject->get_HelpContextId());

Reading References Information from VBA

The following code example demonstrates how to read VBA References Information from VBA with the help of VbaProject, Project and VbaReference class

System::SharedPtr<Project> project = System::MakeObject<Project>(dataDir + u"VbaProject1.mpp");
    
System::SharedPtr<VbaProject> vbaProject = project->get_VbaProject();
System::SharedPtr<VbaReferenceCollection> references = vbaProject->get_References();
System::Console::WriteLine(u"Reference count ", System::ObjectExt::Box<int32_t>(references->get_Count()));
    
System::SharedPtr<VbaReference> reference = vbaProject->get_References()->ToList()->idx_get(0);
System::Console::WriteLine(System::String(u"Identifier: ") + reference->get_LibIdentifier());
System::Console::WriteLine(System::String(u"Name: ") + reference->get_Name());
    
reference = vbaProject->get_References()->ToList()->idx_get(1);
System::Console::WriteLine(System::String(u"Identifier: ") + reference->get_LibIdentifier());
System::Console::WriteLine(System::String(u"Name: ") + reference->get_Name());
    
reference = vbaProject->get_References()->ToList()->idx_get(2);
System::Console::WriteLine(System::String(u"Identifier: ") + reference->get_LibIdentifier());
System::Console::WriteLine(System::String(u"Name: ") + reference->get_Name());

Reading Modules Information from VBA

The following code example demonstrates how to read modules information from VBA with the help of VbaProject, Project and IVbaModule class

System::SharedPtr<Project> project = System::MakeObject<Project>(dataDir + u"VbaProject1.mpp");
    
System::SharedPtr<VbaProject> vbaProject = project->get_VbaProject();
System::Console::WriteLine(System::String(u"Total Modules Count: ") + vbaProject->get_Modules()->get_Count());
    
System::SharedPtr<IVbaModule> vbaModule = vbaProject->get_Modules()->ToList()->idx_get(0);
System::Console::WriteLine(System::String(u"Module Name: ") + vbaModule->get_Name());
System::Console::WriteLine(System::String(u"Source Code: ") + vbaModule->get_SourceCode());

Reading Module Attributes Information from VBA

The following code example demonstrates how to read modules attributes from VBA with the help of VbaProject, Project and IVbaModule class

System::SharedPtr<Project> project = System::MakeObject<Project>(dataDir + u"VbaProject1.mpp");
System::SharedPtr<VbaProject> vbaProject = project->get_VbaProject();
System::SharedPtr<IVbaModule> vbaModule = vbaProject->get_Modules()->ToList()->idx_get(0);
    
System::Console::WriteLine(System::String(u"Attributes Count: ") + vbaModule->get_Attributes()->get_Count());
System::Console::WriteLine(System::String(u"VB_Name: ") + vbaModule->get_Attributes()->ToList()->idx_get(0)->get_Key());
System::Console::WriteLine(System::String(u"Module1: ") + vbaModule->get_Attributes()->ToList()->idx_get(0)->get_Value());