Auslesen von Bezeichnungen der vorhandenen Tabellenblätter

[bhommi]

Hallo zusammen,

ich suche nach einer Möglichkeit die Bezeichnungen der vorhandenen Tabellenblätter in einer Excel-Datei über Access per VBA abzufragen.

Ist das möglich?

Vielen Dank im Voraus.

Gruß
Björn

[markusxy]

Du kannst via Objektmodell zugreifen
siehe: http://www.access-im-unternehmen.de/807

Oder über die verborgene Systemtabelle MSysRelationships.

[bhommi]

Hallo Markus,

innerhalb Access kenne ich die Lösung, aber ich versuche ja die Namen der Register in einer Excel-Datei auszulesen.
Vielleicht habe ich mich etwas missverständlich ausgedrückt oder habe deine Antwort noch nicht verstanden ;-))

Gruß
Björn

[ebs17]

die Bezeichnungen der vorhandenen Tabellenblätter in einer Excel-Datei

Das erfolgt genau so wie man es unmittelbar in Excel ausführen würde, nur dass man man von außerhalb zusätzlich auch auf die Arbeitsmappe referenzieren muss:

Code [Auswählen] Erweitern

Dim objSheet As Object
' Referenz objWorkbook ist vorher festzulegen
For Each objSheet in objWorkbook.Sheets
   Debug.Print objSheet.Name
Next

[bhommi]

Supi, danke für den Hinweis damit komme ich klar ;-)

[markusxy]

Hallo Markus,

innerhalb Access kenne ich die Lösung, aber ich versuche ja die Namen der Register in einer Excel-Datei auszulesen.
Vielleicht habe ich mich etwas missverständlich ausgedrückt oder habe deine Antwort noch nicht verstanden ;-))

Gruß
Björn

Hallo Björn, dass war die richtige Antwort, aber nicht auf deine Frage.