I need example code or even a 3rd party object that will allow me to get to an excel object embedded in a word doc. I have already tried Aspose and they do not have the capabilities yet. Has anyone done it or do you know of a 3rd party object that will?

解決方案

Ok, i did it! I appreciate the link posted by Remou. It did provide some support after I got past the initial hurdle...

Here is my code:

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")

總結(jié)

以上是生活随笔為你收集整理的word2013插入excel对象报错_修改Word文档中嵌入的Excel对象的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。