[已解决]怎么vba调用工作表函数出错？

hktkzyz

如题，如图，工作表里，有这个工程函数呀。为什么在vba里调用不了呢？
是不是方法不对，或者还需要其他的东西。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-10-28 09:43

参考：http://www.excelpx.com/thread-371957-1-1.html


Sub test()
    Dim ID, x

    '例1：调用lcm()，最小公倍数
    ID = ExecuteExcel4Macro("REGISTER.ID(""" & Application.LibraryPath & "\Analysis\ANALYS32.XLL"",""lcm"")")
    x = Run(ID, 36, 90, 72)    'x= 360
    Debug.Print x

    '例2：调用hex2bin()，十六进制转二进制
    ID = ExecuteExcel4Macro("REGISTER.ID(""" & Application.LibraryPath & "\Analysis\ANALYS32.XLL"",""hex2bin"")")
    x = Run(ID, 12)    '十六进制12表示十进制的18，也就是二进制的10010
    Debug.Print x

End Sub

跳转到最佳答案楼层

ghostjiao

1. Application.WorksheetFunction.Hex2Bin(Range("a4").Value)

复制代码

hktkzyz

一样呀，excel2003，会不会是版本问题，还是其他问题。

爱疯

参考：http://www.excelpx.com/thread-371957-1-1.html


Sub test()
    Dim ID, x

    '例1：调用lcm()，最小公倍数
    ID = ExecuteExcel4Macro("REGISTER.ID(""" & Application.LibraryPath & "\Analysis\ANALYS32.XLL"",""lcm"")")
    x = Run(ID, 36, 90, 72)    'x= 360
    Debug.Print x

    '例2：调用hex2bin()，十六进制转二进制
    ID = ExecuteExcel4Macro("REGISTER.ID(""" & Application.LibraryPath & "\Analysis\ANALYS32.XLL"",""hex2bin"")")
    x = Run(ID, 12)    '十六进制12表示十进制的18，也就是二进制的10010
    Debug.Print x

End Sub

hktkzyz

嗯，就是这个意思了，感谢 爱疯。
原来还有这么一说，，好像在2010中，可以直接当工作表函数使用，在2003中，原来要这样调用。。

感谢。