请问怎么调用 类模块---类1 里 的程序

qhllqhll

老师您好：vba里的代码 ，放到vb 类里，有具体的格式吗？
例如：在vba里的代码：
Sub qk()
    Range("A5:M10000,A4,D4:E4").Select
    Range("D4").Activate
    Selection.ClearContents
    Range("A4").Select
End Sub
放到 vb  类里 的格式应怎么写啊？（或说是模式语句）
不会是：

Sub qk(wrkX as Excel.workbook)
    dim xlApp as Excel.Application   
set xlApp=wrkX.parent

     wrkX.activesheet.Range("A5:M10000,A4,D4:E4").Select
     wrkX.activesheet.Range("D4").Activate
    wrkX.Selection.ClearContents
     wrkX.activesheet.Range("A4").Select
End Sub

hiyou

差不多，前面已经解释过标出的部分。
如果是一个简单的“不涉及VBA宿主对象”的代码，VB和VBA里的用法基本不变：
SUB QA()
MSGBOX "HELLO"
END SUB

FUNCTION QB(A,B)
QB=A+B
END FUNCTION

上面的这种，VB里写代码，在VBA里没有大的架构变化。
VB和VBA的区别，在于它们“天然默认”的对象不同，我前面说过。除了STDOLE之外，VBA的另外几套类库都和VB对不上号，因为对象变量在使用前，它必须有一个“类的原型”（所以你在VB里写VBA的代码，要有引用，把OFFICE的库引过来，要么就是后期引用），这个我打个比方
在某国家A，所有人都知道“城市”是什么（某种人类社会组和建筑群的集合，或其它），“首都”是什么（代表政治中心的城市），“总统”是什么（某个层次的政治执行者），所以他们之间的对话和交流，“引用”这些词是很容易的，比如“B国的首都是JJJ”
但在国家B，他们的定义可能不同，对同样的事物不一定有同样的定义，或者没有同样的类别，例如这个国家的政治中心是由几个地点组成的，最高执行者是一群人，只有一个象征性的领导，国家A的定义就和国家B不同，双方交流之前，必须有一个“对方类别的说明”（也就是引用）

在引用之后，根据这种“类别说明”创造出对象实体（比如建造一座相当于A国的城市）、指向对象实体（B国占领了A国城市c或打算描述这座城市c，按A国的习惯和行政方式划分这个区域，只是改了名字，说这是d城市），都是之后的工作，但是，它们应该有一个对象实体，要么创造新的对象，要么指向已有的对象
在VB里，就算你想写“给VBA使用的代码”，它们操作EXCEL对象时，一定要设定找到“新的EXCEL对象，或指向已有的EXCEL对象”
前面那类SUB的改动，就是“把已有的一个WORKBOOK对象实例传过来（以便用SET指向它”

qhllqhll

老师您好：您讲的很详细，因为我的知识点太低，不好意思的说我有点不明白，能否以一个实例或教我一个简单的套用格式啊？
例如在vba里的代码：
一、在加载时事件中：Private Sub Workbook_Open()
                                                   -------要执行的代码
                                              End Sub
二、在卸载时事件中：Private Sub Workbook_BeforeClose(Cancel As Boolean)
                                             -------要执行的代码
                   End Sub
三、模块中：Sub 在a1里填写123()
                             ActiveCell.FormulaR1C1 = "123"
                        End Sub

下面是请老师帮忙解决的问题，请老师以一个实例来说明它们的调用关系：
一、上面的这三种情况 在vb里的代码应该怎么加写啊？应加什么声明一类的格式语句 （最好是以用套路格式）。
二、封装完成后的调用问题，如加载或卸载事件里、模块里、以及vba中的类模块和 vb中的类模块，均应以什么格式写啊？
期待老师的指点，在您不忙的时候帮我们不太明白的新手们写一下（不急），表示万分感谢（请把制作前 后的excel 表，以及vb制作过程中的所有：工程、类、及其它的文件，一起打包发到本站上来共享。）
我搜集过很多关于封装dll 文件的资料，也按照其作过，真正能作成功的几乎没有，也不太全。

[ 本帖最后由 qhllqhll 于 2010-12-2 16:30 编辑 ]

hiyou

这个，我最近都不怎么写完整代码了，你BS我吧...
1.我的机上没有VB6
2.暂时没有足够的时间和精力去做，每次都是跑到EXCELHOME看了就回

WORKBOOK OPEN是事件（EVEN），你要在某个类里面显式声明一个WORKBOOK对象，套用WORKBOOK对象的事件
例如在VB/VBA常见的FORM1（它是个FORM1类，同时又是个实体对象），先做一个声明
Private WithEvents wrkX As workbook

某个初始化模块里做一个取得WORKBOOK对象的动作
set wrkX=XXXXX   
这个XXXX可以是程序传过来的WORKBOOK，或已存在的EXCEL.APPLICATION(也要设法得到）－WORKBOOKS通过ADD方法生成的一个新WORKBOOK、通过OPEN方法打开的WORKBOOK等等，前面说过了...

后面可以做这个对象变量的事件
Private Sub wrkX_Open()
.......
END SUB

通过WITHEVENTS对这个变量预先声明了它是WORKBOOK类型，因此上面的wrkX_OPen都绑定到WORKBOOK这个“类”的事件上，但记住要先做SET的动作

qhllqhll

老师您好：我没他意，只是自己学不了而着急，我认为用一些实例我还能看懂，或收集起来借用。
谢谢老师这样我就感谢您了

hiyou

没有VB做DLL，用VBS做了一个原理展示，一样可以运行，你看一下
http://club.excelhome.net/viewth ... e%3D1&frombbs=1

camle

感觉Hiyou老师是从事教学工作的.....,回帖内容丰富详尽,受教良多,多谢多谢!

fanyumin1314

知识控，又学习了。。。

lovelyg

学习学习学习

lovelyg

在来学习学习