如何在Excel中展示SQL Server Image类型列的订单附件？

我们可以通过两种方式实现需求：一是将二进制附件导出为本地临时文件并创建Excel链接；二是生成Data URI直接在浏览器打开，无需生成本地文件。

方案1：导出为本地临时文件并创建Excel链接 #

通过VBA将Image字段的二进制数据保存为临时文件，然后在Excel单元格中创建指向该文件的超链接。

VBA代码示例 #

Sub DisplayAttachmentsFromRecordset()
    Dim rs As ADODB.Recordset
    Dim ws As Worksheet
    Dim tempPath As String
    Dim fileNum As Integer
    Dim binaryData As Variant
    Dim i As Integer
    
    ' 设置目标工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Cells.Clear
    ' 写入表头
    ws.Range("A1:C1") = Array("订单号", "附件链接", "文件类型")
    
    ' 初始化记录集（替换为你的数据库连接逻辑）
    Set rs = New ADODB.Recordset
    rs.Open "SELECT [Order], Attachment, FileType FROM OrderTable", YourConnectionObject
    
    i = 2 ' 从第二行开始写入数据
    tempPath = Environ("TEMP") & "\OrderAttachments\" ' 临时文件夹路径
    ' 不存在则创建临时文件夹
    If Dir(tempPath, vbDirectory) = "" Then MkDir tempPath
    
    Do While Not rs.EOF
        ' 生成唯一临时文件名
        Dim tempFileName As String
        tempFileName = tempPath & "Order_" & rs("[Order]") & rs("FileType")
        
        ' 读取Image字段的二进制数据
        binaryData = rs("Attachment").Value
        
        ' 将二进制数据写入本地文件
        fileNum = FreeFile()
        Open tempFileName For Binary Access Write As #fileNum
            Put #fileNum, 1, binaryData
        Close #fileNum
        
        ' 在Excel单元格创建超链接
        ws.Hyperlinks.Add Anchor:=ws.Range("B" & i), Address:=tempFileName, _
            TextToDisplay:="查看附件"
        
        ' 填充其他列数据
        ws.Range("A" & i).Value = rs("[Order]")
        ws.Range("C" & i).Value = rs("FileType")
        
        i = i + 1
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    MsgBox "附件链接生成完成"
End Sub

方案2：生成Data URI直接在浏览器打开 #

将二进制数据转换为Base64编码，拼接成Data URI，通过Excel超链接打开浏览器直接查看附件，无需生成本地文件。

VBA代码示例 #

' 需提前添加引用：工具->引用->勾选"Microsoft XML, v6.0"
Sub GenerateDataURILinks()
    Dim rs As ADODB.Recordset
    Dim ws As Worksheet
    Dim binaryData As Variant
    Dim base64Str As String
    Dim mimeType As String
    Dim dataURI As String
    Dim i As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Cells.Clear
    ws.Range("A1:C1") = Array("订单号", "在线查看链接", "文件类型")
    
    ' 初始化记录集（替换为你的数据库连接逻辑）
    Set rs = New ADODB.Recordset
    rs.Open "SELECT [Order], Attachment, FileType FROM OrderTable", YourConnectionObject
    
    i = 2
    Do While Not rs.EOF
        ' 读取Image字段的二进制数据
        binaryData = rs("Attachment").Value
        
        ' 将二进制数据转为Base64编码
        base64Str = EncodeBase64(binaryData)
        
        ' 根据文件类型匹配对应MIME类型
        Select Case LCase(rs("FileType"))
            Case ".png": mimeType = "image/png"
            Case ".pdf": mimeType = "application/pdf"
            Case ".jpg", ".jpeg": mimeType = "image/jpeg"
            ' 可扩展添加更多文件类型的MIME映射
            Case Else: mimeType = "application/octet-stream"
        End Select
        
        ' 拼接成Data URI格式
        dataURI = "data:" & mimeType & ";base64," & base64Str
        
        ' 在Excel单元格创建超链接
        ws.Hyperlinks.Add Anchor:=ws.Range("B" & i), Address:=dataURI, _
            TextToDisplay:="在线查看"
        
        ' 填充其他列数据
        ws.Range("A" & i).Value = rs("[Order]")
        ws.Range("C" & i).Value = rs("FileType")
        
        i = i + 1
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    MsgBox "在线查看链接生成完成"
End Sub

' 二进制转Base64编码的工具函数
Function EncodeBase64(inputData As Variant) As String
    Dim xmlDoc As MSXML2.DOMDocument
    Dim xmlNode As MSXML2.IXMLDOMElement
    
    Set xmlDoc = New MSXML2.DOMDocument
    Set xmlNode = xmlDoc.createElement("b64")
    
    xmlNode.dataType = "bin.base64"
    xmlNode.nodeTypedValue = inputData
    
    EncodeBase64 = xmlNode.Text
End Function

注意事项 #

• 替换代码中的YourConnectionObject为实际的ADODB数据库连接实例。
• 方案1的临时文件会占用本地磁盘空间，可定期清理Environ("TEMP")\OrderAttachments\目录。
• 方案2的Data URI存在长度限制，较大文件（如超过5MB）可能无法在浏览器正常加载，此时优先选择方案1。

内容的提问来源于stack exchange，提问作者Jack Morris