我的数据库中的表单上有一个按钮，我想在单击时打开一个用户指南。我放在这里的用户指南在visio中，但是我似乎找不到使用宏生成器打开它的方法。这是我使用VBA需要做的事情吗？如果是这样，则有关代码外观的建议如何？
我认为类似以下内容的方法可能会起作用，尽管我已对此进行了调整以适合visio，所以希望它能起作用。
Dim FName As String
Dim VisioApp As Object
On Error Resume Next
Set VisioApp = GetObject(, "Visio.Application")
If VisioApp Is Nothing Then
Set VisioApp = CreateObject("Visio.Application")
If VisioApp Is Nothing Then
MsgBox "Can't connect to Visio"
Exit Sub
End If
End If
On Error GoTo 0
FName = "C:\Path\FileName.vsd"
VisioApp.documents.Open FName '
VisioApp.Visible = True
您可能需要进入VB编辑器，单击Tools> References，然后将Microsoft Visio库标记为已选中。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句