01-23-2015
04:37 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-23-2015
04:37 AM
Thanks MegaJerk,
i end up with this code. Required excel sheet. On opening new dwg show up input box with clients. If hit enter won't go away. In my case Client is maped into Title block and will be written on save. Hope this may help to others.
'Open list of our Clients
GoExcel.Open("C:\Customer.xlsx", "Sheet1")
lastUsedRow = 2
'set the list to be read from the XLS file
Dim myArrayList As New ArrayList
'add the values from the Excel file to an array list
While GoExcel.CellValue("A" & lastUsedRow) <> ""
myarraylist.add(GoExcel.CellValue("A" & lastUsedRow))
lastUsedRow = lastUsedRow + 1
End While
If iProperties.Value("Summary", "Company") = "" Then
While CompanyProperty = ""
CompanyProperty = InputListBox("Select Customer from list", myArrayList, myArrayList, Title := "iLogic", ListName := "Customer")
End While
iProperties.Value("Summary", "Company") = CompanyProperty
End If