修改Word文档中的embedded式Excel对象
我需要示例代码，甚至是第三方对象，这些对象将允许我访问embeddedWord文档中的Excel对象。 我已经试过了Aspose，他们还没有能力。 有没有人做过或者你知道第三方的对象？
好吧，我做到了！ 我很欣赏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") 你可能会在这里find一些信息： VBScript和多级OLE？