无需Interop，通过VB.Net编程刷新Excel数据连接

首先明确：Open XML SDK仅负责读写Excel文件的底层格式，无法直接触发数据刷新操作（这需要Excel应用程序的运行时引擎执行）。以下是两种可行的替代方案：

方案1：修改Excel文件，设置打开时自动刷新连接 #

通过Open XML调整连接属性，让用户打开Excel文件时自动触发SQL数据刷新。这是无需依赖Excel运行时的间接实现方式。

VB.Net代码示例 #

Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Spreadsheet

Public Sub SetRefreshOnLoadForSqlConnection(ByVal excelFilePath As String)
    Using spreadsheetDocument As SpreadsheetDocument = SpreadsheetDocument.Open(excelFilePath, True)
        Dim workbookPart As WorkbookPart = spreadsheetDocument.WorkbookPart
        If workbookPart Is Nothing Then Return

        For Each connectionsPart As ConnectionsPart In workbookPart.GetPartsOfType(Of ConnectionsPart)()
            Dim connections As Connections = connectionsPart.Connections
            For Each connection As Connection In connections.Elements(Of Connection)()
                ' 筛选SQL Server相关的OLE DB/ODBC连接
                If connection.Type.Value = ConnectionValues.OleDb OrElse connection.Type.Value = ConnectionValues.Odbc Then
                    ' 开启打开时自动刷新
                    connection.RefreshOnLoad = True

                    ' 可选：更新SQL查询语句
                    Dim oledbConnection As OleDbConnection = connection.Descendants(Of OleDbConnection)().FirstOrDefault()
                    If oledbConnection IsNot Nothing Then
                        oledbConnection.CommandText = "SELECT * FROM YourTargetTable"
                    End If
                End If
            Next
            connectionsPart.Connections.Save()
        Next
        workbookPart.Workbook.Save()
    End Using
End Sub

说明 #

• 该代码修改Excel文件的连接配置，标记为打开时自动刷新。用户打开文件后，Excel会自动连接SQL Server并同步最新数据。
• 若需要调整查询逻辑，可直接修改OleDbConnection的CommandText属性更新SQL语句。

方案2：使用第三方库直接触发刷新（无需Interop） #

如果需要在代码中主动执行刷新（不依赖用户打开文件），可以使用支持Excel运行时操作的第三方库，例如Aspose.Cells（商业软件，需授权），它无需安装Excel即可处理数据刷新：

VB.Net代码示例（Aspose.Cells） #

Imports Aspose.Cells

Public Sub RefreshSqlConnectionWithAspose(ByVal excelFilePath As String)
    Dim workbook As New Workbook(excelFilePath)
    ' 根据实际索引获取目标SQL连接
    Dim targetConnection As Connection = workbook.DataConnections(0)
    ' 执行数据刷新
    workbook.RefreshData(targetConnection)
    ' 保存刷新后的文件
    workbook.Save(excelFilePath)
End Sub

说明 #

• Aspose.Cells内置独立的数据连接处理引擎，无需依赖Excel应用程序或Interop组件，可直接在代码中完成数据库连接、数据查询和刷新操作。

关键提示 #

Open XML本身不具备数据刷新的执行能力，因为这涉及到数据库连接、数据查询等运行时操作，必须依赖Excel引擎或第三方库的运行时支持。上述方案可根据需求选择：若只需文件打开时自动更新，方案1足够；若需代码主动触发刷新，方案2更合适。

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