Generelle Objekte - Versionsgeschichte

Pwania am 28. Januar 2023 um 00:35 Uhr

2023-01-28T00:35:18Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:35 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	Generelle Objekte haben selbst keine Methoden und keine Eigenschaften, sie können jedoch eine beliebiges Anwendungs- bzw. Klassenobjekt entgegennehmen und dessen Eigenschaften und Methoden aufnehmen.		Generelle Objekte haben selbst keine Methoden und keine Eigenschaften, sie können jedoch eine beliebiges Anwendungs- bzw. Klassenobjekt entgegennehmen und dessen Eigenschaften und Methoden aufnehmen.

Pwania: /* Beispiel: Mehr-Anwendungen-Fähigkeit */

2018-12-20T09:42:54Z

Beispiel: Mehr-Anwendungen-Fähigkeit

← Nächstältere Version		Version vom 20. Dezember 2018, 09:42 Uhr
Zeile 19:		Zeile 19:

	<span style="Color:blue">Public Function </span>ActiveFileFullName<span style="Color:gray">()</span><span style="Color:blue"> As String</span>		<span style="Color:blue">Public Function </span>ActiveFileFullName<span style="Color:gray">()</span><span style="Color:blue"> As String</span>
	<span style="Color:blue"> Dim </span>objApp<span style="Color:blue"> As </span>Object <span style="Color:green">' Application</span>		<span style="Color:blue"> Dim </span>objApp<span style="Color:blue"> As </span>Object <span style="Color:green"> ' Application</span>
	<span style="Color:blue"> Dim </span>objFile<span style="Color:blue"> As </span>Object <span style="Color:green">' Workbook</span>		<span style="Color:blue"> Dim </span>objFile<span style="Color:blue"> As </span>Object <span style="Color:green"> ' Workbook</span>

	<span style="Color:blue"> Set </span>objApp <span style="Color:gray">=</span> Application		<span style="Color:blue"> Set </span>objApp <span style="Color:gray">=</span> Application

Pwania: /* Beispiel: Mehr-Anwendungen-Fähigkeit */

2018-12-20T09:41:41Z

Beispiel: Mehr-Anwendungen-Fähigkeit

← Nächstältere Version		Version vom 20. Dezember 2018, 09:41 Uhr
Zeile 18:		Zeile 18:
	Diese Lösung bezieht sich auf die aktuelle Datei. Da die aktuelle Datei in Word ein Dokument, in Excel eine Arbeitsmappe und in PowerPoint eine Präsentation ist, müssen Sie auf alle drei Anwendungen getrennt eingehen oder je nach Anwendung die nicht zutreffenden Schritte in Kommentar setzen.		Diese Lösung bezieht sich auf die aktuelle Datei. Da die aktuelle Datei in Word ein Dokument, in Excel eine Arbeitsmappe und in PowerPoint eine Präsentation ist, müssen Sie auf alle drei Anwendungen getrennt eingehen oder je nach Anwendung die nicht zutreffenden Schritte in Kommentar setzen.

	<span style="Color:blue">Public Function </span>ActiveFileFullName<span style="Color:gray">()</span><span style="Color:blue"> As String</span> <span style="Color:blue"> Dim </span>objApp<span style="Color:blue"> As </span>Object <span style="Color:green">' Application</span> <span style="Color:blue"> Dim </span>objFile<span style="Color:blue"> As </span>Object <span style="Color:green">' Workbook</span> <span style="Color:blue"> Set </span>objApp <span style="Color:gray">=</span> Application <span style="Color:blue"> Select Case </span>Application<span style="Color:gray">.</span>Name <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Excel"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveWorkbook <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft PowerPoint"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActivePresentation <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Word"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveDocument <span style="Color:blue"> End Select</span> ActiveFileFullName <span style="Color:gray">=</span> objFile<span style="Color:gray">.</span>FullName <span style="Color:blue">End Function</span>		<span style="Color:blue">Public Function </span>ActiveFileFullName<span style="Color:gray">()</span><span style="Color:blue"> As String</span>
			<span style="Color:blue"> Dim </span>objApp<span style="Color:blue"> As </span>Object <span style="Color:green">' Application</span>
			<span style="Color:blue"> Dim </span>objFile<span style="Color:blue"> As </span>Object <span style="Color:green">' Workbook</span>

			<span style="Color:blue"> Set </span>objApp <span style="Color:gray">=</span> Application
			<span style="Color:blue"> Select Case </span>Application<span style="Color:gray">.</span>Name
			<span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Excel"</span>
			<span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveWorkbook
			<span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft PowerPoint"</span>
			<span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActivePresentation
			<span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Word"</span>
			<span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveDocument
			<span style="Color:blue"> End Select</span>
			ActiveFileFullName <span style="Color:gray">=</span> objFile<span style="Color:gray">.</span>FullName<span style="Color:blue">
			End Function</span>
	Während diese Funktion aufgebaut wurde, hat der Entwickler die <code>Application</code> und das <code>Workbook</code> als solche definiert und konnte direkt auf die gewünschten Eigenschaften zugreifen.		Während diese Funktion aufgebaut wurde, hat der Entwickler die <code>Application</code> und das <code>Workbook</code> als solche definiert und konnte direkt auf die gewünschten Eigenschaften zugreifen.

