Calling an Excel function from Delphi w/ OLE

[Tom]

Can anyone tell me how I can call an Excel function via OLE automation.

var
xlApp: Variant;

xlApp := CreateOLEObject('Excel.Application');

I know this line will run a macro:

xlApp.Run( 'WorkBookName.xls!Macro1');

Is there a similar line that will call an Excel VBA function, returning the
results?

TIA.

 

[Jialiang Ge [MSFT]]

Hello,

From your post, my understanding on this issue is: you wonder whether it is
possible to run VBA function via OLE automation . If I'm off base, please
feel free to let me know.

The method 'Run' can only accept macro name and arguments as its
parameters. If we call the VBA functions, it will throw an exception: "The
macro '*****' cannot be found."

If your "VBA function" refers to the VBA built-in functions like "MsgBox",
there does not exist a direct method to call them. A possible workaround is
to dynamically create a macro that wrap the VBA function (see:
http://support.microsoft.com/kb/303871/), then call the macro with the Run
method.

If your "VBA function" refers to the Excel object model, we could call the
object model directly on the xlApp object. For example (in VB):
Dim oExcel As Object
'Start Excel and open the workbook.
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oExcel.Workbooks.Add() ' call the excel object model

Please let me know if you have any other concerns, or need anything else.

Sincerely,
Jialiang Ge ([email protected], remove 'online.')
Microsoft Online Community Support

==================================================
For MSDN subscribers whose posts are left unanswered, please check this
document: http://blogs.msdn.com/msdnts/pages/postingAlias.aspx

Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
ications. If you are using Outlook Express/Windows Mail, please make sure
you clear the check box "Tools/Options/Read: Get 300 headers at a time" to
see your reply promptly.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscriptions/support/default.aspx.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

 

[Tom]

Actually, I want to call a function that is not part of the VBA object
model. This is a function that I created in a workbook in VBA.

Is it possible to call that?

Thank you, Jialiang, for your help.

Tom

 

[Jialiang Ge [MSFT]]

Hello,

According to your description, do you mean the user defined function (UDF)?
For instance, a function defined in a module like:

Function Test()
Test = "aaa"
End Function

The method Run is able to call the function in a excel workbook. The return
value of the function will be the return value of Run. For instance:

Dim oExcel As Object
'Start Excel and open the workbook.
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oExcel.Workbooks.Open("d:\book1.xls")
Console.Write(oExcel.Run("Book1.xls!Test"))

The VB.NET code above will call the function Test. Console.Write will
output "aaa" in console.

If you have any other question, or need anything else, please feel free to
let me know.

Sincerely,
Jialiang Ge ([email protected], remove 'online.')
Microsoft Online Community Support

=================================================
When responding to posts, please "Reply to Group" via your newsreader
so that others may learn and benefit from your issue.
=================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

 

[Jialiang Ge [MSFT]]

Hi,

Would you mind letting me know the result of the suggestions? If you need
further assistance, feel free to let me know. I will be more than happy to
be of assistance.

Have a great day!

Sincerely,
Jialiang Ge ([email protected], remove 'online.')
Microsoft Online Community Support

=================================================
When responding to posts, please "Reply to Group" via your newsreader
so that others may learn and benefit from your issue.
=================================================
This posting is provided "AS IS" with no warranties, and confers no rights.