[分享]DLL文件制作与在VBA调用初级进阶

yl1991

下好用上，研究学习中。。。

w327555162

为什么我用的精简版VB6没有引用Microsoft Excel 9.0 Object Library可引用,只有如图这二个 怎么办,还有我生成的DLL文件在VBE中说不能引用,求解

[ 本帖最后由 w327555162 于 2011-7-11 11:52 编辑 ]

liyunfei099

简单的还好办，稍复杂的就不好办了，哪位老师能下面这个封装成DLL，本人感激不尽！
Sub 自动总分并复制到sheet2表()
Sheets("Sheet1").Select
Cells.Select
Dim ObjTmp As Object
Set ObjTmp = Selection.Find(What:="总分", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False)
If ObjTmp Is Nothing Then
      MsgBox "找不到总分字段!"
Else
        ObjTmp.Activate
        IRow = ActiveCell.Row
        ICol = ActiveCell.Column
End If
x = Range("a1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
Cells(IRow + 1, ICol).FormulaR1C1 = "=SUM(RC3:RC[-1])"
Cells(IRow + 1, ICol).Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & x - 1)
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

susylin

封装问题困扰好久了。

susylin

以前看过另外的帖子，难以明白。

林江斌

为什么用EXCEL2010一打开就出现
"编译错误:
找不到工程或库"
我是在WIN7下运行的；若是因为系统原因，那这个问题如何解决？有劳各位高手了

莫悠悠

DLL封装，谢谢分享