Zeile 26:		Zeile 39:
	Durch die <code>Select</code> Abfrage wird gesteuert, welche Anwendung auf welches aktuelle Element zugreift.		Durch die <code>Select</code> Abfrage wird gesteuert, welche Anwendung auf welches aktuelle Element zugreift.

	Dieses Beispiel ist selbstverständlich nur insofern sinnvoll, als das die Lösung auf Eigenschaften und Methoden der aktuellen Datei zugreift, die in allen Office-Anwendungen vorhanden sind, wie <code>Name</code>, <code>Save</code>, <code>SaveAs</code>, ...		Dieses Beispiel ist selbstverständlich nur insofern sinnvoll, als das die Lösung auf Eigenschaften und Methoden der aktuellen Datei zugreift, die in allen Office-Anwendungen vorhanden sind, wie <code>Name</code>, <code>FullName</code>, <code>Save</code>, <code>SaveAs</code>, ...

Pwania: /* Beispiel: Mehr-Anwendungen-Fähigkeit */

2018-12-20T09:39:17Z

Beispiel: Mehr-Anwendungen-Fähigkeit

← Nächstältere Version		Version vom 20. Dezember 2018, 09:39 Uhr
Zeile 14:		Zeile 14:
	=== Beispiel: Mehr-Anwendungen-Fähigkeit ===		=== Beispiel: Mehr-Anwendungen-Fähigkeit ===

	Sie haben eine Lösung entwickelt, welche in mehreren Office-Anwendungen zur Verfügung stehen soll. Diese Lösung bezieht sich auf die aktuelle Datei. Da die aktuelle Datei in Word ein Dokument, in Excel eine Arbeitsmappe und in PowerPoint eine Präsentation ist, müssen Sie auf alle drei Anwendungen getrennt eingehen oder je nach Anwendung die nicht zutreffenden Schritte in Kommentar setzen. <span style="Color:blue">Public Function </span>ActiveFileFullName<span style="Color:gray">()</span><span style="Color:blue"> As String</span> <span style="Color:blue"> Dim </span>objApp<span style="Color:blue"> As </span>Object <span style="Color:green">' Application</span> <span style="Color:blue"> Dim </span>objFile<span style="Color:blue"> As </span>Object <span style="Color:green">' Workbook</span> <span style="Color:blue"> Set </span>objApp <span style="Color:gray">=</span> Application <span style="Color:blue"> Select Case </span>Application<span style="Color:gray">.</span>Name <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Excel"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveWorkbook <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft PowerPoint"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActivePresentation <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Word"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveDocument <span style="Color:blue"> End Select</span> ActiveFileFullName <span style="Color:gray">=</span> objFile<span style="Color:gray">.</span>FullName <span style="Color:blue">End Function</span> Während diese Funktion aufgebaut wurde, hat der Entwickler die <code>Application</code> und das <code>Workbook</code> als solche definiert und konnte direkt auf die gewünschten Eigenschaften zugreifen. Dann wurden die beiden Variablen zu Objekten erklärt und ermöglichen so auch in den anderen Anwendungen den Zugriff auf die aktuelle Datei. Hierbei werden, obwohl zum Beispiel die Excel <code>Application</code> keine <code>ActivePresentation</code> und kein <code>ActiveDocument</code> kennt, keine Kompilierungsfehler auftreten, weil erst beim direkten Aufruf des Objekts geprüft wird, ob diese Eigenschaft zur Verfügung steht. Durch die <code>Select</code> Abfrage wird gesteuert, welche Anwendung auf welches aktuelle Element zugreift.		Sie haben eine Lösung entwickelt, welche in mehreren Office-Anwendungen zur Verfügung stehen soll.

			Diese Lösung bezieht sich auf die aktuelle Datei. Da die aktuelle Datei in Word ein Dokument, in Excel eine Arbeitsmappe und in PowerPoint eine Präsentation ist, müssen Sie auf alle drei Anwendungen getrennt eingehen oder je nach Anwendung die nicht zutreffenden Schritte in Kommentar setzen.

			<span style="Color:blue">Public Function </span>ActiveFileFullName<span style="Color:gray">()</span><span style="Color:blue"> As String</span> <span style="Color:blue"> Dim </span>objApp<span style="Color:blue"> As </span>Object <span style="Color:green">' Application</span> <span style="Color:blue"> Dim </span>objFile<span style="Color:blue"> As </span>Object <span style="Color:green">' Workbook</span> <span style="Color:blue"> Set </span>objApp <span style="Color:gray">=</span> Application <span style="Color:blue"> Select Case </span>Application<span style="Color:gray">.</span>Name <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Excel"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveWorkbook <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft PowerPoint"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActivePresentation <span style="Color:blue"> Case </span><span style="Color:gray">"Microsoft Word"</span> <span style="Color:blue"> Set </span>objFile <span style="Color:gray">=</span> objApp<span style="Color:gray">.</span>ActiveDocument <span style="Color:blue"> End Select</span> ActiveFileFullName <span style="Color:gray">=</span> objFile<span style="Color:gray">.</span>FullName <span style="Color:blue">End Function</span>

			Während diese Funktion aufgebaut wurde, hat der Entwickler die <code>Application</code> und das <code>Workbook</code> als solche definiert und konnte direkt auf die gewünschten Eigenschaften zugreifen.

			Dann wurden die beiden Variablen zu Objekten erklärt und ermöglichen so auch in den anderen Anwendungen den Zugriff auf die aktuelle Datei. Hierbei werden, obwohl zum Beispiel die Excel <code>Application</code> keine <code>ActivePresentation</code> und kein <code>ActiveDocument</code> kennt, keine Kompilierungsfehler auftreten, weil erst beim direkten Aufruf des Objekts geprüft wird, ob diese Eigenschaft zur Verfügung steht.

			Durch die <code>Select</code> Abfrage wird gesteuert, welche Anwendung auf welches aktuelle Element zugreift.

			Dieses Beispiel ist selbstverständlich nur insofern sinnvoll, als das die Lösung auf Eigenschaften und Methoden der aktuellen Datei zugreift, die in allen Office-Anwendungen vorhanden sind, wie <code>Name</code>, <code>Save</code>, <code>SaveAs</code>, ...

