Управление кодами VBA книги Excel с поддержкой макросов.

Добавьте модуль VBA в C#

В следующем примере кода создается новая книга, добавляется новый модуль VBA и код макроса, а выходные данные сохраняются в формате XLSM. Один раз вы откроете выходной файл XLSM в Microsoft Excel и щелкните значокРазработчик > Visual Basic команд меню, вы увидите модуль с именем «TestModule», а внутри него вы увидите следующий код макроса.

 Sub ShowMessage()

    MsgBox "Welcome to Aspose!"

End Sub

Вот пример кода для создания выходного файла XLSM с модулем VBA и кодом макроса.

// For complete examples and data files, please go to https://github.com/aspose-cells/Aspose.Cells-for-.NET
// The path to the documents directory.
string dataDir = RunExamples.GetDataDir(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
// Create new workbook
Workbook workbook = new Workbook();
// Access first worksheet
Worksheet worksheet = workbook.Worksheets[0];
// Add VBA Module
int idx = workbook.VbaProject.Modules.Add(worksheet);
// Access the VBA Module, set its name and codes
Aspose.Cells.Vba.VbaModule module = workbook.VbaProject.Modules[idx];
module.Name = "TestModule";
module.Codes = "Sub ShowMessage()" + "\r\n" +
" MsgBox \"Welcome to Aspose!\"" + "\r\n" +
"End Sub";
// Save the workbook
workbook.Save(dataDir + "output_out.xlsm", SaveFormat.Xlsm);

Изменить VBA или макрос в C#

Следующий пример кода загружает исходный файл Excel, внутри которого находится следующий код VBA или макроса.

 Sub Button1_Click()

    MsgBox "This is test message."

End Sub

После выполнения образца кода Aspose.Cells код VBA или макроса будет изменен следующим образом.

 Sub Button1_Click()

    MsgBox "This is Aspose.Cells message."

End Sub

Вы можете скачатьисходный файл Excel ивыходной файл Excel по указанным ссылкам.

// For complete examples and data files, please go to https://github.com/aspose-cells/Aspose.Cells-for-.NET
// The path to the documents directory.
string dataDir = RunExamples.GetDataDir(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
// Create workbook object from source Excel file
Workbook workbook = new Workbook(dataDir + "sample.xlsm");
// Change the VBA Module Code
foreach (VbaModule module in workbook.VbaProject.Modules)
{
string code = module.Codes;
// Replace the original message with the modified message
if (code.Contains("This is test message."))
{
code = code.Replace("This is test message.", "This is Aspose.Cells message.");
module.Codes = code;
}
}
// Save the output Excel file
workbook.Save(dataDir + "output_out.xlsm");

Предварительные темы