Per Makro Daten auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BirthDate() Dim browser As Object 'Zu verwendende Internet Explorer Instanz Dim knotenAst As Object 'HTML Teilstruktur des DOM (Document Object Model) aufnehmen Dim url As String 'Aktuell auszulesende Internet-Adresse Dim geburtsDatum As String 'Zum Speichern des Geburtsdatums 'Adresse zu Kay Hawtrey '(dynamisierbar mit Schleife für beliebig viele Schauspieler) url = "https://www.imdb.com/name/nm0370443/" 'Aufrufen der Schauspieler-Seite im Internet Explorer Set browser = CreateObject("internetexplorer.application") 'IE als Browser setzen browser.Visible = False 'IE unsichtbar browser.navigate url 'URL aufrufen Do Until browser.readyState = 4: DoEvents: Loop 'Warten bis Seite ganz geladen 'Ausschneiden des ersten Time-Tag aus dem HTML-Code Set knotenAst = browser.document.getElementsByTagName("time")(0) 'Prüfen, ob ein Time-Tag vorhanden ist If Not knotenAst Is Nothing Then geburtsDatum = knotenAst.getAttribute("datetime") MsgBox "Das Geburtsdatum lautet: " & geburtsDatum Else MsgBox "Zu diesem Schauspieler/dieser Schauspielerin gibt es kein Geburtsdatum." End If 'Aufräumen browser.Quit Set browser = Nothing Set knotenAst = Nothing End Sub

Hallo Zwenn,
wenn man die Seite des Films
https://www.imdb.com/title/tt0259822/
aufruft, hast du recht da stehen auch Leute ohne Geburtsdatum.
Bei der Abfrage
https://www.imdb.com/search/name?gender=female&roles=tt0259822&sort=birth_date,desc&count=100
jedoch habe ich vorher ausgewählt dass nur Leute mit Geburtstag angezeigt werden. Die ohne Geburtstag sind für meine Tabelle völlig irrelevant.
mit tt wert meine ich den IMDB Code der Filme in diesem Fall tt0259822
Ich sagte ja, mein Plan war es das was in der Tabelle "ist" und in der Tabelle "Datenquelle" steht von Hand vorzugeben.
Aber da ich ja weiß dass du jemand bist, der alles per Abfrage und möglichst wenig von Hand vorgegeben macht, das Veröffentlichungsdatum in Spalte C kommt von der Seite
https://www.imdb.com/title/tt0259822/releaseinfo
Dort das oberste Datum, dort könnte man auch den Filmnamem herholen.
Aber wie gesagt eine Liste aller tt codes die ausgewertet werden sollen muss noch erstellt werden.
Also zur Erklärung
Spalte A - IMDB Code des Films, zu finden in der URL zu dem Film, in unserem Beispiel
https://www.imdb.com/title/tt0259822
wie gesagt da hab ich noch keine vollstndige Liste
Spalte B - Filmtitel wie auf https://www.imdb.com/title/tt0259822 genannt.
Falls der deutsche Titel vom Originaltitel abweicht wie z.b. bei https://www.imdb.com/title/tt0139134/ nehme ich den Originaltitel.
Spalte C - Datum der ersten Veröffentlichung zu finden unter
https://www.imdb.com/title/tt0139134/releaseinfo (nicht identisch mit dem Datum das unter
https://www.imdb.com/title/tt0139134/ steht, dort steht das VÖ Datum in Deutschland).
Spalte E - Umrechnen des Datums in Spalte C in TT.MM.JJJJ
Spalte F - IMDB Code der Schauspieler, zu finden in der URL zu den Schauspielern, bei Kay Hawtrey
https://www.imdb.com/name/nm0370443/
Spalte G - Name der Schauspieler, im Beispiel auch unter https://www.imdb.com/name/nm0370443/ zu finden.
Spalte H - Geburtsdatum der Schauspieler zu finden in der URL zu den Schauspielern, bei Kay Hawtrey
https://www.imdb.com/name/nm0370443/
Spalte I - Umrechnen des Datums in Spalte F in TT.MM.JJJJ
Spalte D ist mit absicht freigeblieben, liegt daran, wenn man ein Datum aus
https://www.imdb.com/title/tt0259822/releaseinfo
kopiert und in Excel einfügt, wird warum auch immer die Zelle rechts nebendran geleert, bzw. mit nichts überschrieben.
Die Abfrage in dem Blatt Datenquelle ist dazu da, die Schauspieler in der Beispieltabelle diese 4 herauszufiltern, die ich benötige.
Und ja habe dein Makro natürlich getestet, wusste aber im Moment noch nicht um was ich dich genau bitten soll was mit dem Datum in diesem Format geschehen soll. Eben weil es ein anderes Format als bislang ist und damit meine Formel zum umrechnen unbrauchbar wird.
Also entweder würde ich mir wünschen dass das Datum so ausgegeben wird wie Spalte H oder direkt als TT.MM.JJJJ
Gruß
Christian

So,
weißt Du, ich glaube wir zwei würden uns echt gut verstehen, wenn wir uns persönlich treffen würden. Du wohnst nicht zufällig in Berlin oder? ;-)
Also ... Es braucht einen Ankerpunkt, von dem man ausgehen und jede Information erreichen kann. Dann würde auch dies sich alles automatisieren lassen, soweit ich es im Moment überblicke. Meine Frage jetzt ist: Was ist Dir wichtiger? Erstmal das Chart-Makro fertig stellen (habe da noch etwas zu den Zeiten beobachtet, wann was veröffentlicht wird) oder dieses mit Schauspielern und Filmen? Ich weiß ja nicht, wofür Du all dies benötigst.
Die Frage ist dann für die Film/ Schauspieler-Sache auch, ob Du das öfter brauchst (also auch zukünftig) oder nur für ein paar Filme? Stimmt, dass ich gerne alles automatisiere, was geht. Allerdings macht das auch für mich nur Sinn, wenn die Automatisierung einen Zeitgewinn, bzw. weniger Stress bedeutet. Wenn es eine einmalige Sache ist ... So what, dann nicht.
Ich habe mal das Buch 'Code Complete' gelesen, welches von einem Microsoft Entwickler geschrieben wurde. Darin gab es einen Satz, den ich für mich unterschreiben kann:
(sinngemäß) Ein Entwickler würde immer 90 % der verfügbaren Zeit für eine Aufgabe darauf verwenden, diese Aufgabe zu automatisieren, bevor er sie manuell ausführen muss.
Bleibt die Frage, gibt es diesen Ankerpunkt, um alle Infos zusammen zu tragen? Es ging bei Deiner Anfrage zunächst um Schauspieler, nun geht es um Filme. Da frage ich mich also, gibt es bestimmte Filme, zu denen Du die Bestezungsliste auslesen wilst (mit Schauspielern, zu denen ein Geburtsdatum vorliegt)? Oder was ist Dein Startpunkt, was ist Dein Ziel?
Wie gesagt, auch gerne via Mail. Meine Adresse hast Du ja.
Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread