Imports System
Imports NXOpen

Module nx_saveas_from_excel
    Dim s As Session = Session.GetSession()

    Sub Main()
        Dim wp As Part = s.Parts.Work
        If wp Is Nothing Then Exit Sub

        Dim expr_name As String = "read_cell_value"
        Dim xls_name As String = "C:\WINDOWS\Temp\nx_excel_test.xls"
        Dim tab_name As String = "Tabelle1"
        Dim cell_name As String = "A1"

        Dim expr_str As String = expr_name & " = ug_cell_read(""" & xls_name & """, """ & tab_name & "!" & cell_name & """)"
        Dim expr_obj As Expression = wp.Expressions.CreateExpression("String", expr_str)
        Dim prt_name As String = expr_obj.StringValue
        wp.Expressions.Delete(expr_obj)

        If IO.File.Exists(prt_name) Then
            If Windows.Forms.MessageBox.Show(prt_name & vbCrLf & " already exists, overwrite ?", _
                                             "Part exists", _
                                             Windows.Forms.MessageBoxButtons.YesNo, _
                                             Windows.Forms.MessageBoxIcon.Question) = _
                                             Windows.Forms.DialogResult.Yes Then
                IO.File.Delete(prt_name)
            Else
                Exit Sub
            End If
        End If

        Dim stat As PartSaveStatus = s.Parts.Work.SaveAs(prt_name)
    End Sub

End Module