Hallo Leute,
vermutlich sehen ich den Wald vor lauter Bäume nicht
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
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
Ciao, Bitfox