Return Value From Excel Macro to VB.net Application.

Question

0.00/5 (No votes)

See more:

Hello, this is Vikash Gohil.

I have to make an application where by i need to open excel file and run the macros written in the excel file from my VB.net application.

I want to know how can i get the return value of a function written in Macro in to my Application.

I have the code to run macros from excel file.

Can anyone guide me in this, or is it possible to do this.

Thanks in advance.

Awaiting a reply soon.

Posted 28-Aug-10 22:27pm

VikashGohil

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Dwayne J. Baldwin · Answer 1 · 2010-10-23T15:57:00

Open Excel, click Developer|Visual Basic (Alt-F11), Insert|Module then paste this code:

VB

Public Function ExcelHandshake(Parameter As String) As String
    ExcelHandshake = "Hello " & Parameter
End Function

Note that you must save the file as excel Macro-Enabled Workbook (.xlsm). The remaining code will open the file, call the macro with a parameter and return a result:

VB

Imports Microsoft.Office.Interop
Module Module1
    Sub Main()
        Dim xlApp = New Excel.Application
        Dim xlBook = xlApp.Workbooks.Open("c:\projects\book1.xlsm")
        Dim result = xlApp.Run("ExcelHandshake", "My Application")
        Console.Write(result)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
        xlBook = Nothing
        xlApp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp = Nothing
        Console.ReadKey()
    End Sub
End Module

You will find more samples here http://support.microsoft.com/kb/306682[^]

I hope this is of some help to you.