Hysys Excel Automation

Hysys Excel Automation Training

Friday, June 10, 2011

Hysys Type Library

I forgot to mention about this one. Hysys simulation won't run if there is no Hysys Library on Excel. Hysys library can be found and activated through Microsoft Visual Basic - Tools - References. Find Hysys Type Library, activate by check mark and OK.


This blog doesn't contain any tutorial of using Visual Basic Application. You may learn by others literatures, like Visual Basic Application

Hysys Training to Link Hysys Valve to Excel

Linking Hysys Simulation to access HYSYS UNIT OPERATION VALVE using VBA macro.


Here is the source code:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



 Option Explicit
Public hyApp As HYSYS.Application
Public simCase As SimulationCase
Public FEED1 As ProcessStream, FEED2 As ProcessStream

Public Sub StartHYSYS()
Dim fileName As String
Dim PRESSFEED2 As Double, FLOWFEED2 As Double, TEMPFEED2 As Double
Dim VALVE1 As Valve, VALVE2 As Valve
Dim PRESSDROP1 As Double


    ' LOADING HYSYS SIMULATION FILE
    Set hyApp = CreateObject("HYSYS.Application")
    hyApp.Visible = True
    Set simCase = hyApp.ActiveDocument
    If simCase Is Nothing Then
        fileName = Worksheets("Sheet1").Range("c2")
        
        If fileName <> "False" And simCase Is Nothing Then
            Set simCase = GetObject(fileName, "HYSYS.SimulationCase")
            simCase.Visible = True
        End If

     End If
     
    Set FEED1 = simCase.Flowsheet.MaterialStreams.Item("FEED1")
    Worksheets("Sheet1").Range("D6").Value = FEED1.MassFlow.GetValue("LB/HR")       ' import data MASS FLOWRATE from hysys simulation streams
    Worksheets("Sheet1").Range("D7").Value = FEED1.Pressure.GetValue("PSIG")       ' import data PRESSURE from hysys tutorial streams
    Worksheets("Sheet1").Range("D8").Value = FEED1.Temperature.GetValue("C")       ' import data TEMPERATURE from hysys tutorial streams
    
    
    Set FEED2 = simCase.Flowsheet.MaterialStreams.Item("FEED2")
    
    PRESSFEED2 = Worksheets("Sheet1").Range("H7").Value
    FEED2.Pressure.SetValue PRESSFEED2, "PSIA"                                      ' export pressure
    
    FLOWFEED2 = Worksheets("Sheet1").Range("H6").Value
    FEED2.MolarFlow.SetValue FLOWFEED2, "MMSCFD"                                    ' export molar flowrate
    
    TEMPFEED2 = Worksheets("Sheet1").Range("H8").Value
    FEED2.Temperature.SetValue TEMPFEED2, "F"                                       ' export temperature
    
    
    '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Set VALVE1 = simCase.Flowsheet.Operations.Item("VALVE-1")
    PRESSDROP1 = Worksheets("Sheet1").Range("D16").Value
    VALVE1.PressureDrop.SetValue PRESSDROP1, "inHg(60F)"    ' send data pressure drop to hysys
       
        
    Worksheets("Sheet1").Range("D12").Value = FEED1.Pressure.GetValue("psia")   ' get data from hysys simulation
    Worksheets("Sheet1").Range("D13").Value = FEED1.Pressure.GetValue("inHg(60F)") ' get data from hysys tutorial
    Worksheets("Sheet1").Range("D14").Value = FEED1.Temperature.GetValue("c") ' get data from hysys tutorial
    Worksheets("Sheet1").Range("D15").Value = FEED1.Temperature.GetValue("r") ' get data from hysys tutorial
    
     
    Worksheets("Sheet1").Range("D18").Value = VALVE1.PressureDrop.GetValue("mmHg(0C)") ' get data from hysys simulation
    Worksheets("Sheet1").Range("D19").Value = VALVE1.PressureDrop.GetValue("bar") ' get data from hysys simulation
    Worksheets("Sheet1").Range("D20").Value = VALVE1.PressureDrop.GetValue("kPa") ' get data from hysys tutorial
    Worksheets("Sheet1").Range("D21").Value = VALVE1.PressureDrop.GetValue("atm") ' get data from hysys tutorial
    Worksheets("Sheet1").Range("D22").Value = VALVE1.PressureDrop.GetValue("psi") ' get data from hysys tutorial
    


End Sub

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
HYSYS simulation and excel file can be downloaded here. REMEMBER TO CHANGE HYSYS SIMULATION DIRECTORY ADDRESS ON CELL "C2"


Note: Hysys simulation is generated by Hysys V7.1, may not work well in previous version of Hysys, s.a Hysys 2006 or Hysys 3.2. 


If Hysys V7.1 is not available, make your own simulation. Stream FEED1 and FEED2 specification can be found in previous post . Read and simulate previous post, add two Valves named "VALVE-1" and "VALVE-2", add two more streams and named "OUT-1" and "OUT-2". 








Save in a specific folder/directory you like. 


MAKE SURE TO WRITE DIRECTORY ADDRESS TO CELL "C2" OR HYSYS FILE WILL NOT BE FOUND.


Make some test. Input pressure drop in Cell "D16", and click "RUN HYSYS". 

,

Thursday, June 9, 2011

