Hi michael.sheldon153,
Might be a bit more "long winded" than it needs to be, but try this:
'set the target document
oDoc = ThisApplication.ActiveEditDocument
'example: "C:\TEMP\9876543210.ipt"
sPathAndName = oDoc.FullFileName
'split into an array
oSplit = Split(sPathAndName,"\")
'example: "C:\TEMP\9876543210.ipt"
' oSplit(0) = C:
' oSplit(1) = TEMP
' oSplit(2) = 9876543210.ipt" <-- this is the Ubound for this example
'get the upper bound of the array
sNameWithExtension = oSplit(UBound(oSplit))
'get length of string
'example: 9876543210.ipt" , would return 14
iNameLength = Len(sNameWithExtension)
'remove last four chars, which is the extension ( example: .ipt )
sName = Left(sNameWithExtension, iNameLength - 4)
'compare excel data
If GoExcel.FindRow("C:\TEMP\Test.xlsx", "Sheet1", "Name", "=", sName)
' Get a reference to the PropertySets
' we're really only using Design Tracking Properties in this case though
Dim oPropSet1 As PropertySet
oPropSet1 = oDoc.PropertySets.Item("Inventor Summary Information")
Dim oPropSet2 As PropertySet
oPropSet2 = oDoc.PropertySets.Item("Design Tracking Properties")
Dim oPropSet3 As PropertySet
oPropSet3 = oDoc.PropertySets.Item("Inventor User Defined Properties")
'set value to excel data
oPropSet2.Item("Description").Value = GoExcel.CurrentRowValue("Desc")
End If
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com