Open Document Silently Example (VBA)

This example shows how to open a document silently; that is, without dialog boxes.

'----------------------------------------------------

'

' Preconditions: sDocFileName exists at the specified location.

'

' Postconditions: sDocFileName opens silently.

'

'-----------------------------------------------------

Option Explicit

Sub main()

    Const sDocFileName      As String = "C:\samples\hotrod.SLDprt"

    Dim swApp               As SldWorks.SldWorks

    Dim swModel             As SldWorks.modelDoc

    Dim nDocType            As Long

    Dim nErrors             As Long

    Dim nWarnings           As Long

    Set swApp = CreateObject("SldWorks.Application")

    ' Determine type of SolidWorks file based on file extension

    If InStr(LCase(sDocFileName), "sldprt") > 0 Then

        nDocType = swDocPART

    ElseIf InStr(LCase(sDocFileName), "sldasm") > 0 Then

        nDocType = swDocASSEMBLY

    ElseIf InStr(LCase(sDocFileName), "slddrw") > 0 Then

        nDocType = swDocDRAWING

    Else

        ' Probably not a SolidWorks file...

        nDocType = swDocNONE

        '...so the file cannot be opened

        Exit Sub

    End If

    Set swModel = swApp.OpenDoc6(sDocFileName, nDocType, _

                    swOpenDocOptions_Silent, "", nErrors, nWarnings)

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Error    = " & nErrors

    Debug.Print "  Warnings = " & nWarnings

End Sub

'----------------------------------------------------