Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. Requires a reference to Microsoft InfoPath
Private Sub cmdRegisterForm_Click()
    Dim ap As New InfoPath.ExternalApplication
    ap.RegisterSolution ThisWorkbook.Path & "\manifest.xsf"
    ap.Quit
    Set ap = Nothing
End Sub