Using a Radio Box to Open Specific Excel Sheets

[Anonymous]

Hello,

In my ever-evolving quest to create a logical drawing template, I was wondering how (if possible) an iLogic rule could be used to open a specific sheet in an excel document, using the input from a radio box?

Thanks.

[asiteur]

Hi,

You could make a rule like this:

iProperties.Value("Summary", "Title")=GoExcel.CellValue("filename.xls", "Sheet1", "A2")

Read Excel and store that into (Custom)Properties that you use some how, the title block for example.

Then you can make a form with radio buttons on which sheets to use for example.

I can help you further when you provide some more detail!

[Anonymous]

Hi Alexander,

What I'm basically getting at is that the radio box would be to choose whether the CNC operation would be a contour cut or a waterjet operation.  When the rule is fired, the user would choose from the radio box the aforementioned options, and then upon hitting OK, would call up an excel file containing CNC program numbers, either landing on the "contour" or "waterjet" sheet.  The user can pull a number and implement it into the drawing.

This would save the user all the trouble of having to trace to the file location each and every time one has to pull numbers.

Does this help?

[asiteur]

Hi there,

I coudn't expect that you wanted to really open an Excel window.

Well, what you surely can do is: when you know which cell you want to access get the value to Inventor, as a parameter as simple message as text on a drawing, as a property... This you can quite simply do with iLogic. You can specify the cell you want to see as directly or do someting like "where column name= and rowname=..."

If for any reason you really want to see the excel sheet opened.... you probably can do something, maybe in VBA, surely with VB.net ... but that's not so very straightforward, will take you a good couple of hours provided you already have some solid programming experience.

The radiobutton part is actually quite simple, in iLogic you can put a multivalue list behind it. Then if variable1="case1" myexcelsheetpath="....xls"

Hope this helps.

[MechMachineMan · Accepted solution]

Tweak lines as required for the appropriate sheets/excel file name.

Good luck!

Sub Main()
	Dim xlApp As Object
	Dim xlwb As Object
	Dim xlws As Object
	Dim xlFileName As String
	Dim xlSheetName As String
	Dim resp As Boolean
	
	xlFileName = "C:\Users\Owner\Desktop\TEST.xlsx"
	
	resp = InputRadioBox("Choose the Operation to perform to this part", "Contour", "Waterjet", True, Title := "CNC Type")
		
	If resp = True 'ie; contour was selected
		xlSheetName = "CONTOUR"
	Else
		xlSheetName = "WATERJET"
	End If
	
	xlApp = GetObject("", "Excel.Application")
	xlApp.Visible = True
	
	xlwb = xlApp.Workbooks.Open(xlFileName)
	Try
		xlws = xlwb.Worksheets(xlSheetName)
		xlws.Activate

		AppActivate("Microsoft Excel")
	Catch
		MsgBox("Sheet of the name " & vbLf & xlSheetName & vbLf & "not found!" & vbLf & vbLf & "Aborting!",, "MechMachineMan iLogic")
	End Try
	
	xlwb = Nothing
	xlApp = Nothing
End Sub

[Anonymous]

Excellent, that's exactly what I'm looking for.  Thanks MM.