webbrowser里的js与程序交互问题

最新推荐文章于 2021-09-15 09:49:40 发布

转载最新推荐文章于 2021-09-15 09:49:40 发布 · 949 阅读

文章标签：

#webbrowser

VB 同时被 2 个专栏收录

16 篇文章

订阅专栏

HTML

15 篇文章

订阅专栏

本文介绍了一个使用VBA脚本进行网页导航并触发特定函数的过程。通过解析带有特定前缀的文本更改事件，可以调用预先定义好的VBA函数。此方法实现了网页与VBA之间的交互，为开发提供了新的思路。

<a onclick=VBScript:document.title="VB:test('X','Y','Z')">文字</a>

Option Compare Text
Private Function Test(S1, S2, S3)
MsgBox S1 & S2 & S3
End Function
Private Sub Form_Load()
WebBrowser1.Navigate "e:\1.htm"
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
If Left(Text, 3) = "VB:" Then
 Dim s As String, fncName As String, l As Long, args
 s = Mid(Text, 4)
 s = Replace(s, "(", " ")
 s = Replace(s, ")", " ")
 l = InStr(s, " ")
 
 fncName = Trim(Left(s, l - 1))
 args = Split(Mid(s, l), ",")
 For i = 0 To UBound(args)
  args(i) = Trim(args(i))
 Next
 
 Select Case fncName
  Case "test"
   Test args(0), args(1), args(2)
 End Select
Else
 Caption = Text
End If
End Sub