如何用VB生成Visio文件？

grayfair

像VB输出为Excel一样，VB是否也能输出为Visio文件？

请给予例子。

路过一个游侠

VB也可以操作VISIO啊

路过一个游侠

Option Explicit
Dim vso As New Visio.Application
Private Sub Command1_Click()
    vso.Visible = True
    vso.Documents.Open "c:\tu1.vsd"
   
End Sub


Private Sub Form_Unload(Cancel As Integer)
    Set vso = Nothing
End Sub