我的数据库中的表单上有一个按钮,我想通过单击打开用户指南。我放在一起的用户指南位于 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 库标记为已选中。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)