إضافة وحدة VBA وكود باستخدام Aspose.Cells
Contents
[
Hide
]
تُسمح لك Aspose.Cells بإضافة وحدة VBA جديدة ورمز ماكرو باستخدام Aspose.Cells. يرجى استخدام الطريقة Workbook.getVbaProject().getModules().add() لإضافة وحدة VBA جديدة داخل الدفتر.
إضافة وحدة VBA وكود باستخدام Aspose.Cells
يُنشئ رمز العينة التالي مصنف عمل جديد ويضيف وحدة VBA جديدة وكود الماكرو الجديد ويحفظ الإخراج بتنسيق XLSM. بمجرد فتحك لملف الإكسيل الناتج XLSM والنقر على أوامر تطوير > الأساسيات المرئية، سترى وحدة تسمى “الوحدة الاختبارية” وبداخلها سترى كود الماكرو التالي.
Sub ShowMessage()
MsgBox "Welcome to Aspose!"
End Sub
كود عينة
إليك كود عينة لإنشاء ملف XLSM الناتج بوحدة VBA ورمز ماكرو.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// For complete examples and data files, please go to https://github.com/aspose-cells/Aspose.Cells-for-Java | |
// The path to the documents directory. | |
String dataDir = Utils.getDataDir(AddVBAModuleAndCode.class); | |
// Create new workbook | |
Workbook workbook = new Workbook(); | |
// Access first worksheet | |
Worksheet worksheet = workbook.getWorksheets().get(0); | |
// Add VBA Module | |
int idx = workbook.getVbaProject().getModules().add(worksheet); | |
// Access the VBA Module, set its name and codes | |
VbaModule module = workbook.getVbaProject().getModules().get(idx); | |
module.setName("TestModule"); | |
module.setCodes("Sub ShowMessage()" + "\r\n" + " MsgBox \"Welcome to Aspose!\"" + "\r\n" + "End Sub"); | |
// Save the workbook | |
workbook.save(dataDir + "output.xlsm", SaveFormat.XLSM); | |