Excel2002VBACh16.docVIP

学习微软?Excel?2002?VBA?编程和XML，ASP技术?-?CH16 (2010-11-28 17:28:38) 转载▼ 分类： 第十六章 Excel和因特网 作者：Julitta Korol 翻译：Tiger Chen Dec 12’ 2005 我们这几年已经见证了因特网的飞速发展，这让我们获取散布在世界各地的无数的知识成为可能。我们要感谢因特网，我们有了触手可及的数据库，涵盖各行各业和各个知识领域，词典和百科全书，股票查询，地图，天气预报和大量其它类型的储存在无数网页服务器上的信息。很多情况下，从网页上获取的信息成为电脑程序进一步分析的主题。由于其结构（行和列），Excel 2002是使用这些网页表数据的极佳工具。 本章示范Excel 2002里可用的内置工具如何从网页获取数据，或者发布Excel电子表格到网页。在这里，你将发现许多VB语句，让你使用自己编写的VB过程来获取或者发布数据。为了能够尽可能从本章受益，你应该链接到因特网（猫，电话线或网线，因特网服务器账号，以及网页浏览器，例如Internet Explorer 5.0或更高版本）。 使用VBA创建超链接 和其它Office里的应用软件一样，Excel 2002也可以让你在电子表格里创建超链接。点击一个含有超链接的单元格之后，你可以打开一个网络服务器，局域网或者因特网上的文件。你既可以直接在用户界面使用插入|超链接（图16-1）插入超链接，也可以通过使用VBA编程来插入超链接。 图16-1 使用对话框在Excel里插入超链接 在VBA里面，每个超链接由Hyperlink对象表示，想要创建一个超链接到网页的话，可以使用Hyperlinks集合的Add方法。该方法如下所示： Expression.Hyperlinks.Add(Anchor, Address, [SubAddress], [ScreenTip], _ [TextToDisplay]) 方括号里的参数为可选的。Expression指定你欲放置超链接的工作表或者单元格区域。Anchor是要点击的对象，它既可以是一个Range（单元格区域）也可以是Shape（图片）对象。Address指向当地网络或者网页。SubAddress是Excel文件里的单元格名称。ScreenTip让你在屏幕上显示一信息（当光标指向超链接时）。TextToDisplay是为具体超链接在电子表格单元格里你要显示的友好名称。我们来看看在工作表单元格里放置一超链接，这一切是如何通过VBA过程完成的。点击该超链接时，将带你到雅虎网址。 1. 打开一新工作簿 2. 切换到VB编辑器屏幕，并插入一新模块到当前VBA工程 3. 在代码窗口里，输入下面显示的FollowMe过程 4. 激活第三步创建的过程（运行） Sub FollowMe() Dim myRange As Range Set myRange = Sheets(1).Range(A1) myRange.Hyperlinks.Add _ Anchor:=myRange, _ Address:=/bin/search, _ ScreenTip:=Search Yahoo, _ TextToDisplay:=Click here End Sub 当你运行FollowMe过程后，第一个工作表的单元格A1将会包含一个超链接“Click here”，屏幕提示为“Search Yahoo”（参见图16-2）。如果你现在链接到了因特网，点击该超链接就将打开你的网页浏览器，并且装载雅虎有哪些信誉好的足球投注网站引擎（图16-3）。 图16-2 通过VBA过程将该超链接放置到了工作表里面 图16-3 点击放置在工作表单元格上的超链接可以激活雅虎有哪些信誉好的足球投注网站引擎主页 如果你宁愿不在工作表里面放置超链接但是用户仍然可以从Excel工作表里面到达需要的因特网页，那么你可以使用FollowHyperlink方法。该方法允许你打开需要的网页而不必在工作表里放置超链接。该方法的格式如下所示： Expression.FollowHyperlink(Address, [SubAddress], [NewWindow], _ [AddHistory], [ExtraInfo], [Method], [HeaderInfo]) 同样，方括号里面的参数是可选的。Expression返回一个Workbook（工作簿）对象。Address是你要激活的网页地址。SubAddress是超链接地址指向对象的一部分，可以是Excel工作表的单元格区域。NewWindow表明你是否需要在新窗口里面显示该文件。缺省设置为False。下一个参数AddHistory，现在不需要使用。它保留给将来使用。ExtraInfo提供额外的信息，允许跳到