如何在使用oledb导出的excel文件上应用模板？

问题描述

我已使用 oledb 将数据导出到 excel 文件中，但无法使用互操作或任何第三方库。这是我的代码：

''' <summary>
''' Export datagridview's data contained in an data table to excel file
''' </summary>
''' <param name="dataTable">DataGridView's datatable</param>
''' <param name="XLPath"> Excel File Path with xlsx extension</param>

 Private Shared Sub ExportToExcel(ByVal dataTable As DataTable,ByVal XLPath As String)
 Dim connStr = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" + XLPath + ";Extended 
  Properties='Excel 8.0;HDR = YES';"
  Using connection As OleDbConnection = New OleDbConnection(connStr)
     connection.open()
       Using command As OleDbCommand = New OleDbCommand()
            command.Connection = connection
            Dim columnNames As New List(Of String)
            Dim tableName As String = dataTable.TableName
            If dataTable.Columns.Count <> 0 Then
                For Each dataColumn As DataColumn In dataTable.Columns
                     columnNames.Add(dataColumn.ColumnName)
                 Next
            Else 
               tableName = If(Not String.IsNullOrWhiteSpace(dataTable.TableName),dataTable.TableName,Guid.NewGuid().ToString())
               command.CommandText = $"CREATE TABLE [{tableName}] ({String.Join(",",columnNames.[Select](Function(c) $"[{c}] VARCHAR").ToArray())});"
                     command.ExecuteNonQuery()
               End If
                If dataTable.Rows.Count <> 0 Then
                   For Each row As DaTarow In dataTable.Rows
                          Dim rowValues As List(Of String) = New List(Of String)()
                          For Each column As DataColumn In dataTable.Columns
                                 rowValues.Add(If((row(column) IsNot nothing AndAlso Not row(column).Equals(dbnull.Value)),row(column).ToString(),String.Empty))
                          Next
                          command.CommandText = $"INSERT INTO [{tableName}]({String.Join(",columnNames.[Select](Function(c) $"[{c}]"))}) VALUES ({String.Join(",rowValues.[Select](Function(r) $"'{r}'").ToArray())});"
                          command.ExecuteNonQuery()
                     Next
                End If
         End Using
        connection.Close()
       End Using
   End Sub

excel 文件已成功填充，但现在我必须在 xlsx 文件中应用给我的模板，我不能在这里使用任何第三方库。我怎么能够在excel文件中应用模板？有什么建议么？提前致谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

c#c#excel excel oledb