【发布时间】:2012-08-16 19:38:17
【问题描述】:
下面是创建的 Module1.bas 并在上面存储代码。我想将以下代码添加到 从“Thisworkbook”触发宏。
如何在 Thisworkbook 中添加 Workbook_Open() ?
sCode ="私有子工作簿_Open()\r\n" + "UserForm1.Show\r\n" + “结束子”
using Excel = Microsoft.Office.Interop.Excel;
using VBIDE = Microsoft.Vbe.Interop;
VBIDE.VBComponent oModule;
String sCode;
oModule = wb.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule);
sCode ="Private Sub Workbook_Open()\r\n" +
"UserForm1.Show\r\n" +
"end sub"
oModule.CodeModule.AddFromString(sCode);
【问题讨论】:
标签: excel excel-2007 vba