6 Replies Latest reply on Aug 28, 2014 9:24 PM by Deepak Gupta

    How to make a message to the user: "Please first save the file." in VBA macro?

    Bobo Zhelev

      I have a question concerning the following simple macro. Macro is used to convert PDF files into solidvorks document. Macro works fine, but if the file is not saved shows an error message. I would like if the file is not saved to show a message to the user: "Please first save the file." After recording the macro file to continue.
      Thanks in advance for your help.


      Dim swApp As SldWorks.SldWorks

      Dim swModel As ModelDoc2

      Dim lErrors As Long

      Dim lWarnings As Long

      Dim FileName As Variant

      Dim Path As String


      Sub main()


      Set swApp = Application.SldWorks


      Set swModel = swApp.ActiveDoc


      If swModel Is Nothing Then


          MsgBox "Please first open solidvorks file."


          Exit Sub


      End If


      Dim exportData As SldWorks.ExportPdfData: Set exportData = swApp.GetExportFileData(swExportPdfData)


      exportData.ExportAs3D = True


      Path = "D:\"


      FileName = swModel.GetTitle


      FileName = Left(FileName, Len(FileName) - 7)


      FileName = Path & FileName & ".pdf"


      swModel.Extension.SaveAs FileName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, exportData, lErrors, lWarnings


      End Sub