如何将.xlsx文件转换为.csv文件并保留可点击链接

阿华AIGC实验室

2026-5-19

嘿，这个问题我太熟了——CSV本身是纯文本格式，不像Excel那样能存储带格式的超链接信息，所以直接用系统自带的「另存为」或者改后缀肯定会出问题。我给你几个靠谱的解决办法，不管是小文件手动处理还是大文件批量操作都能用：

方法1：用Excel公式手动提取链接（适合小文件）

如果你的文件行数不多，用公式就能快速把超链接的显示文本和实际地址/路径合并成文本格式的可识别链接：

先在Excel里新增一列，比如命名为完整链接
如果你用的是Excel 365/2021及以后版本，直接用内置函数提取：
- 提取超链接地址：=HYPERLINK.EXTRACT(你的链接单元格, "Address")
- 提取显示文本：=HYPERLINK.EXTRACT(你的链接单元格, "DisplayText")
把两者合并成Markdown格式的链接（这种格式不管是文本编辑器还是Excel都能识别）：
```
="["&HYPERLINK.EXTRACT(A1,"DisplayText")&"]("&HYPERLINK.EXTRACT(A1,"Address")&")"
```
比如原链接显示为「我的文档」，路径是./文档.pdf，公式会生成[我的文档](./文档.pdf)
把生成的「完整链接」列替换原来的链接列，再用「另存为」导出CSV就没问题了。

方法2：用VBA脚本批量导出（适合大文件）

如果你的文件有几百上千行，手动写公式太麻烦，用VBA脚本一键导出带完整链接的CSV：

打开你的Excel文件，按Alt+F11打开VBA编辑器
右键点击左侧的工作簿名称→「插入」→「模块」

粘贴下面的代码：

Sub ExtractHyperlinksToCSV()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim outputPath As String
    Dim fso As Object, ts As Object
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    outputPath = ws.Parent.Path & "\带链接的导出.csv"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    '用UTF-8编码导出，避免乱码
    Set ts = fso.CreateTextFile(outputPath, True, True)
    
    '写入表头
    For j = 1 To lastCol
        ts.Write ws.Cells(1, j).Value
        If j < lastCol Then ts.Write ","
    Next j
    ts.WriteLine
    
    '遍历数据行，处理超链接
    For i = 2 To lastRow
        For j = 1 To lastCol
            If ws.Cells(i, j).Hyperlinks.Count > 0 Then
                '转成Markdown格式链接
                ts.Write "[" & ws.Cells(i, j).Value & "](" & ws.Cells(i, j).Hyperlinks(1).Address & ")"
            Else
                ts.Write ws.Cells(i, j).Value
            End If
            If j < lastCol Then ts.Write ","
        Next j
        ts.WriteLine
    Next i
    
    ts.Close
    MsgBox "导出完成！文件路径：" & outputPath
End Sub

按F5运行脚本，它会在原文件所在文件夹生成一个带完整链接的CSV文件——用文本编辑器打开是标准的纯文本链接，用Excel打开也能看到清晰的链接格式，要是需要可点击的，还能再转回去。

方法3：用Power Query批量处理（无需代码）

如果你不想碰VBA，用Excel自带的Power Query也能搞定：

选中你的数据区域，点击顶部「数据」选项卡→「从表格/区域」（注意勾选「我的表格有标题」）
进入Power Query编辑器后，找到包含超链接的列，右键→「添加列」→「自定义列」
在弹出的窗口里输入公式（把链接列替换成你实际的列名）：
```
= "[" & [链接列] & "](" & [链接列][Address] & ")"
```
点击「确定」后，删除原来的超链接列，只保留新生成的自定义列
点击「关闭并上载」，把处理后的数据导出到新工作表，再用「另存为」导出CSV即可。