How to Read Excel Sheet embedded in Word Document using VBA
How to edit Embedded Objects (Excel Workbook) using Word VBA
In our previous posts we have seen how to Embedd an Word Document in Excel Object . Now let us try to read Excel spreadsheet embedded in Word document.
Excel Object Libarary Reference
You need to add a reference to the Excel Object Libary as shown above
The code loops through the available InlineShapes and activates them if they are Excel Spreadsheet. Then it is assigned to an Excel workbook object, which can be programatically handled.
Dim oWB As Excel.Workbook
Dim oIShape As InlineShape
For Each oIShape In ActiveDocument.InlineShapes
If InStr(1, oIShape.OLEFormat.ProgID, "Excel") Then
Set oWB = oIShape.OLEFormat.Object
oWB.Sheets(1).Range("A1").Value = "ProdID"
The code edits the value of the cell as shown below:
Edited Embedded Object using VBA