作者slanla (slanla)
看板Visual_Basic
标题Re: [VBA ] EXCEL 中的超连结
时间Mon Mar 3 01:12:07 2008
※ 引述《b8888 (b8888)》之铭言：
: 各位大大小弟有一个问题~~~
: 我要如何取得excel的超连结资料??
: 因为有一些资料,前手留下来时只有excel档案
: 但每一个储存格却有一堆的超结资料
: 不道有没有方法可以整批取得超连结的资料;
: 而不用逐笔逐笔用复制,贴上的方法;取得超连结资料
: 小弟试过用汇出的方式,但是只能汇出"储存格"的资料
: 却无法汇出超连结的资料
: 谢谢您的回答
小小测试了一下...
Sub tt()
For i = 1 To Sheet1.Hyperlinks.Count
msg = msg & "第" & i & "个连结:" & vbCrLf
msg = msg & Sheet1.Hyperlinks(i).Address & vbCrLf
msg = msg & " 范围:" & vbCrLf
msg = msg & " (" & Sheet1.Hyperlinks(i).Range.Row & _
"," & _
Sheet1.Hyperlinks(i).Range.Column & ")-"
msg = msg & " (" & Sheet1.Hyperlinks(i).Range.Row _
+ Sheet1.Hyperlinks(i).Range.Rows.Count - 1 _
& "," & _
Sheet1.Hyperlinks(i).Range.Column _
+ Sheet1.Hyperlinks(i).Range.Columns.Count - 1 _
& ")" & vbCrLf
For m = 1 To Sheet1.Hyperlinks(i).Range.Rows.Count
msg = msg & " "
For n = 1 To Sheet1.Hyperlinks(i).Range.Columns.Count
msg = msg & Sheet1.Hyperlinks(i).Range(m, n) & vbTab
Next n
msg = msg & vbCrLf
Next m
msg = msg & vbCrLf
Next i
MsgBox msg
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.127.25.128
1F：推 b8888:谢谢您的回答 03/06 16:32