Need to fill i properties by excel data

[infobala86]

To fill iproperties by excel give a sample and simple i logic code to fill i properties by excel  just simple few lines 

[k14348]

Hi,

Sub iPropCopy()
    
    Dim xlApp As Excel.Application
    Set xlApp = GetObject(, "Excel.Application")
    
    Dim xlSheet As Excel.WorkSheet
    Set xlSheet = xlApp.ActiveWorkbook.ActiveSheet
    
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oProp As Property
    Set oProp = oDoc.PropertySets.Item("Design Tracking Properties").Item("Part Number")
    
    oProp.Value = xlSheet.Range("A1").Value
    
End Sub

Hope u can easily convert this to vb,net.

-Karth

[infobala86]

 Thanks I will check