[求助](遇新问题)如何将sheet1所有超链(HTTP)在sheet2全显示出来

Wolfinwind · 发表于 2008-10-16 11:16

如附件所示，如何能让sheet1中所有带http链接的单元格全部在sheet中在A列显示？

eCeSKp3k.rar (19.01 KB, 下载次数: 7)

[此贴子已经被作者于2008-10-21 16:04:29编辑过]

Wolfinwind · 发表于 2008-10-16 12:03

自己顶一下，还希望各位大大帮忙啊……

ldy · 发表于 2008-10-16 13:07

Sub getlink()
    For i = 1 To Sheet1.Hyperlinks.Count
        Sheet2.Cells(i, 1) = Sheet1.Hyperlinks(i).Name
    Next
End Sub

Wolfinwind · 发表于 2008-10-16 13:26

谢谢楼上的，能请你再帮我把这些链接对应的单元格中的文本在旁边一列显示出来吗？比如sheet2中的A1单元格的链接假如对应的是诺基亚手机专区，那么能不能在B1的地方显示“诺基亚手机专区”？多谢多谢啊！！！

ldy · 发表于 2008-10-16 16:53

Sub getlink()
    Me.Shapes.SelectAll
    For i = 1 To Sheet1.Hyperlinks.Count
        Sheet2.Cells(i, 1) = Sheet1.Hyperlinks(i).Name
        If TypeName(Sheet1.Hyperlinks(i).Parent) = "Range" Then
            Sheet2.Cells(i, 2) = Sheet1.Hyperlinks(i).Parent
        Else
            Sheet2.Cells(i, 2) = "是个：" & TypeName(Sheet1.Hyperlinks(i).Parent)
        End If
    Next
End Sub

Wolfinwind · 发表于 2008-10-16 17:28

楼上的高手，Me.Shapes.SelectAll这个代码是什么意思，我删除这个代码才能成功运行，否则就要我调试？

ldy · 发表于 2008-10-16 17:50

多余的，测试用的，忘记删了

Wolfinwind · 发表于 2008-10-21 16:00

ldy，帮我看看这个新的附件，我在对附件中的sheet1提取HTTP链接的时候出现了调试窗口，这个要怎么解决……急……谢谢……

9QuBotzt.rar (25.18 KB, 下载次数: 2)

Wolfinwind · 发表于 2008-10-21 17:00

继续呼唤ldy……

Wolfinwind · 发表于 2008-10-22 16:09

LDY快点帮我吧……

用户名		自动登录	找回密码
密码			免费注册