Exporting Visio Data to Excel Across pages

[Bec]

I have a complex visio drilldown diagram with a map of the country and then a
diagram of each site around the country with custom properties linked to each
device in each site around the country. I need to create a database either in
excel or access so that I can run a report at a glance to say for example how
many routers we are using in the country. I have used the database export
wizard and can export the data ok for one page. What I need to do is export
the data in one go over multiple pages. I have a feeling this can't be done
without coding. I am not a developer so I was looking for a simple answer
first or even some simple code I could use. Any help, suggestions or
resources would be very much appreciated.

Thanks
Bec

 

[Al Edlund]

have you investigated the tools => reports function. I believe the first
prompt is something like "current page" or "all pages"
al

 

[Bec]

Thanks Al. Yes I have tried this function. It does work across pages but you
have to keep running the report each time a device changes and then you have
to resave the report. What I really need is a linked database (either excel
or access) that can just be refreshed. From the extracted data I will have to
run further reports in excel or access so ideally it would be the same file
each time.

Any further help would be greatly appreciated!

Cheers
Rebecca

 

[Al Edlund]

The simplist is to link the drawing to a 'database' using the db wizard (I
prefer to link to access for prototyping). You can then use a simple macro
to loop through the pages and have the wizard do the updating. Another more
advanced technique would be to use event automation to trigger the update,
but this requires some skills.
al

 

[Bec]

Thanks I thought that may be the case and programming would be involved. Any
idea what this "simple" macro would look like. I have done a bit of VB in
Word but not in Visio. Not sure where to start...

Thanks again for your help
Bec

 

[Al Edlund]

I'd start with something like this...

Public Sub DoRefresh()
Dim myPage As Visio.Page
Dim myDoc As Visio.Document

Set myDoc = Visio.Application.ActiveDocument

For Each myPage In myDoc.Pages
' the name of the database refresh add-on for your version of visio
RUNADDON ("DBRS")
' MsgBox CStr(myPage.Name)
Next myPage

End Sub


al

 

[Bec]

Thanks for all your help.

Cheers
Bec

I'd start with something like this...

Public Sub DoRefresh()
Dim myPage As Visio.Page
Dim myDoc As Visio.Document

Set myDoc = Visio.Application.ActiveDocument

For Each myPage In myDoc.Pages
' the name of the database refresh add-on for your version of visio
RUNADDON ("DBRS")
' MsgBox CStr(myPage.Name)
Next myPage

End Sub


al