Der folgende VBA Tipp zeigt, wie man in einem MS Word Dokument Zugriff auf ein eingebundenes Excel Objekt / Container bekommt.
Dabei wird auf verschiedene Arbeitsblätter zugegriffen.
Der Tipp geht davon aus, dass das Excel Objekt das erste eingebundene Objekt in der Worddatei ist.
Im VBA Editor muss über Extras => Verweise ein Verweis auf Excel gesetzt werden.
In dem Beispiel wir in der ersten Arbeitsmappe im Feld A1 das aktuelle Datum und die aktuelle Uhrzeit geschrieben.
Als zweites wird eine Kopie der Arbeitsmappe 1 nach der Arbeitsmappe 1 eingefügt.
|
1 |
<span class="lnum"> 1: </span><span class="kwrd">Sub</span> Zugriff_auf_Excel_Object() |
|
1 |
<span class="lnum"> 2: </span> <span class="kwrd">Dim</span> oWordOLEFormat <span class="kwrd">As</span> Word.OLEFormat |
|
1 |
<span class="lnum"> 3: </span> <span class="kwrd">Dim</span> oExcelWorkbook <span class="kwrd">As</span> Excel.workbook |
|
1 |
<span class="lnum"> 4: </span>  |
|
1 |
<span class="lnum"> 5: </span> <span class="kwrd">Set</span> oWordOLEFormat = ActiveDocument.InlineShapes(1).OLEFormat |
|
1 |
<span class="lnum"> 6: </span>  |
|
1 |
<span class="lnum"> 7: </span> oWordOLEFormat.DoVerb wdOLEVerbOpen |
|
1 |
<span class="lnum"> 8: </span>  |
|
1 |
<span class="lnum"> 9: </span> <span class="kwrd">Set</span> oExcelWorkbook = oWordOLEFormat.<span class="kwrd">Object</span> |
|
1 |
<span class="lnum"> 10: </span> oExcelWorkbook.Application.Visible = <span class="kwrd">False</span> |
|
1 |
<span class="lnum"> 11: </span>  |
|
1 |
<span class="lnum"> 12: </span> <span class="rem">'Beispielaktion 1: Datum in erstes Arbeitsblatt schreiben </span> |
|
1 |
<span class="lnum"> 13: </span> <span class="kwrd">With</span> oExcelWorkbook.Sheets(1) |
|
1 |
<span class="lnum"> 14: </span> .Range(<span class="str">"A1"</span>) = Now |
|
1 |
<span class="lnum"> 15: </span> <span class="kwrd">End</span> <span class="kwrd">With</span> |
|
1 |
<span class="lnum"> 16: </span>  |
|
1 |
<span class="lnum"> 17: </span> <span class="rem">'Beispielaktion 2: Arbeitsblatt kopieren und nach dem ersten Arbeitsblatt einfügen </span> |
|
1 |
<span class="lnum"> 18: </span> oExcelWorkbook.Sheets(1).Copy After:=oExcelWorkbook.Sheets(1) |
|
1 |
<span class="lnum"> 19: </span> oExcelWorkbook.Close |
|
1 |
<span class="lnum"> 20: </span>  |
|
1 |
<span class="lnum"> 21: </span> <span class="kwrd">Set</span> oExcelWorkbook = <span class="kwrd">Nothing</span> |
|
1 |
<span class="lnum"> 22: </span> <span class="kwrd">Set</span> oWordOLEFormat = <span class="kwrd">Nothing</span> |
|
1 |
<span class="lnum"> 23: </span><span class="kwrd">End</span> Sub |
