怎样批量打开Excel里面的网址
发布网友
共5个回答
热心网友
转一个给你看
===========================
今天找到一个方法可以把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
大概是这样吧。其实我不懂的。希望有懂得能留言告诉我。谢谢啦。不过能用。嘿嘿
参考资料：http://hi.baidu.com/fm83/blog/item/a15cc1663d21592cab184c85.html
热心网友
Sub Macro1()
For n = 1 To 7
Range("A" & n).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Next n
End Sub
上面的代码应该可以满足你的要求
第二行是表示行数，第三行中的A表示所在列，自己根据要求修改
修改好后，按F5运行
注意，如果太多的网页需要打开，请注意你电脑的内存能否带得起，可以修改第二行分批打开
总之是根据需要修改下数字即可
热心网友
可以 用VBA，如果你会，给你如下参考就能解决问题
'以下是打开指定网页并以右下弹出形式
nsw = CreateObject("htmlfile").parentWindow.Screen.availWidth
nsh = CreateObject("htmlfile").parentWindow.Screen.availHeight
Dim OIE
Set OIE = CreateObject("InternetExplorer.Application")
With OIE
.Left = nsw - 300
.Top = nsh
.Height = 200
.Width = 300
.MenuBar = 1
.Toolbar = 1
.StatusBar = 0
.Navigate c
.Visible = 1
End With
热心网友
应该是不能一次全部打开吧
热心网友
打开的网页 的 第一界面不是一样的吗
