如何批量复制超级链接地址？

"安装FLASHGET（网际快车），安装完成之后，操作步骤如下:
1.在网页上面点右键，出现菜单，选中“使用网际快车下载全部连接”
2.弹出URL列表，选中确定按钮！
3.出现下载任务列表，将左下角的“开始”设置为手动！然后确定，出现对话框，确认应用相同的设置！
4.所有的网页名称和位置就在FLASHGET的列表里面之后，选择FLASHGET的文件菜单，找到输出下载信息，类型为HTML，类别是正在下载，样式为NORMAL，其他随默认设置，点输出！选择路径和名称！
会有如下的WEB格式列表，
Name:index.html----->>这个指向杂志的实际位置,这里我没有做连接，在使用中是系统自己实现的
Size:
Complete Time:
Save as:c:\my document\index.html------->>这个是提示这个下载文件保存在本地硬盘的位置，Referer:http://XXX.html------>>>这个是整个网页的位置
Comment:XXX------->>>这个是根据要求实现的和网址对应的单纯的名称！"

你先搞到execl里，就是带链接的那种，然后follow next
1、点击菜单“工具”->宏->宏->输入宏名“复制超级链接”->点“创建”
2、在宏编辑窗口里，输入以下代码：

复制超级链接
Sub ()

For a = 1 To 10 '这里控制读取A列的第1到10行，你根据自已的要求修改一下起始和结束行数
If Cells(a, 1).Hyperlinks.Count > 0 Then Cells(a, 2).Value = Cells(a, 1).Hyperlinks.Item(1).Name
Next

End Sub

打你的www.HAO123.COM网站,查看-源文件(这里面就有你要的网站了!)