Pwania am 20. Dezember 2018 um 08:22 Uhr

2018-12-20T08:22:25Z

← Nächstältere Version		Version vom 20. Dezember 2018, 08:22 Uhr
Zeile 1:		Zeile 1:
	Generelle Objekte haben selbst keine Methoden und keine Eigenschaften, sie können jedoch eine beliebiges Anwendungs- bzw. Klassenobjekt entgegennehmen und dessen Eigenschaften und Methoden aufnehmen. <span style="Color:blue">Dim </span>objApp<span style="Color:blue"> As </span>Object <span style="Color:blue">Set </span>objApp <span style="Color:gray">=</span> Application Debug<span style="Color:gray">.</span>Print objApp<span style="Color:gray">.</span>Name Das generelle Objekt objApp hat keine eigenen Eigenschaften, aber durch die Zuweisung der Anwendung kann die Eigenschaft 'Name' abgerufen werden. Hierfür wird jedoch vom VBA-Editor keine Hilfe angeboten, weil aus ~~seiner~~ Sicht das Objekt keine eigenen Eigenschaften hat.		Generelle Objekte haben selbst keine Methoden und keine Eigenschaften, sie können jedoch eine beliebiges Anwendungs- bzw. Klassenobjekt entgegennehmen und dessen Eigenschaften und Methoden aufnehmen.

			<span style="Color:blue">Dim </span>objApp<span style="Color:blue"> As </span>Object
			<span style="Color:blue">
			Set </span>objApp <span style="Color:gray">=</span> Application
			Debug<span style="Color:gray">.</span>Print objApp<span style="Color:gray">.</span>Name

			Das generelle Objekt objApp hat keine eigenen Eigenschaften, aber durch die Zuweisung der Anwendung kann die Eigenschaft 'Name' abgerufen werden. Hierfür wird jedoch vom VBA-Editor keine Hilfe angeboten, weil aus dessen Sicht das generelle Objekt keine eigenen Eigenschaften hat.

	== Late Binding ==		== Late Binding ==

