ActiveX Dll

[Haluk]

Hi;

I've prepared a COM AddIn in VB5 to be used in Office2000.

I've managed to add the DLL file to XL2000 and the add-in has a public function which converts a number to string .

Something like;

Public Function yaz(ByRef sayi as double) as string
....
...
End Function

which is placed in a Class Module named "Connect" so that, the COM AddIn installed to XL2000 is "ParaAddIn.Connect"

In VBE, when I give a reference to this DLL (ParaAddIn), I can use the function very well but, when I try to use the same function as standard function in a cell such as

= yaz(A1)

XL2000 does not recognize the function but, the COM AddIn is allready installed.

Can you give me an advice ?

 

[Haluk]

Hi again;

What I've found in an article given below is that, a function in a COM AddIn can not be used as a worksheet cell function in XL2000.

http://www.programmersheaven.com/articles/adrian/excel/article.html

Where, starting from XL2002 you can use the function as a cell function.

Too bad for me ...

 

[zilpher]

I assume you've made it a COM addin because you want it's functionality to be available in all Office applications and any bespoke ones you have made?

Z

 

[Haluk]

Hi zilpher;

That's correct. I want to use the same function in most of the Office App's and that's why I've preferred to use a COM AddIn.

 

[zilpher]

I'm interested in helping you here, can you send me your dll (don't need the source just the dll and the name of the function you'd like to use)

raider.1.zilpher@spamgourmet.com

Regards

Z

 

[Haluk]

Hi zilpher;

As per XL2000, I've found a solution for the time being. (May be not a good one but at least it is usable.)

In XL VBE, I've referenced to the DLL and then I placed the following UDF in a standard module to call the function in the DLL.

With the help of this UDF, I was able to use the function in the DLL as an ordinary worksheet function.

The UDF is :

Function MyYazi(sayi As Double) As String
Dim X As ParaAddIn.Connect
Set X = New ParaAddIn.Connect
MyYazi = X.Yazi(sayi)
End Function

which is to be used as:

=MyYazi(A1)

where the cell A1 houses as value such as 115 and so the UDF named MyYazi returns a string value "Yüz On Bes" which is in Turkish of course.

Thanks for your replies, and I will send you an XL file and the related DLL.

 

[zilpher]

Ok That is exactly what I was going to do, but wanted something to test against

Glad you are up and working

Z