Coolprop function in Excel Macro (VBA)

[maxime...@institut-ps2e.com]

Dear All, 

I am using Coolprop module for at least one year in Excel spreadsheet as an Excel Function and now I want to use the variety of function that coolprop offer me in a macro using VBA programming language. However at this moment could not succeed to import the Props function within this program. I think that the closest code I reach is following, 

Sub HTC_Calculation()

'

from CoolProp.CoolProp import Props

T = Props('C', 'T', 20 + 273, 'P', E8 * 100, 'air')

End Sub

I created this program from the ExcelTest sheet that is provided in the coolprop package for Microsoft Excel and I believe that I am not so far from the result but I could not find my solution on Coolprop website and on this public help group.

Thank you in advance for your help. 

[Ian Bell]

You don't need the import line, that is for python. If the xlam is installed properly, you should only need to do PropsSI(...)

Also, the Props function is deprecated, you should use the PropsSI function.

--
You received this message because you are subscribed to the Google Groups "coolprop-users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to coolprop-user...@googlegroups.com.
To post to this group, send email to coolpro...@googlegroups.com.
Visit this group at http://groups.google.com/group/coolprop-users.
For more options, visit https://groups.google.com/d/optout.

[maxime...@institut-ps2e.com]

Thank you for your quick reply ! I am trying following code and I am getting following error. It look that Excel do not know this function, do you know why? 

I am also sending you a list of my Excel Add-in including Coolprop.
Kind regards,  

[Ian Bell]

This works just fine for me:

Sub test()

Dim oo As Double

oo = PropsSI("T", "P", 101325, "Q", 0, "Water")

End Sub

Can you do the same call in a cell in your spreadsheet?

BTW, PropsSI uses all base-SI units (Pa, J, etc.)

--

[fabianm...@gmail.com]

Hello Ian,

I have the same problem. If I use your suggestion (PropsSI("T", "P", 101325, "Q", 0, "Water")), than I get the same error as maxime. I installed the newest version of coolprop for excel but i can't use the function in vba.

[Ian Bell]

A) When you put PropsSI("T", "P", 101325, "Q", 0, "Water") into a cell in an Excel spreadsheet, does that work and give you something like 373....?

B) Can you send me a screenshot of your vba window to ian.h...@gmail.com

Visit this group at https://groups.google.com/group/coolprop-users.

[Marco Carrilho Diniz]

Hello Maxime, Fabian and Ian,

I just had the same problem you were discussing about. The function can't be used unless you tell your VBA code where it is defined. The solution is described here:

http://www.fontstuff.com/vba/vbatut08.htm

Kind regards,

Marco.

[Ian Bell]

Interesting.  Can you please modify the VBA we provide with this fix and email it to me at ian.h...@gmail.com?

Thanks,

Ian

[Marco Carrilho Diniz]

Hi Ian,

Actually it was not necessary to modify the VBA you provide. What I did was to rename the VBA (like explained in the tutorial I posted before) and after this I had to set the reference to the add in the specific workbook I was working on. Maybe there is another more versatile solution to the problem, but is this case the problem was fixed by changing only Excel configurations.

Marco. 

[Ian Bell]

Right, can you please mail me the modified spreadsheet with the fix?

[Marco Carrilho Diniz]

Hi Ian, just sent you the modified spreadsheet.

[Ian Bell]

Our provided XLAM now has the appropriate project name: VBAProject --> CoolProp

Ian

To unsubscribe from this group and stop receiving emails from it, send an email to coolprop-users+unsubscribe@googlegroups.com.
To post to this group, send email to coolprop-users@googlegroups.com.