標題: [問題] Web 超連結導入 [打印本頁]

---

作者: alumi    時間: 2013-10-18 17:36     標題: [問題] Web 超連結導入

個人會使用 Excel 從網站上，滙入表單資料至 Excel 表格．

但原始 Web 表單裡的部份文字，有超連結，

要如何”提取”那文字隱含的超連結資料呢？

---

作者: genes    時間: 2013-10-20 14:48

回復 1# alumi

1. Sub ExtractHL()
   
2.     Dim HL As Hyperlink
   
3.     For Each HL In ActiveSheet.Hyperlinks
   
4.         HL.Range.Offset(0, 1).Value = HL.Address
   
5.     Next
   
6. End Sub

複製代碼

---

作者: alumi    時間: 2013-10-23 16:01

回復 2# genes

   感謝您，很精簡的程式碼．

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)