Pwania: Die Seite wurde neu angelegt: „Generelle Objekte haben selbst keine Methoden und keine Eigenschaften, sie können jedoch eine beliebiges Anwendungs- bzw. Klassenobjekt entgegennehmen und des…“

2017-11-23T15:51:40Z

Die Seite wurde neu angelegt: „Generelle Objekte haben selbst keine Methoden und keine Eigenschaften, sie können jedoch eine beliebiges Anwendungs- bzw. Klassenobjekt entgegennehmen und des…“

Neue Seite

Generelle Objekte haben selbst keine Methoden und keine Eigenschaften, sie können jedoch eine beliebiges Anwendungs- bzw. Klassenobjekt entgegennehmen und dessen Eigenschaften und Methoden aufnehmen. Dim objApp As Object Set objApp = Application Debug.Print objApp.Name Das generelle Objekt objApp hat keine eigenen Eigenschaften, aber durch die Zuweisung der Anwendung kann die Eigenschaft 'Name' abgerufen werden. Hierfür wird jedoch vom VBA-Editor keine Hilfe angeboten, weil aus seiner Sicht das Objekt keine eigenen Eigenschaften hat.

== Late Binding ==

Generelle Objekte dienen vorrangig dazu, eine späte Bindung zu ermöglichen (Late Binding). Dies kann in folgenden Situationen sehr hilfreich sein:

=== Beispiel: Mehr-Anwendungen-Fähigkeit ===

Sie haben eine Lösung entwickelt, welche in mehreren Office-Anwendungen zur Verfügung stehen soll. Diese Lösung bezieht sich auf die aktuelle Datei. Da die aktuelle Datei in Word ein Dokument, in Excel eine Arbeitsmappe und in PowerPoint eine Präsentation ist, müssen Sie auf alle drei Anwendungen getrennt eingehen oder je nach Anwendung die nicht zutreffenden Schritte in Kommentar setzen. Public Function ActiveFileFullName() As String Dim objApp As Object ' Application Dim objFile As Object ' Workbook Set objApp = Application Select Case Application.Name Case "Microsoft Excel" Set objFile = objApp.ActiveWorkbook Case "Microsoft PowerPoint" Set objFile = objApp.ActivePresentation Case "Microsoft Word" Set objFile = objApp.ActiveDocument End Select ActiveFileFullName = objFile.FullName End Function Während diese Funktion aufgebaut wurde, hat der Entwickler die <code>Application</code> und das <code>Workbook</code> als solche definiert und konnte direkt auf die gewünschten Eigenschaften zugreifen. Dann wurden die beiden Variablen zu Objekten erklärt und ermöglichen so auch in den anderen Anwendungen den Zugriff auf die aktuelle Datei. Hierbei werden, obwohl zum Beispiel die Excel <code>Application</code> keine <code>ActivePresentation</code> und kein <code>ActiveDocument</code> kennt, keine Kompilierungsfehler auftreten, weil erst beim direkten Aufruf des Objekts geprüft wird, ob diese Eigenschaft zur Verfügung steht. Durch die <code>Select</code> Abfrage wird gesteuert, welche Anwendung auf welches aktuelle Element zugreift.