如何使用 .NET 将 Excel 中的格式化单元格复制到 Word 中的表格单元格? [英] How to copy a formatted cell in Excel to a table cell in Word using .NET?

问题描述

我正在尝试将单元格从 Excel 2003(或 2007)电子表格一次一个复制到 Word 2003(或 2007)表格.我希望代码与版本无关，因此我使用后期绑定.需要保留 Excel 单元格内容的格式，例如颜色、下划线、删除线.我的方法是使用 Word 文档作为模板.它在顶部有一个表格，我可以将其复制到文档的末尾，根据需要添加行，并使用 Excel 电子表格中的数据填充单词表格单元格.不幸的是，所有格式都消失了.我得到的只是文本本身.

I'm attempting to copy cells, one at a time, from an Excel 2003 (or 2007) spreadsheet to a Word 2003 (or 2007) table. I'd like the code to be version-agnostic, and so am using late binding. The formatting of the contents of the Excel cell, such as color, underline, strike-through, needs to be preserved. My approach is to use a Word doc as a template. It has a table at the top which I can copy to the end of the doc, add rows as needed, and fill in the word table cells with the data from the excel spreadsheet. Unfortunately, all the formatting disappears. All I get is the text itself.

推荐答案

想通了.事实证明比预期的要容易.

Figured it out. Turns out to be easier than expected.

Dim appExcel As Excel.Application
Dim thisWorkbook As Excel.Workbook
Dim thisWorksheet As Excel.Worksheet

appExcel = CType(CreateObject("Excel.Application"), Excel.Application)
thisWorkbook = appExcel.Workbooks.Open("Excelfilename.xls")
thisWorksheet = CType(thisWorkbook.ActiveSheet, Excel.Worksheet)

Dim appWord As Word.Application
Dim thisDoc As Word.Document
Dim thisWordTable As Word.Table

' Use a template word doc that has a table in it.

appWord = CType(CreateObject("Word.Application"), Word.Application)
thisDoc = appWord.Documents.OpenNoRepairDialog("templateWordFileName.doc")
thisDoc.SaveAs("outputDocFileName.doc")

' Get a reference to the table.
thisWordTable = thisDoc.Tables(0)

' Copy data from excel to this table.
CType(thisWorksheet.Cells(5, 1), Excel.Range).Copy()
thisWordTable.Cell(1, 2).Select()
appWord.Selection.Paste()

thisDoc.Save()
thisDoc.Close()
appWord.Quit()

thisWorkbook.Close(False)   ' Don't save any changes to workbook.
appExcel.Quit()

这篇关于如何使用 .NET 将 Excel 中的格式化单元格复制到 Word 中的表格单元格?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！