Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间:2006-03-04 00:00:00
作 者:竹笛   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:OnlineWeb函数为《通用开发平台》中集成了的函数,用来打开某个网站。

正 文:

一、调用方式
   OnlineWeb("http://www.accessoft.com")

二、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



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助