troubleshooting Question

If application is already open, how do I close it and start a new one????

Avatar of mmtcunningham1
mmtcunningham1 asked on
ProgrammingVisual Basic ClassicMicrosoft Visio
3 Comments1 Solution239 ViewsLast Modified:
In my program, I want to open a visio file but if it is already open, I want to close it and open a new version of the file.  Here's the code that I currently have.  I run into problems if the application is already open.

If IsNothing(VisioApplication) Then
            VisioApplication = CreateObject("visio.application")
        End If


        Try
            VisioApplication.Documents.Open(VisioPathName)
            VisioPages = VisioApplication.ActiveDocument.Pages
            VisioPage = VisioPages.Item(1)
            VisioShapes = VisioPage.Shapes

        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 3 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros