1

複数の Word 表を含むドキュメントがあります。それらを埋め込み Excel ワークシート (または COM オブジェクト) に変換する必要があります。以下を使用して、Word テーブルを Excel に「インポート」できました。

        Excel.Application xlApp = new Excel.Application();
        // Call the conversion tool
        for (int i = 1; i <= curDoc.Tables.Count; i++ )
        {
            Word.Table tbl = curDoc.Tables[i];
            Word.Range tblLoc = tbl.Range;



            // Used for debugging.
            xlApp.Visible = true;

            if (xlApp == null)
            {
                messageAlert = "Excel could not be started.  Check that your office installation and project references are correct.";
                break;
            }

            Excel.Workbook wb = xlApp.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
            Excel.Worksheet ws = (Excel.Worksheet)wb.Worksheets[1];


            if (ws == null)
            {
                messageAlert = "Worksheet could not be created.  Check that your office installation and project reference are correct.";
                break;
            }

            Word.Range rng = tbl.ConvertToText(Separator: ";", NestedTables: false);

            string sData = rng.Text;



            string[] rows = sData.Split('\r');

            int r = 1, c = 1;
            int numRows = rows.Count();
            int numCols = rows[0].Split(';').Count();


            foreach (string row in rows)
            {
                string[] cells = row.Split(';');
                foreach (string cell in cells)
                {
                    ws.Cells[r, c].Value = cell;
                    c += 1;
                }
                r += 1;
                c = 1;
            }

問題は、コンテンツをドキュメントにコピーするたびに、Excel ワークシートではなく新しい Word テーブルが作成されることです。Excel ワークシートを Word にインポートする方法、または表を直接 Excel ワークシートに変換する方法を教えてください。

4

1 に答える 1

1

これを行うには、まず Excel ワークシートを保存してから、OLEObject. 次に例を示します。

public void ConvertTables()
{
    string messageAlert = "";
    Word.Application curApp = Globals.ThisAddIn.Application;

    Word.Document curDoc = curApp.ActiveDocument;
    if (curDoc.Tables.Count > 0)
    {
        Excel.Application xlApp = new Excel.Application();

        //Used for debugging.
        //xlApp.Visible = true;

        //Call the conversion tool
        for (int i = 1; i <= curDoc.Tables.Count; i++ )
        {
            Word.Table tbl = curDoc.Tables[i];
            Word.Range tblLoc = tbl.Range;

            if (xlApp == null)
            {
                messageAlert = "Excel could not be started.  Check that your office installation and project references are correct.";
                break;
            }

            Excel.Workbook wb = xlApp.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
            Excel.Worksheet ws = (Excel.Worksheet)wb.Worksheets[1];


            if (ws == null)
            {
                messageAlert = "Worksheet could not be created.  Check that your office installation and project reference are correct.";
                break;
            }

            Word.Range rng = tbl.ConvertToText(Separator: ";", NestedTables: false);

            string sData = rng.Text;



            string[] rows = sData.Split('\r');

            int r = 1, c = 1;
            int numRows = rows.Count();
            int numCols = rows[0].Split(';').Count();


            foreach (string row in rows)
            {
                string[] cells = row.Split(';');
                foreach (string cell in cells)
                {
                    ws.Cells[r, c].Value = cell;
                    c += 1;
                }
                r += 1;
                c = 1;
            }

            ws.SaveAs("C:\\temp\\test.xlsx");
            rng.Text = "";
            rng.InlineShapes.AddOLEObject(ClassType: "Excel.Sheet.12", FileName: "C:\\temp\\test.xlsx");


            ws.Range["A1", ws.Cells[numRows, numCols]].Value = "";
            ws.SaveAs("C:\\Temp\\test.xlsx");
        }
        xlApp.Quit();

        messageAlert = "Tables converted";
    }
    else
    {
        // No tables found
        messageAlert = "No tables found within the document";
    }


    MessageBox.Show(messageAlert);

}
于 2013-09-19T19:56:06.747 に答える