Копирование макроса VBA UserForm DesignerStorage из шаблона в целевую книгу

Возможные сценарии использования

Aspose.Cells позволяет скопировать проект VBA из одного файла Excel в другой файл Excel. Проект VBA состоит из различных типов модулей, таких как Документ, Процедурный, Дизайнер и т.д. Все модули могут быть скопированы с помощью простого кода, но для модуля Дизайнера есть дополнительные данные, называемые Хранилищем дизайнера. Следующие два метода работают с Хранилищем дизайнера.

• VbaModuleCollection.GetDesignerStorage()
• VbaModuleCollection.AddDesignerStorage()

Копирование макроса VBA UserForm DesignerStorage из шаблона в целевую книгу

Пожалуйста, ознакомьтесь с приведенным ниже образцом кода. Он копирует проект VBA из шаблонного файла Excel в пустую книгу и сохраняет его как выходной файл Excel. Если вы откроете проект VBA внутри шаблонного файла Excel, вы увидите пользовательскую форму, как показано ниже. Пользовательская форма состоит из дизайнерского хранилища, поэтому она будет скопирована с использованием методов VbaModuleCollection.GetDesignerStorage() и VbaModuleCollection.AddDesignerStorage().

На следующем скриншоте показан файл Excel вывода и его содержимое, которое было скопировано из файла Excel-шаблона. При нажатии на Кнопку 1, открывается VBA User Form, который сам имеет кнопку команды, открывающую диалоговое окно при нажатии.

Образец кода

// For complete examples and data files, please go to https://github.com/aspose-cells/Aspose.Cells-for-Java

//Create empty target workbook
Workbook target = new Workbook();
 
//Load the Excel file containing VBA-Macro Designer User Form
Workbook templateFile = new Workbook(srcDir + "sampleDesignerForm.xlsm");
 
//Copy all template worksheets to target workboook
int sheetCount = templateFile.getWorksheets().getCount();

for(int idx=0; idx<sheetCount; idx++)
{
	Worksheet ws = templateFile.getWorksheets().get(idx);
	
	if (ws.getType() == SheetType.WORKSHEET)
	{
		Worksheet s = target.getWorksheets().add(ws.getName());
		s.copy(ws);
 
		//Put message in cell A2 of the target worksheet
		s.getCells().get("A2").putValue("VBA Macro and User Form copied from template to target.");
	}
}//for
	 
//-----------------------------------------------
 
//Copy the VBA-Macro Designer UserForm from Template to Target
int modCount = templateFile.getWorksheets().getCount();

for(int idx=0; idx<modCount; idx++)
{
	VbaModule vbaItem = templateFile.getVbaProject().getModules().get(idx);
	
	if (vbaItem.getName().equals("ThisWorkbook"))
	{
		//Copy ThisWorkbook module code
		target.getVbaProject().getModules().get("ThisWorkbook").setCodes(vbaItem.getCodes());
	}
	else
	{
		//Copy other modules code and data
		System.out.println(vbaItem.getName());
 
		int vbaMod = 0;
		Worksheet sheet = target.getWorksheets().getSheetByCodeName(vbaItem.getName());
		if (sheet == null)
		{
			vbaMod = target.getVbaProject().getModules().add(vbaItem.getType(), vbaItem.getName());
		}
		else
		{
			vbaMod = target.getVbaProject().getModules().add(sheet);
		}
 
		target.getVbaProject().getModules().get(vbaMod).setCodes(vbaItem.getCodes());
 
		if ((vbaItem.getType() == VbaModuleType.DESIGNER))
		{
			//Get the data of the user form i.e. designer storage
			byte[] designerStorage = templateFile.getVbaProject().getModules().getDesignerStorage(vbaItem.getName());
 
			//Add the designer storage to target Vba Project
			target.getVbaProject().getModules().addDesignerStorage(vbaItem.getName(), designerStorage);
		}
	}//else
}//for
 
//Save the target workbook
target.save(outDir + "outputDesignerForm.xlsm", SaveFormat.XLSM);