Gewusst wie: Navigieren von Excel-Objekte aus Visual Basic

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 147650 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Alles erweitern | Alles schließen

Auf dieser Seite

Zusammenfassung

Dieser Artikel erläutert drei Methoden zum Navigieren und auf Microsoft Excel-Objekte zugreifen:

  • Mit umständliche und der Standard-Eigenschaft
  • Mithilfe von Antialiasing
  • Mithilfe der über- und Anwendung Methoden des Microsoft Excel Version 5.0 Objekte Zugriff auf alle Microsoft Excel-Objekt

Weitere Informationen

Jedes Objekt in Microsoft Excel Version 5.0 existiert in der Anwendung Hierarchie von Objekten. Sie auswählen zwischen diesen Objekten durch der Anwendung Hierarchie nach unten navigieren. Am oberen Rand dieser Hierarchie ist das Application-Objekt. Auswirkungen auf die gesamte Anwendung, was Ereignisse oder Aktionen, die Sie das Application-Objekt zuweisen. Zum Beispiel:
   ' Close the application
   [Object].Application.Quit
				
ersetzen [Object] durch eine beliebige Variable, die auf alle gültigen Microsoft Excel Application-Objekt verweist, die aus dem folgenden Beispiel erstellt werden kann:
   ' MyObject represents [Object] and OLE1 represents an OLE control
   ' that contains an Microsoft Excel Worksheet object.
   MyObject = OLE1.Object
   Set MyObject = CreateObject("Excel.Sheet")
   Set MyObject = GetObject("C:\EXCEL\EXAMPLES\SAMPLES.XLS")
				
das Application-Objekt enthält andere große Objekte. Beispielsweise können Sie den folgenden Code auf die Auflistung der derzeit geladen in Microsoft Excel-Arbeitsmappen verweisen:
   [Object].Application.Workbooks
				
Wenn eine einzelne Arbeitsmappe aus der Auflistung abgerufen werden soll, verwenden Sie die Item-Methode. Um beispielsweise auf der ersten Arbeitsmappe verweisen:
    [Object].Application.Workbooks.Item(1)
				
an die erste Arbeitsmappe schließen:
   [Object].Application.Workbooks.Item(1).Close
				

Zugriff auf Objekte mit ausführlichen Verweis oder Standardeigenschaften

Jede Arbeitsmappe enthält eine Auflistung der Arbeitsblätter, jedes Arbeitsblatt enthält eine Auflistung von Zellen und So weiter. (Finden Sie in Microsoft Excel-Dokumentation und Hilfe-Menü für bestimmte Details zu Microsoft Excel-Objekthierarchie.) Verweise auf eine bestimmte Zelle können im Code wie folgt aussehen:
   ' Following refers to cell A1 on Sheet1 in the first workbook.
   ' Enter the following two lines as one, single line:
   [Object].Application.Workbooks.Item(1).
      WorkSheets.Item("Sheet1").Cells.Item(1,1)
				
dieser Verweis kann sein, lange und komplexe; allerdings sind Tastenkombinationen verfügbar. Grundlegendes zum Navigationsbereich Operator (.) ist erfolgreich Objekt Programmierung unerlässlich.

Verknüpfungen

Alle Objekte besitzen eine Default-Eigenschaft und Methode. Für Auflistungen ist die Standardmethode die Item-Methode. Für die meisten Objekte ist die Name-Eigenschaft die Standardeigenschaft. Diese Konvention wurde implementiert, zur Vereinfachung der Programmierung. Das vorherige Beispiel kann z. B. zu vereinfacht werden:
   [Object].Application.Workbooks(1).WorkSheets("Sheet1").Cells(1,1)
				

Zugriff auf Objekte durch Aliasing Objekte

