文章来源：http://hi.baidu.com/fm83/blog/item/a15cc1663d21592cab184c85.html

今天找到一个方法可以把excel表里面的网址批量的打开来。。。需要编制一个宏，以前不太懂，现学现卖吧。

Sub OpenWeb() ‘ 这是创建 VB语法

For i = 1 To 200 ‘比如从C1到C200都是网址

Cells(i, 3).Select ‘选择C1,一个个开始往后走

On Error GoTo a ‘有的网址是不能用的，为了避免弹出错误，所以干脆就让它直接往后走。

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True ‘打开网页的语句。说实话，不懂。

Next

a: Resume Next ‘如果出错了，仍继续。

End Sub

大概是这样吧。其实我不懂的。希望有懂得能留言告诉我。谢谢啦。不过能用。嘿嘿