Excel图如何批量引入数据源（答得好再加200分）

录制一个宏,然后编辑代码加个循环进去.剩下的交给电脑了.你抽口烟的工夫它就做完了:)

子易空间站 - 高效办公指导网站

偶然的机会需要使用TWebBrowser，在开发过程中涉及到一些比较不肤浅的东西，于是免不了搜资料，翻CSDN的帖子，终于把要做的东西作了出来，同时对于TWebBrowser也有了初步的了解。同时看到很多CSDN上的不少朋友也在TWebBrowser上存在很多疑问，于是把自己这段时间所得的拿出来与大家分享。还是那句话，本人水平很洼，说的不对的话敬请指出，不要客气，否则不但我自己学错了东西，也让看这篇文章的人误入歧途。废话少说正文开始。

首先我们要认识到TWebBrowser其实是Delphi对Internet Explorer Browser的封装，也就是说它是一个ActiveX控件，看过TWebBrowser代码的朋友会发现这个空间的所有方法的实现部分都调用了DefaultInterface的方法，而TWebBrowser的这个属性是一个IWebBrowser2接口类型的对象，这个接口就是IE的接口。我们在使用TWebBrowser代替IE浏览器的目的大部分是为了能够让程序处理页面，实现自动对WebApplication的请求，所以我们首先想得到的就是TWebBrowser所浏览的内容。TWebBrowser的Documnet属性正是这一内容，Document其实是一个IHTMLDocument2，但是它被声明为IDispatch接口类型，我们需要把它转化为IHTMLDocument2类型然后是用我们需要的各种方法。在这里需要注意IHTMLDocument2是在MSHTML单元定义的，需要我们手动将这一单元加入到uses部分。具体代码如下：

var D : IHTMLDocument2;
begin
D := WebBrowser1.Document as IHTMLDocument2;
end;

接下来我们来看看一个网页中包含什么，也就是我们希望通过TWebBrowser来处理的内容有哪些。网页中的元素主要有普通文本内容，超级连接以及动态的元素（Form中的元素），当然还有其它元素，但是我们在一般的处理过