Aliasing können Sie die Objekt-Programmierung vereinfachen. Wenn Sie viel Code schreiben, der Sheet1 manipuliert wurde, konnte beispielsweise die Syntax die langwierige werden. Um dies zu verhindern, erstellen Sie ein Objekt, das auf das niedrigste gemeinsame Objekt verweist. Dies wird als Antialiasing bezeichnet. Mithilfe der SET-Anweisung einen Alias erstellen:
   Dim Sheet1 as Object
   ' Alias Sheet1 to represent [Object]...WorkSheets("Sheet1")
   Set Sheet1 = [Object].Application.Workbooks(1).WorkSheets("Sheet1")
   ' Now just use the variable Sheet1 to refer to Sheet1.
   Sheet1.Cells(1,1).Value = "Title"
   Sheet1.Cells(1,2).Value = "ID"
   Sheet1.Cells(1,3).Value = "Cost"
   Sheet1.Cells(2,1).Value = "Phone"
   Sheet1.Cells(2,2).Value = 123413423
   Sheet1.Cells(2,3).Value = 89.95
				

Zugriff auf Objekte mit über- und Application-Methoden

Die über- und Anwendung Methoden können Sie zum Sichern der Objekthierarchie navigieren. Anwendung-Methode navigiert zu Application-Objekt zurück, und die Parent-Methode eine Ebene der Objekthierarchie navigiert. Alle Beispiele in diesem Artikel mit [Object] wurde gestartet. Solange [Object] ein gültiges Microsoft Excel-Objekt ist, sind alle diese Anweisungen auch gültig. Unabhängig vom Kontext [Object].

Dies ist sehr hilfreich, wenn Microsoft Excel-Objekt aus Visual Basic 4.0 programmieren. Microsoft Excel macht nur die drei Objekte, die als Einstiegspunkte in Microsoft Excel verwendet werden können, verfügbar. Diese Schlüssel sind:

  • Excel.Application
  • Excel.Sheet
  • Excel.Chart
Nicht durch Excel.Application.5 verwechselt werden. Excel.Application wird immer auf die neueste Version von Microsoft Excel zeigen. Excel.Application.5 wird nur auf Microsoft Excel Version 5.0 zeigen.

Es gibt kein verfügbar gemachten Arbeitsmappe-Objekt, so dass es keine Möglichkeit, auf das Workbook-Objekt direkt zuzugreifen. Dies ist jedoch kein Problem, da die übergeordnete Methode eines Worksheet oder Chart-Objekts das Workbook-Objekt zurückgibt. Der folgende Beispielcode veranschaulicht diesen Punkt.

Hinweis: OleExcel ist ein OLE-Steuerelement, das ein Excel.Sheet-Objekt enthält.
   ' Declare object references:
   Dim Xlapp As object
   Dim XLWkb As object
   Dim XLWks As object
   Dim XLWksNew As object

   oleExcel.Action = 7   ' Activate OLE Object

   Set XLWks = oleExcel.Object   ' Alias Worksheet object
   Set XLWkb = XLWks.Parent      ' Alias WorkBook object
   Set Xlapp = XLWks.Application ' Alias Application object

   ' Add a new worksheet to the Workbook and name it:
   Set XLWksNew = XLWkb.Worksheets.add  ' Assign alias to new Worksheet
   XLWksNew.Name = "VB4 OLE Automation" & XLWkb.Worksheets.count

   ' Make the 3rd Worksheet of the Workbook active:
   XLWkb.Worksheets(3).Activate

   ' Display the dialog for InsertPicture:
   Xlapp.dialogs(342).[Show]  ' xlDialogInsertPicture = 342
				

Informationsquellen

Office Development Kit, Programmieren integrierte Lösungen

Eigenschaften

Artikel-ID: 147650 - Geändert am: Mittwoch, 11. Oktober 2006 - Version: 2.3
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 16-Bit Enterprise Edition
  • Microsoft Excel 5.0 Standard Edition
Keywords: 
kbmt kb16bitonly kbhowto kbprogramming KB147650 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 147650
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.
Disclaimer zu nicht mehr gepflegten KB-Inhalten
Dieser Artikel wurde für Produkte verfasst, für die Microsoft keinen Support mehr anbietet. Der Artikel wird deshalb in der vorliegenden Form bereitgestellt und nicht mehr weiter aktualisiert.

Ihr Feedback an uns

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com