Hysys Tutorial to Link Hysys Streams on Excel



How to link Hysys Simulation to Excel?
Open Example1.HSC. This file is generated in Aspen Hysys V7.1, may not work in previous version of Hysys, such as Hysys 2006 or Hysys 3.2. If you have older version of Hysys, make your own simulation with two streams named FEED1 and FEED2. Here is some operating condition of the streams.
Linking between Hysys Simulations and Excel using Macro VBA (Visual Basic Application). Create new module in Macro VBA and put this code.

Option Explicit
Public hyApp As HYSYS.Application
Public simCase As SimulationCase
' LOADING HYSYS TUTORIAL FILE
Set hyApp = CreateObject("HYSYS.Application")    hyApp.Visible = True    Set simCase = hyApp.ActiveDocument    If simCase Is Nothing Then        fileName = Worksheets("inputhysys").Range("c2")                 If fileName <> "False" And simCase Is Nothing Then            Set simCase = GetObject(fileName, "HYSYS.SimulationCase")            simCase.Visible = True        End If    End If 

 Note: I put directory address of Hysys file (HSC file) in cell C2. And the address is H:\BLOG\hysys\example1.hsc.
PUT HSC FILE IN YOUR DIRECTORY, MAKE SURE YOU EDIT  EDIT THE  DIRECTORY ADDRESS, OR HYSYS FILE WILL NOT BE LOADED

 How to Access Hysys Streams from Excel?
Put this code to make link to Hysys Streams
Public FEED1 As ProcessStream, FEED2 As ProcessStream
Set FEED1 = simCase.Flowsheet.MaterialStreams.Item("FEED1")
How to Export Data from Excel To Hysys Simulation?
How to Import Data from Hysys Streams to Excel File?
Write down this code to export and import data from and to excel

Set FEED1 = simCase.Flowsheet.MaterialStreams.Item("FEED1")Worksheets("Sheet1").Range("D6").Value = FEED1.MassFlow.GetValue("LB/HR")       ' import data MASS FLOWRATE from hysys streamsWorksheets("Sheet1").Range("D7").Value = FEED1.Pressure.GetValue("PSIG")       ' import data PRESSURE from hysys streamsWorksheets("Sheet1").Range("D8").Value = FEED1.Temperature.GetValue("C")       ' import data TEMPERATURE from hysys streams
Set FEED2 = simCase.Flowsheet.MaterialStreams.Item("FEED2")    PRESSFEED2 = Worksheets("Sheet1").Range("H7").Value    FEED2.Pressure.SetValue PRESSFEED2, "PSIA"         ' export pressure    FLOWFEED2 = Worksheets("Sheet1").Range("H6").Value    FEED2.MolarFlow.SetValue FLOWFEED2, "MMSCFD"      ' export molar flowrate    TEMPFEED2 = Worksheets("Sheet1").Range("H8").Value    FEED2.Temperature.SetValue TEMPFEED2, "F"           ' export temperature

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Hysys file can be found here
Excel file can be found here

 MAKE SURE TO PUT CORRECT DIRECTORY ADDRESS OF HYSYS FILE IN CELL

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Here is complete code from example.xls

 Option Explicit
Public hyApp As HYSYS.Application
Public simCase As SimulationCase
Public FEED1 As ProcessStream, FEED2 As ProcessStream




Public Sub StartHYSYS()
Dim fileName As String
Dim PRESSFEED2 As Double, FLOWFEED2 As Double, TEMPFEED2 As Double
    
    ' LOADING HYSYS TUTORIAL FILE
    Set hyApp = CreateObject("HYSYS.Application")
    hyApp.Visible = True
    Set simCase = hyApp.ActiveDocument
    If simCase Is Nothing Then
        fileName = Worksheets("Sheet1").Range("c2")
        
        If fileName <> "False" And simCase Is Nothing Then
            Set simCase = GetObject(fileName, "HYSYS.SimulationCase")
            simCase.Visible = True
        End If



    End If
     
    Set FEED1 = simCase.Flowsheet.MaterialStreams.Item("FEED1")
    Worksheets("Sheet1").Range("D6").Value = FEED1.MassFlow.GetValue("LB/HR")       ' import data MASS FLOWRATE from hysys streams
    Worksheets("Sheet1").Range("D7").Value = FEED1.Pressure.GetValue("PSIG")       ' import data PRESSURE from hysys streams
    Worksheets("Sheet1").Range("D8").Value = FEED1.Temperature.GetValue("C")       ' import data TEMPERATURE from hysys streams
    
    
    Set FEED2 = simCase.Flowsheet.MaterialStreams.Item("FEED2")
    
    PRESSFEED2 = Worksheets("Sheet1").Range("H7").Value
    FEED2.Pressure.SetValue PRESSFEED2, "PSIA"         ' export pressure
    
    FLOWFEED2 = Worksheets("Sheet1").Range("H6").Value
    FEED2.MolarFlow.SetValue FLOWFEED2, "MMSCFD"         ' export molar flowrate
    
    TEMPFEED2 = Worksheets("Sheet1").Range("H8").Value
    FEED2.Temperature.SetValue TEMPFEED2, "F"          ' export temperature
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Hysys Stream Parameters and units can be found here. REMEMBER TO TYPE UNIT AND PARAMETER AS DESCRIBED HERE. ,
Subscribe to: Posts (Atom)