返回列表 上一主題 發帖

[問題] Web 超連結導入

alumi

帖子
67 
主題
8 
精華
0 
積分
78 
點名
0  
作業系統
Windows XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-15 
最後登錄
2021-9-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-18 17:36 | 只看該作者

[問題] Web 超連結導入

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

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

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

genes

帖子
45 
主題
1 
精華
0 
積分
51 
點名
0  
作業系統
windows 7 
軟體版本
office 2003 
閱讀權限
20 
註冊時間
2013-4-16 
最後登錄
2013-12-30 
2#
發表於 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
複製代碼

TOP

alumi

帖子
67 
主題
8 
精華
0 
積分
78 
點名
0  
作業系統
Windows XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-15 
最後登錄
2021-9-14 
3#
發表於 2013-10-23 16:01 | 只看該作者
回復 2# genes

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

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題