Word控件Spire.Doc 【Table】教程(10)：如何在 C#、VB.NET 中将嵌入式 Excel 工作表转换为 Word 表格

叁歲伎倆 2023-09-23 23:56 20阅读 0赞

[Spire.Doc for .NET][]是一款专门对 Word 文档进行操作的 .NET 类库。在于帮助开发人员无需安装 Microsoft Word情况下，轻松快捷高效地创建、编辑、转换和打印 Microsoft Word 文档。拥有近10年专业开发经验Spire系列办公文档开发工具，专注于创建、编辑、转换和打印Word/PDF/Excel等格式文件处理，小巧便捷。

[Spire.Doc for.NET 最新下载（qun：767755948）![icon-default.png?t=N0U7][icon-default.png_t_N0U7]https://www.evget.com/product/3368/download][Spire.Doc for .NET]

在日常工作中，我们可能会收到Word文档，其中有时会包含嵌入的Excel对象（工作表），我们需要将嵌入的Excel工作表转换为Word表格，以便我们可以方便地更改日期或格式化表格样式。在本文中，您将学习如何在 C\#、VB.NET 中使用 Spire.Doc 和 Spire.XLS 将嵌入式 Excel 工作表转换为 Word 表格。

首先，您需要下载 Spire.Office，因为 Spire.Doc 和 Spire.XLS 将在同一个程序中使用。在您的 VS 项目中添加 Spire.Doc.dll 和 Spire.XLS.dll 作为引用。然后按照下面的程序指导完成这项工作。

**第一步**：新建一个Word文档，载入示例文件。从节中获取包含 Excel 对象的段落。初始化一个新的数据表。

>     Document doc = new Document("Sample.docx", Spire.Doc.FileFormat.Docx2010);
>     Section section = doc.Sections[0];
>     Paragraph para = section.Paragraphs[2];
>     DataTable dt = new DataTable();

**第二步**：遍历段落中的每一个DocumentObject，用IF语句判断DocumentObject是否为OLE对象，用另一个IF语句判断OLE对象类型是否为Excel.Sheet.12。如果是，则通过**LoadFromStrem()**将 OLE 对象的数据保存到工作簿中。然后将数据从工作表导出到数据表。

>     foreach (DocumentObject obj in para.ChildObjects)
>     {
>     if (DocumentObjectType.OleObject == obj.DocumentObjectType)
>     {
>     DocOleObject dObj = obj as DocOleObject;
>     if (dObj.ObjectType == "Excel.Sheet.12")
>     {
>     Workbook wb = new Workbook();
>     wb.LoadFromStream(new MemoryStream(dObj.NativeData));
>     Worksheet ws = wb.Worksheets[0];
>     dt = ws.ExportDataTable(ws.AllocatedRange, false);
>     }
>     }
>     }

**第三步：**新建一个Word表格，根据datatable的行列设置行号和列号。将数据从数据表导出到 Word 表。

>     Table table = section.AddTable(true);
>     table.ResetCells(dt.Rows.Count, dt.Columns.Count);
>     
>     for (int i = 0; i < dt.Rows.Count; i++)
>     {
>     for (int j = 0; j < dt.Columns.Count; j++)
>     {
>     string text = dt.Rows[i][j] as string;
>     table.Rows[i].Cells[j].AddParagraph().AppendText(text);
>     }
>     }

**第 四 步：**保存文件。

>     doc.SaveToFile("Result.docx", Spire.Doc.FileFormat.Docx2010);

**结果：**

![2f85451c3e8b4fb7b054cfffd1072257.png][]

**完整代码**：

**\[C＃\]**

>     using Spire.Doc;
>     using Spire.Doc.Documents;
>     using Spire.Doc.Fields;
>     using Spire.Xls;
>     using System.Data;
>     using System.IO;
>     namespace ApplyTableStyles
>     {
>     class Program
>     {
>     
>     static void Main(string[] args)
>     {
>     
>     Document doc = new Document("Sample.docx", Spire.Doc.FileFormat.Docx2010);
>     Section section = doc.Sections[0];
>     Paragraph para = section.Paragraphs[2];
>     DataTable dt = new DataTable();
>     
>     foreach (DocumentObject obj in para.ChildObjects)
>     {
>     if (DocumentObjectType.OleObject == obj.DocumentObjectType)
>     {
>     DocOleObject dObj = obj as DocOleObject;
>     if (dObj.ObjectType == "Excel.Sheet.12")
>     {
>     Workbook wb = new Workbook();
>     wb.LoadFromStream(new MemoryStream(dObj.NativeData));
>     Worksheet ws = wb.Worksheets[0];
>     dt = ws.ExportDataTable(ws.AllocatedRange, false);
>     }
>     }
>     }
>     
>     Table table = section.AddTable(true);
>     table.ResetCells(dt.Rows.Count, dt.Columns.Count);
>     
>     for (int i = 0; i < dt.Rows.Count; i++)
>     {
>     for (int j = 0; j < dt.Columns.Count; j++)
>     {
>     string text = dt.Rows[i][j] as string;
>     table.Rows[i].Cells[j].AddParagraph().AppendText(text);
>     }
>     }
>     
>     doc.SaveToFile("Result.docx", Spire.Doc.FileFormat.Docx2010);
>     }
>     }
>     }

**\[VB.NET\]**

>     Imports Spire.Doc
>     Imports Spire.Doc.Documents
>     Imports Spire.Doc.Fields
>     Imports Spire.Xls
>     Imports System.Data
>     Imports System.IO
>     Namespace ApplyTableStyles
>     Class Program
>     
>     Private Shared Sub Main(args As String())
>     
>     Dim doc As New Document("Sample.docx", Spire.Doc.FileFormat.Docx2010)
>     Dim section As Section = doc.Sections(0)
>     Dim para As Paragraph = section.Paragraphs(2)
>     Dim dt As New DataTable()
>     
>     For Each obj As DocumentObject In para.ChildObjects
>     If DocumentObjectType.OleObject = obj.DocumentObjectType Then
>     Dim dObj As DocOleObject = TryCast(obj, DocOleObject)
>     If dObj.ObjectType = "Excel.Sheet.12" Then
>     Dim wb As New Workbook()
>     wb.LoadFromStream(New MemoryStream(dObj.NativeData))
>     Dim ws As Worksheet = wb.Worksheets(0)
>     dt = ws.ExportDataTable(ws.AllocatedRange, False)
>     End If
>     End If
>     Next
>     
>     Dim table As Table = section.AddTable(True)
>     table.ResetCells(dt.Rows.Count, dt.Columns.Count)
>     
>     For i As Integer = 0 To dt.Rows.Count - 1
>     For j As Integer = 0 To dt.Columns.Count - 1
>     Dim text As String = TryCast(dt.Rows(i)(j), String)
>     table.Rows(i).Cells(j).AddParagraph().AppendText(text)
>     Next
>     Next
>     
>     doc.SaveToFile("Result.docx", Spire.Doc.FileFormat.Docx2010)
>     End Sub
>     End Class
>     End Namespace

以上便是如何在 C\#、VB.NET 中将嵌入式 Excel 工作表转换为 Word 表格，如果您有其他问题也可以继续浏览本系列文章，获取相关教程，你还可以给我留言或者加入我们的官方技术交流群。

[Spire.Doc for .NET]: https://www.evget.com/product/3368/download
[icon-default.png_t_N0U7]: https://csdnimg.cn/release/blog_editor_html/release2.2.2/ckeditor/plugins/CsdnLink/icons/icon-default.png?t=N0U7
[2f85451c3e8b4fb7b054cfffd1072257.png]: https://img-blog.csdnimg.cn/img_convert/2f85451c3e8b4fb7b054cfffd1072257.png