Worksheets("Sheet1").Range("D12").Value = ("psia") ' get data from hysys simulation PRESSDROP1, "inHg(60F)" ' send data pressure drop to hysys PRESSDROP1 = Worksheets("Sheet1").Range("D16").Value TEMPFEED2 = Worksheets("Sheet1").Range("H8").Valueį TEMPFEED2, "F" ' export temperature PRESSFEED2 = Worksheets("Sheet1").Range("H7").Valueį PRESSFEED2, "PSIA" ' export pressureįLOWFEED2 = Worksheets ("Sheet1").Range("H6").Valueį FLOWFEED2, "MMSCFD" ' export molar flowrate Worksheets("Sheet1").Range("D8").Value = ("C") ' import data TEMPERATURE from hysys tutorial streams Worksheets("Sheet1").Range("D7").Value = ("PSIG") ' import data PRESSURE from hysys tutorial streams Worksheets("Sheet1").Range("D6").Value = ("LB/HR") ' import data MASS FLOWRATE from hysys simulation streams Set simCase = GetObject(fileName, "HYSYS.SimulationCase") If fileName "False" And simCase Is Nothing Then Public FEED1 As ProcessStream, FEED2 As ProcessStreamĭim PRESSFEED2 As Double, FLOWFEED2 As Double, TEMPFEED2 As DoubleįileName = Worksheets("Sheet1").Range("c2") Linking Hysys Simulation to access HYSYS UNIT OPERATION VALVE using VBA macro. Worksheets("HYSYS").Range("G" & ITEM + 7).Value = pStream.ComponentMolarFlow(ITEM) Worksheets("HYSYS").Range("F" & ITEM + 7).Value = pStream.ComponentMassFlow(ITEM) Worksheets("HYSYS").Range("E" & ITEM + 7).Value = pStream.ComponentMolarFraction(ITEM) Set pStream = ("STREAM 3")įor ITEM = 0 To 11 ' number of components are 12
' WRITE COMPOSITION DATA FROM HYSYS TO EXCEL FROM "STREAM 3" Set pStream = ("STREAM 1")Ĭompositions = pStream.ComponentMolarFractionValueįor ITEM = 0 To 11 'collect composition data as variantĬompositions(ITEM) = Worksheets("HYSYS").Range("D" & ITEM + 7).Value ' HYSYS CUSTOMATION THROUGH EXCEL TO ACCESS STREAM COMPONENTS
ASPEN HYSYS DYNAMIC SIMULATION TUTORIAL HOW TO
And now I'm posting how to access stream component fraction, component molar flowrate and mass flowrate.
ASPEN HYSYS DYNAMIC SIMULATION TUTORIAL UPDATE
It has been so long time not to update this blog. = p_odiamĪs you can see, Hysys model is just as simple as following figure. P_elev = psegment.SegmentElevationChangeValue Set simCase = GetObject(filename, "HYSYS.SimulationCase") If filename "False" And simCase Is Nothing Then Set hyApp = CreateObject("HYSYS.Application")įilename = Worksheets("HYSYS").Range("C4").Text ' HYSYS CUSTOMATION THROUGH EXCEL TO ACCESS PIPE SEGMENT
Dim p_length, p_elev, p_rough, p_idiam, p_odiam, p_cond As Variant