Kopiera VBA makro UserForm DesignerStorage från mallen till mål arbetsboken

Möjliga användningsscenario

Aspose.Cells för Python via .NET tillåter dig att kopiera ett VBA-projekt från en Excel-fil till en annan. VBA-projekt består av olika typer av moduler, t.ex. Dokument, Procedural, Designer, etc. Alla moduler kan kopieras med enkel kod, men för Designer-modulen finns det extra data, kallad Designer Storage, som måste nås eller kopieras. Följande två metoder hanterar Designer Storage.

• VbaModuleCollection.get_designer_storage()
• VbaModuleCollection.add_designer_storage()

Kopiera VBA-makro UserForm DesignerStorage från mallen till mål arbetsboken

Se följande exempelkod. Den kopierar VBA-projektet från mallens Excel-fil till en tom arbetsbok och sparar den som utdata Excel-fil. Om du öppnar VBA-projektet inne i mallens Excel-fil ser du en Användarformulär som visas nedan. Användarformuläret består av Designer Storage, så det kommer att kopieras med användning av VbaModuleCollection.get_designer_storage() och VbaModuleCollection.add_designer_storage() metoder.

Följande skärmbild visar den utdata Excel-filen och dess innehåll som kopierades från mallens Excel-fil. När du klickar på knappen 1, öppnar den VBA Användarformuläret som i sig har en kommandoknapp som visar en meddelanderuta vid klick.

Exempelkod

from aspose.cells import SaveFormat, SheetType, Workbook
from aspose.cells.vba import VbaModuleType

#  For complete examples and data files, please go to https:# github.com/aspose-cells/Aspose.Cells-for-.NET
# Create empty target workbook
target = Workbook()
# Load the Excel file containing VBA-Macro Designer User Form
templateFile = Workbook(sourceDir + "sampleDesignerForm.xlsm")
# Copy all template worksheets to target workboook
for ws in templateFile.worksheets:
    if ws.type == SheetType.WORKSHEET:
        s = target.worksheets.add(ws.name)
        s.copy(ws)
        # Put message in cell A2 of the target worksheet
        s.cells.get("A2").put_value("VBA Macro and User Form copied from template to target.")
# -----------------------------------------------
# Copy the VBA-Macro Designer UserForm from Template to Target
for vbaItem in templateFile.vba_project.modules:
    if vbaItem.name == "ThisWorkbook":
        # Copy ThisWorkbook module code
        target.vba_project.modules.get("ThisWorkbook").codes = vbaItem.codes
    else:
        # Copy other modules code and data
        print(vbaItem.name)
        vbaMod = 0
        sheet = target.worksheets.get_sheet_by_code_name(vbaItem.name)
        if sheet == None:
            vbaMod = target.vba_project.modules.add(vbaItem.type, vbaItem.name)
        else:
            vbaMod = target.vba_project.modules.add(sheet)
        target.vba_project.modules[vbaMod].codes = vbaItem.codes
        if vbaItem.type == VbaModuleType.DESIGNER:
            # Get the data of the user form i.e. designer storage
            designerStorage = templateFile.vba_project.modules.get_designer_storage(vbaItem.name)
            # Add the designer storage to target Vba Project
            target.vba_project.modules.add_designer_storage(vbaItem.name, designerStorage)
# Save the target workbook
target.save(outputDir + "outputDesignerForm.xlsm", SaveFormat.XLSM)