Копирование макроса VBA UserForm DesignerStorage из шаблона в целевую книгу
Возможные сценарии использования
Aspose.Cells позволяет скопировать проект VBA из одного файла Excel в другой файл Excel. Проект VBA состоит из различных типов модулей, таких как Документ, Процедурный, Дизайнерский и т. д. Все модули могут быть скопированы с помощью простого кода, но для дизайнерского модуля требуется дополнительные данные, называемые хранилищем дизайнера, которые необходимо получить или скопировать. Следующие два метода работают с хранилищем дизайнера.
Копирование макроса VBA UserForm DesignerStorage из шаблона в целевую книгу
Пожалуйста, ознакомьтесь со следующим образцовым кодом. Он копирует проект VBA из шаблонного файла Excel в пустую книгу и сохраняет его как выходной файл Excel. Если вы откроете проект VBA внутри шаблонного файла Excel, вы увидите пользовательскую форму, как показано ниже. Пользовательская форма состоит из хранилища дизайнера, поэтому оно будет скопировано с использованием методов VbaModuleCollection.GetDesignerStorage() и VbaModuleCollection.AddDesignerStorage().
На следующем снимке экрана показан выходной файл Excel и его содержимое, скопированные из шаблонного файла Excel. При нажатии на кнопку 1 открывается пользовательская форма VBA, которая сама содержит кнопку команды, показывающую сообщение при нажатии.
Образец кода
| // For complete examples and data files, please go to https://github.com/aspose-cells/Aspose.Cells-for-.NET | |
| //Create empty target workbook | |
| Workbook target = new Workbook(); | |
| //Load the Excel file containing VBA-Macro Designer User Form | |
| Workbook templateFile = new Workbook(sourceDir + "sampleDesignerForm.xlsm"); | |
| //Copy all template worksheets to target workboook | |
| foreach (Worksheet ws in templateFile.Worksheets) | |
| { | |
| if (ws.Type == SheetType.Worksheet) | |
| { | |
| Worksheet s = target.Worksheets.Add(ws.Name); | |
| s.Copy(ws); | |
| //Put message in cell A2 of the target worksheet | |
| s.Cells["A2"].PutValue("VBA Macro and User Form copied from template to target."); | |
| } | |
| }//foreach | |
| //----------------------------------------------- | |
| //Copy the VBA-Macro Designer UserForm from Template to Target | |
| foreach (VbaModule vbaItem in templateFile.VbaProject.Modules) | |
| { | |
| if (vbaItem.Name == "ThisWorkbook") | |
| { | |
| //Copy ThisWorkbook module code | |
| target.VbaProject.Modules["ThisWorkbook"].Codes = vbaItem.Codes; | |
| } | |
| else | |
| { | |
| //Copy other modules code and data | |
| System.Diagnostics.Debug.Print(vbaItem.Name); | |
| int vbaMod = 0; | |
| Worksheet sheet = target.Worksheets.GetSheetByCodeName(vbaItem.Name); | |
| if (sheet == null) | |
| { | |
| vbaMod = target.VbaProject.Modules.Add(vbaItem.Type, vbaItem.Name); | |
| } | |
| else | |
| { | |
| vbaMod = target.VbaProject.Modules.Add(sheet); | |
| } | |
| target.VbaProject.Modules[vbaMod].Codes = vbaItem.Codes; | |
| if ((vbaItem.Type == VbaModuleType.Designer)) | |
| { | |
| //Get the data of the user form i.e. designer storage | |
| byte[] designerStorage = templateFile.VbaProject.Modules.GetDesignerStorage(vbaItem.Name); | |
| //Add the designer storage to target Vba Project | |
| target.VbaProject.Modules.AddDesignerStorage(vbaItem.Name, designerStorage); | |
| } | |
| } | |
| }//foreach | |
| //Save the target workbook | |
| target.Save(outputDir + "outputDesignerForm.xlsm", SaveFormat.Xlsm); |