Copier le UserForm DesignerStorage du macro VBA du modèle vers le classeur cible

Scénarios d’utilisation possibles

Aspose.Cells vous permet de copier un projet VBA d’un fichier Excel dans un autre fichier Excel. Le projet VBA se compose de différents types de modules, tels que Document, Procédural, Concepteur, etc. Tous ces modules peuvent être copiés avec un code simple, mais pour le module Concepteur, il y a des données supplémentaires appelées Stockage du concepteur qui doivent être accédées ou copiées. Les deux méthodes suivantes traitent du Stockage du concepteur.

Copier le stockage de concepteur de formulaire utilisateur de macro VBA du modèle vers le classeur cible

Veuillez consulter le code d’exemple suivant. Il copie le projet VBA du fichier Excel modèle dans un classeur vide et le sauvegarde en tant que fichier Excel de sortie. Si vous ouvrez le projet VBA à l’intérieur du fichier Excel modèle, vous verrez un formulaire utilisateur comme indiqué ci-dessous. Le formulaire utilisateur se compose de Stockage du concepteur, il sera donc copié en utilisant les méthodes VbaModuleCollection.GetDesignerStorage() et VbaModuleCollection.AddDesignerStorage().

todo:image_alt_text

La capture d’écran suivante montre le fichier Excel de sortie et ses contenus qui ont été copiés du fichier Excel modèle. Lorsque vous cliquez sur le Bouton 1, cela ouvre le formulaire utilisateur VBA qui a lui-même un bouton de commande qui affiche une boîte de dialogue lorsqu’il est cliqué.

todo:image_alt_text

Code d’exemple

// 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);