如何使数据库生成的链接导出至Excel后可点击？

问题根源 #

Excel不会自动解析HTML格式的<a>标签链接，只会将其当作普通文本显示，因此无法点击。

解决方案 #

方案一：修改SQL生成Excel原生识别的超链接格式

直接在SQL中生成Excel的HYPERLINK函数格式，导入后Excel会自动解析为可点击链接：

select
CONCAT('=HYPERLINK("https://srv-jira7:8999/browse/SPDR-', iss.Issue_Num, '", "Go")') as Link
from table

导入Excel后，确保单元格格式为「常规」，公式会自动生效，显示为可点击的"Go"链接。

方案二：导入后批量转换现有文本链接

如果已经导入了HTML格式的文本，可用Excel公式或宏批量处理：

1. 公式法：假设链接在A列，在B列输入以下公式并下拉填充：

   =HYPERLINK(MID(A1,FIND("href=",A1)+6,FIND(">",A1)-FIND("href=",A1)-7), "Go")
   

2. VBA宏法：按Alt+F11打开VBA编辑器，插入模块后粘贴以下代码，选中目标单元格区域后运行宏：

   Sub ConvertHTMLToHyperlink()
       Dim cell As Range
       For Each cell In Selection
           If InStr(cell.Value, "<a href=") > 0 Then
               Dim url As String
               url = Mid(cell.Value, InStr(cell.Value, """") + 1, InStrRev(cell.Value, """") - InStr(cell.Value, """") - 1)
               cell.Value = ""
               ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=url, TextToDisplay:="Go"
           End If
       Next cell
   End Sub
   

方案三：调整Excel导入设置（兼容性有限）

部分Excel版本在通过SQL连接导入数据时，可在导入向导中选择「将HTML格式转换为格式化文本」，但该功能并非所有版本都支持，优先推荐前两种方案。

内容的提问来源于stack exchange，提问作者Donald William Glossfield