すまん、そもそも VBA だったな。

Dim VisioApp As Visio.Application
Dim Document As Visio.Document

Set VisioApp = New Visio.Application
Set Document = VisioApp.Documents.Open(ファイル名[絶対パス])

...

Document.Close

ではダメかな？