Изменить встроенный объект Excel внутри документа Word - PullRequest
Новая
       12

Изменить встроенный объект Excel внутри документа Word

2 голосов
/ 05 ноября 2010

Мне нужен пример кода или даже сторонний объект, который позволит мне получить объект Excel, встроенный в слово doc.Я уже пробовал Aspose, и у них пока нет возможностей.Кто-нибудь делал это или вы знаете о стороннем объекте, который будет?

Ответы [ 2 ]

3 голосов
/ 06 ноября 2010

Хорошо, я сделал это! Я ценю ссылку, опубликованную Remou. Это оказало некоторую поддержку после того, как я преодолел первоначальное препятствие ...

Вот мой код: 

        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")
1 голос
/ 05 ноября 2010

Вы можете найти некоторую информацию здесь: VBScript и многоуровневый OLE?

...