麻辣家族討論版版 » Excel程式區 » [問題] Web 超連結導入

返回列表下一主題上一主題發帖

[問題] Web 超連結導入

中學生 Rank: 2

帖子: 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 表單裡的部份文字，有超連結，

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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

2^#

發表於 2013-10-20 14:48 | 只看該作者

回復 1# alumi

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

複製代碼

中學生 Rank: 2

帖子: 67
主題: 8
精華: 0
積分: 78
點名: 0
作業系統: Windows XP
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-15
最後登錄: 2021-9-14

3^#

發表於 2013-10-23 16:01 | 只看該作者

回復 2# genes

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

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

返回列表下一主題上一主題