用VF编写EXCEL自定义函数

tenny67

第1步：在VF将下列代码存为PRG编译成DLL

DEFINE CLASS rscom AS SESSION OLEPUBLIC

        FUNCTION functest(rr AS Variant ) AS string
        LOCAL ss as string,i as Integer,o AS object
        ss = [EXCEL对象值传入结果：]
        IF VARTYPE(rr) = [O]
                FOR EACH o IN rr
                        ss = ss + [ ] + o.Value
                NEXT
        ELSE
                ss = ss + [ ] + rr
        ENDIF
        RETURN ss
        ENDFUNC

ENDDEFINE

第2步：在EXCEL中加载宏中加载自动化...

第3步：在SHEET中使用函数：functest   完全和EXCEL内部函数一样，而且内外函数可以组成复合函数在EXCEL中使用

这只是一个简单的例子，如要做比较复杂的运算也不是不可能的，尤其是编制一些复杂的报表，其运算可由VF编写的自定义的函数去做，效率肯定比EXCEL运算要快

很有意思，EXCEL中的对象居然可以直接在VF中访问

laoyebin

VF是什么啊？VFP？