COM

Imports System
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Assemblies

Namespace ExcelNXInterface

    <Guid("bbe0089d-a732-4743-922b-180b30006fa4"), _
  InterfaceType(ComInterfaceType.InterfaceIsIDispatch)> _
    Public Interface _ExcelNXInterface
        <DispId(1)> Sub HighlightCompTag(ByRef tag As Long)
        <DispId(2)> Sub Echo(ByVal output As String)
    End Interface

    <ComVisible(True)>
    <Guid("975DC7E0-4596-4C42-9D0C-0601F86E3A1B"), _
     ClassInterface(ClassInterfaceType.None), _
     ProgId("ExcelNXInterface.Open")> Public Class ExcelNXInterface
        Implements _ExcelNXInterface

        Public _ExcelNXInterface

        Dim theSession As Session = Session.GetSession()
        Dim ufs As UFSession = UFSession.GetUFSession()

        Public Sub HighlightCompTag(ByRef tag As Long) Implements _ExcelNXInterface.HighlightCompTag

            'Cycles through component objects by tag in NX, and then when finding it, highlights it. 

            Try
                ufs.Disp.SetHighlight(tag, 1)
                Echo("Component(s) Highlighted...")
            Catch e As NXException
                Echo("NX Exception is: {0} " + e.Message)
            Catch e As Exception
                Echo("Exception is: {0} " & e.Message)
                Echo("DONE!" & vbLf)
            End Try

        End Sub

        Sub Echo(ByVal output As String) Implements _ExcelNXInterface.Echo

            theSession.ListingWindow.Open()
            theSession.ListingWindow.WriteLine(output)
            theSession.LogFile.WriteLine(output)

        End Sub

    End Class

End Namespace

<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly 
  manifestVersion="1.0" 
  xmlns="urn:schemas-microsoft-com:asm.v1" 
  xmlns:asmv1="urn:schemas-microsoft-com:asm.v1"
  xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" 
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">

  <assemblyIdentity
    type="win32"
    version="1.0.0.0" 
    name="ExcelNXInterface"/>

  <clrClass
      clsid="{975DC7E0-4596-4C42-9D0C-0601F86E3A1B}"
      progid="ExcelNXInterface.Open"
      threadingModel="Both"
      name="ExcelNXInterface.Open">
  </clrClass>

  <file name = "ExcelNXInterface.dll"></file>   
</asmv1:assembly>

Sub ExcelNX()

    Dim actCtx As Object
    Set actCtx = CreateObject("Microsoft.Windows.ActCtx")
    actCtx.Manifest = ThisWorkbook.Path & "\ExcelNXInterface.dll.manifest"

    Dim myNX As Object
    Set myNX = actCtx.CreateObject("ExcelNXInterface.Open")
    
    'Do stuff with object
   
End Sub

<br />
Set myNX = actCtx.CreateObject("ExcelNXInterface.Open")<br />

Member 12336929 wrote:

progid="ExcelNXInterface.Open"
Set myNX = actCtx.CreateObject("ExcelNXInterface.Open")