MS Access导入Excel超链接仅导入显示文本，如何同时导入地址？

方法一：先在Excel中提取超链接地址，再合并导入 #

1. 提取超链接地址：
   打开目标Excel文件，按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

   Sub ExtractHyperlinks()
       Dim cell As Range
       For Each cell In Selection
           If cell.Hyperlinks.Count > 0 Then
               cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
           End If
       Next cell
   End Sub
   

   选中所有带超链接的单元格，运行这个宏，超链接地址会被提取到选中单元格右侧的列中。

2. 导入并拼接超链接：
   将Excel中的显示文本列和地址列一起导入Access，之后在Access中执行更新查询（替换实际表名和字段名）：

   UPDATE 导入表 SET 超链接字段 = [显示文本列] & "#" & [地址列] & "#";
   

   执行后，超链接字段会同时包含显示文本和可跳转的地址，最后可删除多余的显示文本列和地址列。

方法二：调整Access导入向导的字段类型 #

在Access中通过「外部数据」→「Excel」导入文件时，进入「字段选项」步骤，将对应字段的数据类型设置为超链接，而非默认的文本类型。

注：此方法对Excel中通过公式生成的超链接支持有限，优先推荐方法一。

方法三：用Access VBA自动化导入处理 #

如果需要批量处理多个文件，可使用Access VBA直接读取Excel超链接并导入：

Sub ImportExcelHyperlinks()
    Dim xlApp As Object, xlWB As Object, xlWS As Object
    Dim rs As DAO.Recordset
    Dim i As Integer
    
    '替换为你的Excel文件路径和工作表名
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open("C:\你的文件路径\数据文件.xlsx")
    Set xlWS = xlWB.Worksheets("Sheet1")
    Set rs = CurrentDb.OpenRecordset("目标数据表")
    
    '从第2行开始导入（跳过表头）
    For i = 2 To xlWS.Cells(xlWS.Rows.Count, 1).End(-4162).Row
        rs.AddNew
        '按Access超链接格式拼接：显示文本#地址#
        rs("超链接字段名") = xlWS.Cells(i, 1).Value & "#" & xlWS.Cells(i, 1).Hyperlinks(1).Address & "#"
        rs.Update
    Next i
    
    '清理对象
    rs.Close
    xlWB.Close False
    xlApp.Quit
    Set xlWS = Nothing: Set xlWB = Nothing: Set xlApp = Nothing: Set rs = Nothing
End Sub

内容的提问来源于stack exchange，提问作者Gary Nolan