Excel Import Functions

''' ---
''' import excel files into variables
''' ---
Function Excel_Variables()
Dim FileName, file, excel
FileName = Rhino.OpenFileName("Select Excel File","Excel Files (*.xls)|*.xls||")
If isNull(FileName) Then Exit Sub

Set excel = CreateObject("Excel.Application")
excel.Visible = True

excel.Workbooks.Open(FileName)
Set file = excel.ActiveSheet

Dim x:x= file.Cells(1,2).Value

Call Rhino.Print(x)

excel.UserControl = True
End Function

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License