vb.net - para - Modificar un objeto incrustado de Excel dentro de un documento de Word

objetos incrustados en word

Question

Necesito un código de ejemplo o incluso un objeto de un tercero que me permita acceder a un objeto de Excel incrustado en un documento de Word. Ya he probado Aspose y aún no tienen las capacidades. ¿Alguien lo ha hecho o sabe de un objeto de terceros que lo hará?

Answer 1

Ok, lo hice! Aprecio el enlace publicado por Remou. Sí proporcionó algo de apoyo después de superar el obstáculo inicial ...

Aquí está mi código:

        WordApp.Documents.Open("C:/Report.docx")
        Dim iOLE As Int16
        Dim oSheet As Object
        Dim oOLE As Object
        For iOLE = 1 To WordApp.ActiveDocument.Content.ShapeRange.Count ''These are the embedded objects
            If Not WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat Is Nothing Then ''- make sure it is OLE
                If WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat.ProgID.Contains("Excel") Then ''- make sure it''s an Excel object
                    ''- I have found an Excel Object!!!
                    WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat.Activate()
                    oOLE = WordApp.ActiveDocument.Content.ShapeRange(iOLE).OLEFormat.Object
                    oSheet = oOLE.Worksheets(1) ''- I can assert that each of them has at least one sheet and that I need the first one...
                    oSheet.Range("BB3") = "I did it!" ''- setting some text to verify I made it in...

                End If

            End If

        Next

        WordApp.ActiveDocument.SaveAs("c:/temp/report_test.docx")

Answer 2

Puede encontrar información aquí: VBScript y OLE multinivel