VBScript和多级OLE？

我做了一个vbscript来定位一些电脑，并对它们进行wmi查询，而我的老板想把这些数据放在一个文档里面。 问题是这个文档是一个Microsoft Word文档，里面embedded了excel对象。 现在我已经search了广泛和远在谷歌任何方式来定位和操纵一个对象内部和OLE对象，但我似乎无处可去。

所以我的问题是，如果有人有这样的代码，我可以看看，或者一个教程，甚至有可能甚至告诉我，如果这是可能的？

Answer 1

如图所示，一些基于图表是embedded式Excel对象的注释。

''http://msdn.microsoft.com/en-us/library/aa213725(office.11).aspx ''http://msdn.microsoft.com/en-us/library/aa174298(office.11).aspx Dim wd ''As Word.Applicatio Dim shs ''As InlineShapes Dim objChart ''As Excel.Chart Dim objSheet ''As Excel.Worksheet Dim objOLE ''As Excel.Workbook Dim NewSrs ''As Series Set wd=CreateObject("Word.Application") wd.Documents.Open "C:\Docs\Doc1.docm" wd.Visible=True Set shs = wd.ActiveDocument.InlineShapes ''Just the one shape in this example shs(1).OLEFormat.Activate ''The OLE Object contained Set objOLE = shs(1).OLEFormat.Object ''The chart and worksheet Set objChart = objOLE.Charts("chart1") Set objSheet = objOLE.Worksheets("sheet1") objSheet.Range("e1") = "NewData" objSheet.Range("e2") = 11 objSheet.Range("e3") = 12 Set NewSrs = objChart.SeriesCollection.NewSeries With NewSrs .Name = "=Sheet1!e1" .Values = "=Sheet1!e2:e3" End With 

MS Graph的注释

 ''VBA: Reference: Microsoft Graph xx Object Library ''Graph Object Model: http://msdn.microsoft.com/en-us/library/aa198537(office.10).aspx Dim shs ''As InlineShapes Dim objDS ''As Graph.DataSheet Dim objOLE ''As Graph.Chart Set shs = ActiveDocument.InlineShapes ''The OLE Object contained shs(3).OLEFormat.Activate Set objOLE = shs(3).OLEFormat.Object Set objDS = objOLE.Application.DataSheet ''00=Corners, Row titles = 01,02 ... ''Column titles = A0, B0 ... ''Cells = A1, B1 ... E9 ... objDS.Range("E0") = "New" objDS.Range("E1") = 11 objDS.Range("E2") = 12 objDS.Range("E3") = 9 Set objDS = Nothing Set objOLE = Nothing Set shs = Nothing