Re: [VBA ] EXCEL 中的超連結

[slanla (slanla)]

※ 引述《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
推 b8888:謝謝您的回答