Question

我正在尝试阅读Word文档中嵌入的Excel工作表。打开Word文档后该怎么办？这些是我正在使用的参考（Excel，Word）-我还需要使用其他参考吗？

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

Excel.Application xlApp;
Excel.Workbook xlWorkBook;
Excel.Worksheet xlWorkSheet;
Excel.Range range;

Word.Application wordApp;
Word.Document wordDoc;
Word.Range wordRange;

public TestCase Test()
{
   wordApp = new Word.Application();
   wordDoc = wordApp.Documents.Open(@"document");

   what next??
}

Answer 1

嵌入的文档在文档中以嵌入式形状表示，因此您可以通过以下方式访问它们：

Sub Extract()
    Dim num as Integer
    Dim AD as document
    Set AD = activedocument

    Dim numObjects As Integer
    numObjects = AD.InlineShapes.count

    MsgBox numObjects  ' prints "11"

    For num = 1 To numObjects    
        If AD.InlineShapes(num).Type = 1 Then
            'it's an embedded OLE type so open it.            
            AD.InlineShapes(num).OLEFormat.Open
        End If
    Next num
End Sub

Answer 2

为了与嵌入式工作表进行交互，必须Activate。

激活后，您就可以处理Excel.Workbook，Excel.Application和Excel.Worksheet和Excel.Range对象：

    static void Main()
    {
        Excel.Application xlApp;
        Excel.Workbook xlWorkBook;
        Excel.Worksheet xlWorkSheet;
        Excel.Range xlRange;

        Word.Application wordApp = new Word.Application();
        wordApp.Visible = true;
        Word.Document wordDoc = wordApp.Documents.Open(@"c:\debug\word-excel.docm");

        // activate the object before you can interact with it
        wordDoc.InlineShapes[1].OLEFormat.Activate();

        xlWorkBook = wordDoc.InlineShapes[1].OLEFormat.Object;
        xlApp = xlWorkBook.Parent;
        xlWorkSheet = xlWorkBook.Worksheets[1];
        xlRange = xlWorkSheet.Range["A1:D10"];
    }

如何使用Interop和C＃读取Word文档中嵌入的Excel？

2 个答案: