使用文本框中的文本在Word中显示带有网站信息的弹出窗口

问题描述

我希望在Word文档的弹出窗口中显示网站搜索中的信息。通过在文本框中输入11位数字来触发搜索。我为Excel找到了类似的代码，但我真的很想如果有人可以用文字帮助我。

Sub URL_Get_ABN_Query()
strSearch = Range("a1")
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.abr.business.gov.au/SearchByABN.aspx?SearchText=" & strSearch & "&safe=active",_
Destination:=Range("a5"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ms-word url