|
|
以下是引用[I]hiyou[/I]在2006-6-12 14:05:41的发言：[BR]前两天跟版上几位朋友辩论了一番，才发现这里似乎很少有VBE的对象模型编程方面的东西，做一个简单的例子
'————————————————————————————————
'几个模块的类型常量，用于区分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
'———————————————————————————————————————— |
|
楼主: hiyou
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2006-6-13 16:10
