Solved

Exposing .Net Methods To VBA (COM)

Posted on 2013-06-29
7
362 Views
Last Modified: 2013-09-10
I am currently in the process of extending my Excel VBA project using VB.Net and Visual Studio. I’ve created a working DLL, made it COM visible and registered, and referenced it from my Excel file.
      In my DLL, I have created a few classes (each with its own interface and explicit GUID to prevent errors caused by adding/removing methods/properties). I have successfully used these classes in VBA in this way:

Dim abc As New MyClass
abc.MyMethod

Open in new window


      The problem is that I have a few subs that I am trying to use that aren’t part of any class. These are in a module call “Misc”, as shown below:

Public Module Misc
	Public Sub MySub()

	End Sub
End Module

Open in new window


      I want to be able to call these from VBA, either by just saying:
Call MySub

Open in new window

Or
Call MyNamespace.MySub

Open in new window

     But when I try to call the sub, it can’t find it and I get “sub or function not defined”.
The only way I’ve been able to access the sub is to write a class and interface that simply calls that sub, but that seems like a lot of work just to call one sub, plus I also have to create a new instance of the class in VBA before I can call the sub, adding an extra line of code.
      Is there any way around this?
0
Comment
Question by:BROOKLYN1950
  • 4
  • 2
7 Comments
 
LVL 83

Expert Comment

by:CodeCruiser
ID: 39287280
Does following work?

Call Misc.MySub
0
 
LVL 16

Expert Comment

by:Easwaran Paramasivam
ID: 39287853
There is an option. Change the module to NonInheritable (static) class and method as Shared (static) method. So that it could be called as Module.Method without more code changes.

http://stackoverflow.com/questions/436605/vb-net-how-to-reference-vb-net-module


HTH.
0
 

Author Comment

by:BROOKLYN1950
ID: 39288943
I tried both your suggestions. I can't believe I didn't think of CodeCruiser's suggestion, but just as well I guess, 'cause unfortunately it doesn't work. As for EaswaranP's suggestion, I changed:

Public Module Misc

      Public Sub MySub

      ...

Open in new window

to

Public NotInheritable Class Misc

      Public Shared Sub MySub

      ...

Open in new window


      Unfortunately this didn't work either. I could not call the sub directly, no mater how explicitly I wrote it or how I used the "Call" statement. I could get the module (or class as it now is) to show up by saying:
Dim abc as MyNamespace.Misc

Open in new window

But when I tried:
Dim abc as MyNamespace.Misc
abc.MySub

Open in new window

I got an "object reference not set to instance of an object" error.

So no solution yet, but hopefully we're getting close.
0
3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

 
LVL 16

Expert Comment

by:Easwaran Paramasivam
ID: 39289127
You no need to declare using Dim. Just call the method as MyNamespace.Misc whenever you required. Thats it.
0
 

Author Comment

by:BROOKLYN1950
ID: 39290704
I tried that, as I said in my last reply,
I could not call the sub directly, no mater how explicitly I wrote it or how I used the "Call" statement.

I tried all of the below:
MySub
Misc.MySub
MyNamespace.Misc.MySub

Open in new window

And I also tried each of those prefixed with the "Call" statement (though I don't  think that would make a difference).
0
 

Accepted Solution

by:
BROOKLYN1950 earned 0 total points
ID: 39467540
I pretty much forgot about this question until I stumbled on it today. I have figured out my own solution and though its far from optimal it was the only thing I found that worked the way I needed it to.

I created a standard class with an explicit GUID and an explicit interface with en explicit GUID. This class has members named after the the ones in my module (static class). The members in the normal class call the members in the module.

The non-static class is exposed to COM the same was as my other non-static classes and I can call the members of my module through this class. At the same time, my VB.Net code can call the members straight from the module without need to create an instance of a class to use.

So in short, COM sees a non-static class, and .Net sees both a static call and a non-static class which has calls to the static class.

The downside to this is that I have to declare each of my members three times, which can get annoying, but at least it works!
0
 

Author Closing Comment

by:BROOKLYN1950
ID: 39479072
I figured out my own solution as explained in the answer
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Improved? Move/Copy Add-in Replacement - How to avoid the annoying, “A formula or sheet you want to move or copy contains the name XXX, which already exists on the destination worksheet.” David Miller (dlmille)  It was one of those days… I wa…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now