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

来源:百度知道 编辑:UC知道 时间:2024/04/29 18:45:03
比如网址之家:www.hao123.com 我在“新浪”上面点鼠标右键——复制快捷方式,然后再粘贴到记事本,就可得到新浪网站的地址:http://www.sina.com.cn/
同理可要其他网站的地址。
但现在我是想要网址之家整个页面的网站的地址,又不想一个一个复制,用什么方法可以做到?(除了网址,其他信息都不要)
源文件里面的信息太杂,我只想要网址,不要其他信息。如:
http://www.china.com
http://www.tom.com/
http://www.rising.com.cn
如果是通过源文件要,也是一个一个的复制,很麻烦!能否有简单实用的方法?

"安装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