EXPORTING I-PROPERTIES TO AN EXCEL SPREADSHEET

[Anonymous]

Hello Everyone,

Here is my issue. I need to export certain I-properties from my Inventor dwg and the Assembly that is on it and the parts that build it to an excel to very particular cells in an Excel Spreadsheet. I know that there are some similar VBA codes out there that do something of the sorts, but i'm brand spanking new to VBA. My company has been looking into links from inventor to an ERP program but to no satisfying solution. Can anyone help with the code I need to do what i need to do? If you need more information please let me know.

[MechMachineMan]

GoExcel.CellValue("A" & 1) = iProperties.Value("Custom", "WO#") & " - " & iProperties.Value("Summary","Title") & " - " &iProperties.Value("Summary","Subject")

 the code above can be used at almost any point within:

Dim Loc as String = "C:\Loaction\File.xslx"

Dim excelApp As Object 
Try 
    excelApp = GetObject(, "Excel.Application")
    For Each wb As Object In excelApp.workbooks
       If UCase(wb.fullname) = UCase(filename) Then
	   'workbook is already opened: Save and close it
	   wb.Save
	   wb.Close   
	   Exit For
        End If
    Next
Catch
Finally
    excelApp = Nothing
End Try


Worksheet = Loc
Sheetno = ("Sheet1")
' Open excel 


Try
GoExcel.Open(Worksheet, Sheetno)
Catch
	MsgBox("Sheet Location Not Valid, or Cancel Was Used.",,"RULE UPDATE")
	Exit Sub
End Try


If String.IsNullOrEmpty(GoExcel.CellValue("A" & 1)) Then
	GoExcel.CellValue("A" & 1) = iProperties.Value("Custom", "WO#") & " - " & iProperties.Value("Summary","Title") & " - " &iProperties.Value("Summary","Subject")

End If

' Define Range
RowStart = 3
RowEnd = 2000
For count = RowStart To RowEnd
	' If it's blank count it
	If String.IsNullOrEmpty(GoExcel.CellValue("A" & count)) Then 
		i = i + 1
	End If
Next
' Next empty row is max rows minus blank rows plus one
rowe = RowEnd - i + 1

'Put your iterated row operations here if needed


GoExcel.Save
GoExcel.Close
newExcelApp = CreateObject("Excel.Application")
newExcelApp.Visible = True
newExcelApp.Workbooks.Open(Loc)

'MsgBox("FILE IS UPDATED")

End Sub

[Anonymous]

Thank you for the quick response. I will most defendantly try this. will this code work from the dwg file and dive into the model and parts? I 'm trying to keep from have two codes to pull everything i need. I want to be able to have the dwg file open and connect to the model associated with it.

[MechMachineMan]

Yes, this will work from the idw's,

As it is, the files are all actually loaded into memory (even when you load an idw without any iLogic to open things).

[Anonymous · Accepted solution]

To explain what i had to do to solve this,

I pushed the i-properties that i needed to export from the assembly to the drawing itself through i-logic and then from there i exported them to excel.