一个关于VBPROJECT和代码的操作

hiyou · 发表于 2006-6-12 14:05

前两天跟版上几位朋友辩论了一番，才发现这里似乎很少有VBE的对象模型编程方面的东西，做一个简单的例子

ihXRFu2m.rar (6.22 KB, 下载次数: 191) '———————————————————————————————— '几个模块的类型常量，用于区分VBComponent，可以在VBComponents.ADD时使用 '另外，在VBComponent.Type 的属性可以用来区别模块的类型 Const prjStdModule = 1 Const prjClassModule = 2 Const prjMSForm = 3 Const prjDocument = 100 Sub addMyCode() Dim prjX As Object Dim compsX As Object Dim modX As Object, clsX As Object, frmX As Object Dim strcode As String '这是要生成在标准模块的代码内容 Set prjX = Application.ActiveWorkbook.VBProject '取得工作簿的VBPROJECT对象 Set compsX = prjX.VBComponents 'VBComponenets集合，其下是各个SHEET，THISWORKBOOK，标准模块，窗体，类 Set modX = compsX.Add(prjStdModule) '增加一个标准模块 Set clsX = compsX.Add(prjClassModule) '类模块 Set frmX = compsX.Add(prjMSForm) '窗体 '在新的标准模块中增加一个HELLO子程序 strcode = "Msgbox" & Chr(34) & "hello,ExcelHome" & Chr(34) modX.codemodule.addfromstring "sub HiExcelHome() " & vbCrLf & strcode & vbCrLf & "End Sub" End Sub '————————————————————————————————————————