Скопируйте VBA Macro UserForm DesignerStorage из шаблона в целевую книгу
Возможные сценарии использования
Aspose.Cells позволяет копировать проект VBA из одного файла Excel в другой файл Excel. Проект VBA состоит из различных типов модулей, т. е. Document, Procedural, Designer и т. д. Все модули можно скопировать с помощью простого кода, но для модуля Designer есть некоторые дополнительные данные, называемые хранилищем Designer, к которым необходимо получить доступ или скопировать. Следующие два метода относятся к Designer Storage.
Скопируйте VBA Macro UserForm DesignerStorage из шаблона в целевую книгу
См. следующий пример кода. Он копирует проект VBA изшаблон файла Excel в пустую книгу и сохраняет ее каквыходной файл Excel. Если вы откроете проект VBA внутри файла шаблона Excel, вы увидите форму пользователя, как показано ниже. Пользовательская форма состоит из Designer Storage, поэтому она будет скопирована с помощью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); |