Hallo Leute,
vermutlich sehen ich den Wald vor lauter Bäume nicht![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
Ich kann zwar mit folgenden eine eingebettet Tabelle bearbeiten aber wie erzeuge ich eine Neue?
Sub DisplayInExcel()
Dim oWordDoc As Word.Document
oWordDoc = Globals.ThisAddIn.Application.ActiveDocument
Dim oOLE As Excel.Workbook
oOLE = Nothing
Dim oSheet As Excel.Worksheet
oSheet = Nothing
Dim ils As Word.InlineShapes
ils = oWordDoc.InlineShapes
'oOLE.Application.Workbooks.Add(1)
ils(1).OLEFormat.Activate()
oOLE = ils(1).OLEFormat.Object
oSheet = oOLE.Worksheets(1)
oSheet.Range("A1").Value = " YES"
End Sub
End Class
Grüße aus Bayern,
Bitfox
vermutlich sehen ich den Wald vor lauter Bäume nicht
![;)](https://www.vb-paradise.de/wcf/images/smilies/wink.png)
Ich kann zwar mit folgenden eine eingebettet Tabelle bearbeiten aber wie erzeuge ich eine Neue?
![?(](https://www.vb-paradise.de/wcf/images/smilies/confused.png)
Sub DisplayInExcel()
Dim oWordDoc As Word.Document
oWordDoc = Globals.ThisAddIn.Application.ActiveDocument
Dim oOLE As Excel.Workbook
oOLE = Nothing
Dim oSheet As Excel.Worksheet
oSheet = Nothing
Dim ils As Word.InlineShapes
ils = oWordDoc.InlineShapes
'oOLE.Application.Workbooks.Add(1)
ils(1).OLEFormat.Activate()
oOLE = ils(1).OLEFormat.Object
oSheet = oOLE.Worksheets(1)
oSheet.Range("A1").Value = " YES"
End Sub
End Class
Grüße aus Bayern,
Bitfox
Ciao, Bitfox ![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)