2

这是我在这里的第一个问题。我正在使用 Visual Studio 2010，我想为销售目录设计一个 Excel 插件。它有两种形式，我让其中一种工作，但另一种没有。我想要实现的是我通过插件打开一个 Windows 表单，并通过表单从我的 Access 数据库中获取数据。我将数据导入数据网格，然后将数据导出到 Excel。

我让这部分工作，但我的下一个表格有问题。在该表单中，我想打开一个 Word 模板（当我按下按钮时），然后将打开的 Excel 文件中的数据传输到我的 Word 文档中。有谁知道这样做的最佳方法是什么？我使用 OleDBConnection 将数据从数据库获取到数据网格。我正在为 Office 2007 设计这个，我正在用 C# 编程。

这是我的代码的一部分。我使用这部分将 Excel 文件中的数据导入 DataGrid，但我希望能够将这些数据导入 WordDocument。有谁知道这样做的最佳方法是什么。

DataSet da = new DataSet();
OleDbDataAdapter adapter = new OleDbDataAdapter();
string workbookPath = "C:myfile.xlsx";

Excel.Workbook wb = Globals.ThisAddIn.Application.Workbooks.Add(workbookPath);
string ConnectionString =
    @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + workbookPath
    + @";Extended Properties=""Excel 12.0 Macro;HDR=Yes;ImpoertMixedTypes=Text;TypeGuessRows=0""";

OleDbConnection conn = new OleDbConnection(ConnectionString);
string strCmd = " select * from [Sheet1$A1:D4]"; //Or some other range
OleDbCommand cmd = new OleDbCommand(strCmd, conn);

conn.Open();
da.Clear();
adapter.SelectCommand = cmd;
adapter.Fill(da);
dataGridView1.DataSource = da.Tables[0];

提前致谢。

4

3 回答 3

1

好的，所以在 jmh_gr 的帮助下，我成功地完成了这项工作。这就是它的外观。它基本上完成了它应该做的事情，从 Excel 复制数据并将其粘贴到 Word。

object fileName = "C:\\Template_1.docx";
string workbookPath = "C:\\Book1.xlsx";
Excel.Workbook wb = Globals.ThisAddIn.Application.Workbooks.Add(workbookPath);
Excel.Worksheet ws = wb.Worksheets[1];
ws.Range["A1:D4"].Copy();

object missing = System.Reflection.Missing.Value;
Word.Application wordApp = Marshal.GetActiveObject("Word.Application") as Word.Application;
Word.Document doc;
Word.Range rng;
doc = wordApp.ActiveDocument;
rng = wordApp.Selection.Range;

object objDataTypeMetafile = Word.WdPasteDataType.wdPasteRTF;
rng.PasteSpecial(ref missing, ref missing,
ref missing, ref missing, ref objDataTypeMetafile,
ref missing, ref missing);
于 2012-06-28T11:22:52.167 回答
0

由于您在两个 Office 应用程序之间进行复制，我建议您使用内置的PasteExcelTable Method。只需添加对 Microsoft Word 1x.0 对象库的引用：

using Word = Microsoft.Office.Interop.Word;
...

string workbookPath = @"C:\temp\example.xlsx";
Excel.Workbook wb = Globals.ThisAddIn.Application.Workbooks.Add(workbookPath);
Excel.Worksheet ws = wb.Worksheets[1];
Word.Application wdApp = new Word.Application();
Word.Document wdDoc = wdApp.Documents.Add();
ws.Range["A1:D4"].Copy();
wdDoc.ActiveWindow.Selection.PasteExcelTable(false, false, false);
于 2012-06-25T18:39:04.397 回答
0

按照下面的代码将活动单元格从 Excel 复制到 Word（源格式将保持不变）

var applicationWord = new Microsoft.Office.Interop.Word.Application();
            applicationWord.Visible = true;
            Word.Document wordDoc = applicationWord.Documents.Add();
            var cells = getCells();
            var last_row = cells.Row;
            var last_col = cells.Column;
            var firstcell = activeWorksheet1.get_Range("A1", Type.Missing);
            var lastcell = (Excel.Range)activeWorksheet1.Cells[last_row, last_col];

            activeWorksheet.Range[firstcell, lastcell].Copy(); // All Active cell will get copied
            wordDoc.ActiveWindow.Selection.PasteExcelTable(false, false, false);

下面的代码来获取工作表中的活动单元格：

dynamic getCells()
        {
        activeWorksheet1 = ((Excel.Worksheet)Application.ActiveSheet);
        var CellZ = activeWorksheet1.Cells.Find(
                "*",
                System.Reflection.Missing.Value, Excel.XlFindLookIn.xlValues,
                Excel.XlLookAt.xlWhole,
                Excel.XlSearchOrder.xlByRows,
                Excel.XlSearchDirection.xlPrevious,
                false,
                System.Reflection.Missing.Value,
                System.Reflection.Missing.Value);
            return CellZ;
        }
于 2015-12-17T15:48:58.643 回答