Re: [VBA ] EXCEL 中的超連結

看板Visual_Basic作者slanla (slanla)時間18年前 (2008/03/03 01:12)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

※ 引述《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

03/06 16:32, , 1^F

03/06 16:32, 1^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 slanla 的文章

文章代碼(AID): #17oj_eN1 (Visual_Basic)