7 replies to this topic

[chemproc]

Hello all,

I was wondering if anyone has worked on a vba code to hide the tables in a hysys 7.3 simulation.

Thanks.

Edited by edusegzy1, 16 October 2012 - 03:47 PM.

[Bobby Strain]

You should buy the book by John Walkenback and learn a little VBA. It's about the best tutorial available.

Bobby

[chemproc]

I got this code from aspentech. had to tweek it a little.
it works better when copy and pasted into the macro editor of HYSYS.

Sub Main

Dim hyApp As HYSYS.Application
Dim hyCase As HYSYS.SimulationCase
Dim hyFwsht As HYSYS.Flowsheet
Dim hyPFD As HYSYS.PFD
Dim hyPFDItems As HYSYS.PFDItems
Dim hyPFDItem As HYSYS.PFDItem

Set hyApp = GetObject(, "HYSYS.Application")
Set hyCase = hyApp.ActiveDocument
Set hyFwsht = hyCase.Flowsheet

Set hyPFD = hyFwsht.PFDs.ActivePFD

Set hyPFDItems = hyPFD.Items(pfdOperationTable, pfdVisible)

For Each hyPFDItem In hyPFDItems
hyPFDItem.Hidden = True
Next 'hyPFDItem

End Sub

[Bobby Strain]

I guess that I misunderstood your question. But you went to the right place for a solution. I never use tables in my simulations except in rare instances. So, where did you store the procedure?

Bobby

[chemproc]

Go to Tools>Macro Language Editor

[chemproc]

...in HYSYS

[Bobby Strain]

So, you run the procedure in HYSYS without using EXCEL? Well, I did a bit of research to answer my own question. I have used HYSYS since its introduction, but never created and stored a macro with the HYSYS editor. I always used visual basic or EXCEL VBA. For simple things like you are doing, HYSYS macro is best since it is stored in the same folder with the simulation. But if you need a lot of dialog, VB or VBA will be much easier to build the interface. As long as Microsoft supports VB6 we're in good shape. When that support ends, we will have to do things a bit different with the .net versions.

Bobby

Edited by Bobby Strain, 22 October 2012 - 10:00 AM.

[chemproc]

Thanks Bobby. I agree with you!