ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Using activex dll from worksheet (https://www.excelbanter.com/excel-programming/298401-using-activex-dll-worksheet.html)

Steve Garman

Using activex dll from worksheet
 
I have an activex dll on my system.

In VB5 (not VBA) I can set a reference to xyFunctions
I can then call the function func1() with two variant arguments and it
returns a variant.

''''''''''''''''''''''''''
Private xy As xyFuncs

Private Sub Command1_Click()
Dim ret As Variant, arg1 As Variant, arg2 As Variant
Set xy = New xyFuncs
arg1 = "ABC"
arg2 = "DEF"
ret = xy.func1(arg1, arg2)
MsgBox ret
End Sub
''''''''''''''''''''''''''''

Is there a way that I can refer to this activex dll in Excel, such that
it can be used as a worksheet function?

If this is possible, could someone please explain how in words of one
syllable, as I'm feeling particularly stupid on this issue.

Please note that, while it would be nice to be able to pass cell
references to it, I would settle for the ability to call it with
literals, such as:
=xyFunctions.func1("ABC","DEF")


Rob van Gelder[_4_]

Using activex dll from worksheet
 
HOWTO: Create a Visual Basic Automation Add-in for Excel Worksheet Functions
http://support.microsoft.com/default.aspx?kbid=285337


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Steve Garman" wrote in message
...
I have an activex dll on my system.

In VB5 (not VBA) I can set a reference to xyFunctions
I can then call the function func1() with two variant arguments and it
returns a variant.

''''''''''''''''''''''''''
Private xy As xyFuncs

Private Sub Command1_Click()
Dim ret As Variant, arg1 As Variant, arg2 As Variant
Set xy = New xyFuncs
arg1 = "ABC"
arg2 = "DEF"
ret = xy.func1(arg1, arg2)
MsgBox ret
End Sub
''''''''''''''''''''''''''''

Is there a way that I can refer to this activex dll in Excel, such that
it can be used as a worksheet function?

If this is possible, could someone please explain how in words of one
syllable, as I'm feeling particularly stupid on this issue.

Please note that, while it would be nice to be able to pass cell
references to it, I would settle for the ability to call it with
literals, such as:
=xyFunctions.func1("ABC","DEF")




Steve Garman

Using activex dll from worksheet
 
Thanks Rob,

I knew I was missing something obvious. I just forgot the "Automation"
button was on the Add-ins dialog

Rob van Gelder wrote:
HOWTO: Create a Visual Basic Automation Add-in for Excel Worksheet Functions
http://support.microsoft.com/default.aspx?kbid=285337





All times are GMT +1. The time now is 11:52 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com