private void ThisWorkbook_Startup(object sender, System.EventArgs e) { string sCode = "Sub VBAMacro()/r/n" + "MsgBox /"Test/"/r/n" + "End Sub"; VBComponent oModule; oModule = Globals.ThisWorkbook.VBProject.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule); oModule.CodeModule.AddFromString(sCode); } 作者:laoyebin(Paladin.lao) 博客园出处: http://laoyebin.cnblogs.com/ 个人网站英文出处: http://mrvsto.com/ 个人网站中文出处: http://cn.mrvsto.com/