Excel-Blatt in Word

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Excel-Blatt in Word
von: Petra
Geschrieben am: 24.10.2003 10:50:49

Hey,
wer weiß Rat...

Von einer Arbeitsmappe soll ein bestimmtes Tabellenblatt, automatisch nach dem Öffnen einer Word-Vorlage, eingefügt werden.

Z. B. so:
Word-Vorlage (z. B. Briefkopf) öffnen

jetzt:
evtl. über ein Makro - bestimmtes Excel-Tabellenblatt einfügen

Habe absolut keinerlei Vorstellung, wie ich das hinkriege......
Danke
Grüße Petra

Bild


Betrifft: AW: Excel-Blatt in Word
von: Armin
Geschrieben am: 24.10.2003 13:11:04

Hallo Petra,
füge im Word diese Anweisung in ein Makro ein.
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", FileName:= _
"D:\Beipiele\Mappe1.xls", LinkToFile:=False, DisplayAsIcon:=False

um das Makro aufzurufen sind auch verschiedene Möglichkeiten vorhanden. Die Einfachste das Makro einer Tastenkombination zuweisen.


Bild


Betrifft: AW: Excel-Blatt in Word
von: Dan
Geschrieben am: 24.10.2003 13:47:38

Petra,
und das Makro sollte man von Word aus starten konnen? Oder von Excel aus?
Folgender simpler Code zeigt wie man von Word aus Daten aus Excel, Workbook1, Sheet1, Range a1:c3 Werte in eine Zeile im Word kopieren kann. Ist nur ein Beispiel. Was brauchst du genau?

Dan [mailto dusek@cb.vakjc.cz]
----------------------------------------------------------------------------------------
Option Explicit

Public

Sub CopyExcelSheet()
    Dim ExcelApp As Object, Wrb As Object, Wsh As Object, Rng As Object, rCell As Variant
    
    On Error GoTo ErrH
    
    ' GetObject returns Referentz an eine laufende Instanz der Application
    ' Wenn diese Application nicht lauft, ersteht ein Error
    Set ExcelApp = GetObject(, "Excel.Application")
    Set Wrb = ExcelApp.workbooks(1)
    Set Wsh = Wrb.worksheets(1)
    Set Rng = Wsh.Range("a1:c3")
    
    For Each rCell In Rng.Cells
        Word.Application.Selection.TypeText rCell.Value
    Next rCell
    
    Exit Sub
    
ErrH:
    If (Err.Number = 429) Then
        MsgBox "Excel lauft nicht."
    Else
        MsgBox Err.Description
    End If
End Sub



Bild


Betrifft: Armin, Dan
von: Petra
Geschrieben am: 28.10.2003 10:33:45

Hallo Armin,
hallo Dan´,

Danke für die Info, bin erst heute wieder im "LANDE".
Werde es direkt mal versuchen.

Grüße Petra


Bild


Betrifft: AW: Danke, hat klappt!
von: Petra
Geschrieben am: 28.10.2003 15:19:43

Hallo Armin,
hallo Dan,

wollte euch noch mitteilen:
Es hat super funktioniert.

Vielen Dank für eure Bemühungen.
Grüße Petra


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Finden einer Spalte mit MAX-Wert"