...... 我赞赏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: emp
eport_test.docx")