打开某个网站的OnlineWeb函数；Access打开网页VBA代码；Access打开浏览器地址的代码

时　间:2006-03-04 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：3059255
摘　要:OnlineWeb函数为《通用开发平台》中集成了的函数，用来打开某个网站。

正　文:

二、OnlineWeb函数
Public Function OnlineWeb(WebAddress As String)
'功能：打开一个网站
'修改历史：2006/1/3
'说明：
'WebAddress为将打开网站的网址
'作者：竹笛 (微软最有价值专家)
'说明：您可以无偿地在您自已开发的软件中应用此函数，为了尊重作者的劳动，请保留这些说明信息。同时您不得用于盈利的商业用途，欢迎大家提出修改意见，并就此函数与作者交流
'邮箱：admin@accessoft.com
    On Error GoTo Err_OnlineWeb
    Dim Web
    Set Web = CreateObject("InternetExplorer.Application")
    Web.Visible = True
    Web.Navigate WebAddress
Exit_OnlineWeb:
    Exit Function
Err_OnlineWeb:
    Resume Exit_OnlineWeb
End Function