3 replies to this topic

[MPasha]

I am using following code to import LHV Mass Basis (Std) from Hysys to MS Excel interface.

 

Worksheets("Sheet1").Range("D9").Value = FEED1.LHVMassBasis("Std").GetValue("kJ/kg")   ' import data  LHV MASS BASIS (STD) from hysys streams

But i could not able to get the result. Can any body guide me what is the error in this code.

[serra]

make sure the names of methods (vba names) are correct, meaning the methods are exposed by your simulator to Excel interface,

easy to verify that debugging VBA in Excel,

with Excel one can simply calculate net calorific value  for mixtures from composition (which you should know) and a table of values for the different components, if you need to convert or estimate accuracy see std. as ISO 6976,

there are examples at cheresources...

As alternative, with Excel, you may adopt a process library (I have Prode Properties but there are several available) ,

a process library allows different ways to exchange data,

for example wiith Prode you can use the macro  = StrHC(stream) to calculate calorific value.

[Lucian Gomoescu]

Hello,

Try this as in the xlsm file attached.

 

 

Option Explicit
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Sub IMPORT_FROM_HYSYS()

Dim sPATH As String
Dim sSTREAM_NAME As String

Dim hyCASE As SimulationCase
Dim hyFLOWSHEET As Object
Dim hySTREAM As Object

Dim sgLHV As Single

Worksheets("Sheet1").Activate

sPATH = Range("D2").Value
sSTREAM_NAME = Range("B10").Value

Set hyCASE = GetObject(sPATH)
Set hyFLOWSHEET = hyCASE.Flowsheet
Set hySTREAM = hyFLOWSHEET.MaterialStreams.Item(sSTREAM_NAME)

sgLHV = hySTREAM.MassLowerHeatValue.GetValue("kJ/kg")

Range("C10").Value = sgLHV

End Sub

Attached Files

•  ImportHYSYSExcel.xlsm   17.67KB   15 downloads

[Bobby Strain]

And if you want to continue with Excel-HYSYS interaction, download the Stream Reporter from the AspenTech support site. You can then find the variable names and units for whatever properties you need. You will find other Automation applications, too.

 

Bobby