How to open existing Visio drawing using VB6

[joevisio]

Hi,

I’m trying to open an existing visio drawing using VB6, below are th
codes:

Dim appVisio As Visio.Application
Dim docsObj As Visio.Documents
Dim docObj As Visio.Document
Dim stnObj As Visio.Document
Dim mastObj As Visio.Master
Dim pagsObj As Visio.Pages
Dim pagObj As Visio.Page
Dim shpObj As Visio.Shape
Set appVisio = CreateObject("visio.application")
Set docsObj = appVisio.Documents.Open("C:\header\Precinct3Col.vsd")


The above code would open visio application and the drawing, but i
would give me the following error “type mismatch”.

Any help with the error would greatly appreciate.

Thanks

Jo

 

[JuneTheSecond]

In Set docsObj = appVisio.Documents.Open(,,,,,,
docsObj should be read as docObj.

 

[John Marshall, MVP]

As June points out, you are assigning a single document,
AppVisio.Documents.Open() , to a document collection, docsObj.

AppVisio.Documents is a document collection, AppVisio.Documents.Open() is a
single document.

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm
Visio Wishlist http://www.mvps.org/visio/wish_list.htm

 

[joevisio]

Thank, it works.

Jo