إضافة وحدة VBA وكود باستخدام Aspose.Cells

إضافة وحدة VBA وكود باستخدام Aspose.Cells

يُنشئ رمز العينة التالي مصنف عمل جديد ويضيف وحدة VBA جديدة وكود الماكرو الجديد ويحفظ الإخراج بتنسيق XLSM. بمجرد فتحك لملف الإكسيل الناتج XLSM والنقر على أوامر تطوير > الأساسيات المرئية، سترى وحدة تسمى “الوحدة الاختبارية” وبداخلها سترى كود الماكرو التالي.

 Sub ShowMessage()

    MsgBox "Welcome to Aspose!"

End Sub

كود عينة

إليك كود عينة لإنشاء ملف XLSM الناتج بوحدة VBA ورمز ماكرو.

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