返回列表 上一主題 發帖

[問題] Web 超連結導入

[問題] Web 超連結導入

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

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

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

回復 2# genes

   感謝您,很精簡的程式碼.

TOP

回復 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

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題