封装自定义工作表函数为DLL

barrydyl

学写了，谢谢楼主的分享，我也经常这么干

cxtrj

谢谢分享。

yzxfelix

不是不多，是楼主的技术高，一般的看不懂，所有显的少，很希望看到楼主正则表达式。

yzxfelix

楼主写的我看不懂的很多

sunny_8848

多谢楼主的分享

狂妄蛐蛐

谢谢分享。

sunny_8848

请教大家，源码生成的DLL和加载的那个名称不一样，是要求改名过来的吗

hhhhhhhhhhss

太感谢了！！！！！！

jyh1058

学习学习，感谢分享

qsxz

Zamyi 发表于 2010-5-13 09:21
好象每次我发的贴观众都不多，不管怎样，源码还是传上。

请问老师，如果需要把数组写入单元格，封装代码怎么写呢？

VB代码如下：可以取出单元格位置，说明程序DLL是没问题的，但是给单元格赋值就返回错误值

Function Test()
    Dim XLapp As Excel.Application
    Dim Wb As Excel.Workbook, SH As Excel.Worksheet
    Dim Rngstr As String    '当前单元格位置
   
    Set XLapp = GetObject(, "Excel.Application")
    Set Wb = XLapp.ActiveWorkbook
    Set SH = Wb.ActiveSheet
    Rngstr = XLapp.ActiveCell.Address(0, 0)     '取当前单元格位置
    Dim arr()
    arr = Array(1, 2, 3, 4)
    '********以下代码都返回错误值
    'SH.Range("A1").Resize(1, 4) = arr
    'SH.Range(Rngstr).Resize(1, 4) = arr
    'XLapp.Test.Resize(1, 4) = arr
    XLapp.Range(Rngstr).Resize(1, 4) = arr
    '*************以上代码都返回错误值
    Set XLapp = Nothing
    Set Wb = Nothing
    Set SH = Nothing
End Function