将VBA宏用户表单设计存储器从模板复制到目标工作簿,用JavaScript通过C++
Contents
[
Hide
]
可能的使用场景
Aspose.Cells允许你将VBA项目从一个Excel文件复制到另一个Excel文件。VBA项目由各类模块组成,例如文档、过程、设计器等。所有模块都可以用简单代码复制,但设计器模块还包含额外的数据,称为设计器存储,需要访问或复制。以下两个方法处理设计器存储。
- VbaModuleCollection.designerStorage(string)
- **VbaModuleCollection.addDesignerStorage(string, number[])**
将VBA宏用户表单DesignerStorage从模板复制到目标工作簿
请参阅以下示例代码。它将模板Excel文件中的VBA项目复制到空白工作簿中,并保存为输出Excel文件。打开模板Excel文件内的VBA项目即可看到一个用户表单,其包含Designer Storage,将通过VbaModuleCollection.designerStorage(string)和**VbaModuleCollection.addDesignerStorage(string, number[])**方法复制。

下方截图显示从模板Excel文件复制出来的输出Excel文件及内容,点击按钮1会弹出带有命令按钮的VBA用户表单。

示例代码
<!DOCTYPE html>
<html>
<head>
<title>Aspose.Cells Example</title>
</head>
<body>
<h1>Copy VBA Designer UserForm Example</h1>
<input type="file" id="fileInput" accept=".xls,.xlsx,.xlsm" />
<button id="runExample">Run Example</button>
<a id="downloadLink" style="display: none;">Download Result</a>
<div id="result"></div>
</body>
<script src="aspose.cells.js.min.js"></script>
<script type="text/javascript">
const { Workbook, SaveFormat, Utils, SheetType, VbaModuleType } = AsposeCells;
AsposeCells.onReady({
license: "/lic/aspose.cells.enc",
fontPath: "/fonts/",
fontList: [
"arial.ttf",
"NotoSansSC-Regular.ttf"
]
}).then(() => {
console.log("Aspose.Cells initialized");
});
document.getElementById('runExample').addEventListener('click', async () => {
const fileInput = document.getElementById('fileInput');
const resultDiv = document.getElementById('result');
if (!fileInput.files.length) {
resultDiv.innerHTML = '<p style="color: red;">Please select an Excel macro-enabled (.xlsm) file.</p>';
return;
}
const file = fileInput.files[0];
const arrayBuffer = await file.arrayBuffer();
// Create empty target workbook
const target = new Workbook();
// Load the Excel file containing VBA-Macro Designer User Form
const templateFile = new Workbook(new Uint8Array(arrayBuffer));
// Copy all template worksheets to target workbook
const sheets = templateFile.worksheets;
const sheetCount = sheets.count;
for (let i = 0; i < sheetCount; i++) {
const ws = sheets.get(i);
if (ws.type === SheetType.Worksheet) {
const s = target.worksheets.add(ws.name);
s.copy(ws);
// Put message in cell A2 of the target worksheet
s.cells.get("A2").putValue("VBA Macro and User Form copied from template to target.");
}
}
// Copy the VBA-Macro Designer UserForm from Template to Target
const modules = templateFile.vbaProject.modules;
const moduleCount = modules.count;
for (let i = 0; i < moduleCount; i++) {
const vbaItem = modules.get(i);
if (vbaItem.name === "ThisWorkbook") {
// Copy ThisWorkbook module code
target.vbaProject.modules.get("ThisWorkbook").codes = vbaItem.codes;
} else {
console.log(vbaItem.name);
let vbaMod = 0;
const sheet = target.worksheets.sheetByCodeName(vbaItem.name);
if (sheet.isNull()) {
vbaMod = target.vbaProject.modules.add(vbaItem.type, vbaItem.name);
} else {
vbaMod = target.vbaProject.modules.add(sheet);
}
target.vbaProject.modules.get(vbaMod).codes = vbaItem.codes;
if (vbaItem.type === AsposeCells.VbaModuleType.Designer) {
// Get the data of the user form i.e. designer storage
const designerStorage = modules.getDesignerStorage(vbaItem.name);
// Add the designer storage to target Vba Project
target.vbaProject.modules.addDesignerStorage(vbaItem.name, designerStorage);
}
}
}
// Saving the modified Excel file
const outputData = target.save(SaveFormat.Xlsm);
const blob = new Blob([outputData]);
const downloadLink = document.getElementById('downloadLink');
downloadLink.href = URL.createObjectURL(blob);
downloadLink.download = 'outputDesignerForm.xlsm';
downloadLink.style.display = 'block';
downloadLink.textContent = 'Download Modified Excel File';
resultDiv.innerHTML = '<p style="color: green;">VBA Designer UserForm copied successfully! Click the download link to get the modified file.</p>';
});
</script>
</html>