Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Excel Tabelle mit Menüleiste als OLE??
Autor: jpr
Datum: 21.05.06 11:41
Hi, hab Excel als OLE eingebettet, und da lässt sich ja zwischen der Darstellung Content und Linked wählen. Gibt es auch ne Möglichkeit ohne den Doppelklick das Exceldokument mitsamt Menüleiste und vor allem dem Feld zum Tabellenplatt wechseln anzuzeigen? Bzw, könnte mal bitte ein Experte prüfen, ob meine Initialisierung einigermaßen passt und es so (wie auch immer) möglich ist, weitere Tabellenblätter einzufügen? Zu diesem Zweck kommt weiter unten jetzt leider der unübersichtliche Codeversuch meinerseits. Danke euch schonmal für's Helfen und schönen Sonntag! ' Excel Objekte Private xlAppl As Object ' As Excel.Application Private xlApplLiefNicht As Boolean Private xlWB As Object ' As Excel.Workbook Private xlWS As Object ' As Excel.Worksheet Private xlRange As Object ' As Excel.Range ' Prüfen, ob Excel ausgeführt wird: On Error Resume Next Set xlAppl = GetObject(, "Excel.Application") If Err.Number <> 0 Then xlApplLiefNicht = True ' Err-Objekt im Fehlerfall löschen Err.Clear If xlAppl Is Nothing Then ' Excel läuft noch nicht Else ' Excel ist bereits gestartet MsgBox "Excel läuft bereits im Hintergrund. Füge Arbeitsblatt ein.", vbInformation, "Information" End If ' Erstellt Excel OLE OLE1.CreateEmbed vbNullString, "Excel.Sheet" ' Wenn ein Fehler beim Erstellen aufgetreten ist... If Err.Number <> 0 Then GoTo err_Handler End If ' Verweis auf Arbeitsmappe setzen Set xlWB = OLE1.object ' Wenn ein Fehler beim Erstellen aufgetreten ist... If Err.Number <> 0 Then GoTo err_Handler End If ' Verweis auf Tabellenblatt setzen Set xlWS = xlWB.Sheets(1)

Excel Tabelle mit Menüleiste als OLE??

489

jpr

21.05.06 11:41

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen