学步园

private void ThisWorkbook_Startup(object sender, System.EventArgs e)<br /> {<br /> string sCode = "Sub VBAMacro()/r/n" + "MsgBox /"Test/"/r/n" + "End Sub";<br /> VBComponent oModule;<br /> oModule = Globals.ThisWorkbook.VBProject.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule);<br /> oModule.CodeModule.AddFromString(sCode);<br /> }