Zugriff auf Internetseite(n)

Hallo Leute
Diesmal hab ich ein (für mich) sehr großes Problem.
Erst mal zum Hintergrund:
Ich spiele in einem Verein Volleyball.
Wir verstehen uns alle so gut, dass wir irgendwann beschlossen, eine eigene Internetseite zu gestalten, auf der wir uns alle über alles Mögliche informieren (Ideen zur gemeinsamen Freizeitgestaltung, priv. Fotos, Bekanntgabe von vielleicht für alle interessante Events, Terminkalender für gemeinsame Unternehmungen, usw)
Der Name Seite lautet:
http://sonnenkinder.so.ohost.de
(den Namen nenn ich nur der Vollständigkeit halber - man kann nur die für mich wichtige Seite (Mitglieder) anklicken, wenn man eingeloggt ist)
Ich bin auf dieser Seite einer der Administratoren (zuständig für Accountpflege, Fotos "vorzeigbar" machen und zur Verfügung stellen, usw)
Problem:
Zur Zeit sind wir 30 Mitglieder auf dieser Seite.
Da aber das Interesse bei dem einen oder anderen schon mal verloren geht, verwandelt sich ein "aktiver Account" auch mal in eine "Karteileiche".
Und genau diese Accounts möchte ich löschen.
Zur Zeit kann ich das aber nur, in dem ich mir zu jedem einzelnen Account die Detailinfos anzeigen lasse, in denen auch das letzte Anmeldedatum steht, an dem ich entscheide, ob Karteileiche oder nich.
Frage:
Da ich ungern weiterhin 30 mal klicken möchte (30 Accounts = 30 x klicken für Details), würd ich gern die Detailseiten aller Accounts in Excel einlesen, damit ich auf einen Blick sehe, wer sich wann das letzte Mal einloggte.
Wie geht das?
Problem 2:
Da ich euch aus datenschutzrechtlichen Gründen keinen Zugriff auf "unsere" Seite geben kann, habe ich mal diese Seite ausgesucht, da sie vom Prinzip genau so aufgebaut ist, wie unsere Mitglieder-Seite:


http://www.denic. _
de/de/denic/mitgliedschaft/mitgliederliste/index.
jsp

(Das JSP müsst ihr bitte ans Ende des Links anhängen, weil der Link vollständig nicht darstellbar ist - auch der Zeilenumbruch ist nicht von mir gewollt)
Also....
Diese Liste zeigt alle Mitglieder, die sich bei der DENIC registriert haben.
Und wenn man nun einen dieser Links anklickt, werden zum jeweiligen Mitglied Detailinfos angezeigt.
Und genau darum geht es mir:
1. Als Start habe ich die Mitgliederliste
2. Nun möchte ich mit VBA nacheinander die Mitglieder "anklicken", um die Detailinfos nach Excel zu übertragen.
Da ich noch keine Bsp-Datei habe, würd es mir schon reichen, wenn die Details einfach ab Zelle A1 eingetragen werden.
Sollte ich für euch wichtige Infos vergessen haben, dann fragt mich, und ich antworte.
Sehr vielen Dank schon mal für euer Bemühen!
Ciao
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Verweis: Microsoft HTML Object Library Sub Links_von_einer_Seite_lesen() Dim objMSHTML As New MSHTML.HTMLDocument Dim Doc As MSHTML.HTMLDocument Dim i As Integer Set Doc = _ objMSHTML.createDocumentFromUrl("http://www.denic.de/de/denic/mitgliedschaft/mitgliederliste/index.jsp", vbNullString) DoEvents For i = 0 To Doc.all.tags("a").Length - 1 If InStr(Doc.body.all.tags("a")(i), "?member=DENIC") > 0 Then Debug.Print Doc.body.all.tags("a")(i).innerText, Doc.body.all.tags("a")(i) End If Next i End Sub

Sub Einlesen() Dim lstrURL As String, liDurchlauf As Integer, liFreieZeile As Integer, larstrUser() As _ String, liZeile As Integer Application.ScreenUpdating = False lstrURL = "URL;http://kann ich leider nicht verraten.de" With Sheets(2) If .Cells(Rows.Count, 1).End(xlUp).Row > 5 Then .Range("A5:C" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents End If End With For liDurchlauf = 1 To 50 Sheets(1).Activate With ActiveSheet.QueryTables.Add(Connection:=lstrURL & liDurchlauf, Destination: _ =Range("A1")) .Name = "userinfo.php&id=1" .FieldNames = True .PreserveFormatting = True .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "23" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .Refresh BackgroundQuery:=False End With liFreieZeile = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1 With ActiveSheet larstrUser = Split(.Range("A1").Value, " ") If LCase(larstrUser(UBound(larstrUser))) "von" Then Sheets(2).Range("A" & liFreieZeile).Value = larstrUser(UBound( _ larstrUser)) For liZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row Select Case .Range("A" & liZeile).Value Case "Zuletzt online" Sheets(2).Range("B" & liFreieZeile).Value = _ Left(.Range("B" & liZeile).Value, 10) Case "E-Mail" Sheets(2).Range("C" & liFreieZeile).Value = . _ Range("C" & liZeile).Value End Select Next End If .Cells.ClearContents .Range("A1").QueryTable.Delete End With Next Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread