Profi-Excel.de

Die Seite für den professionellen Umgang mit Excel und VBA

Kleinanzeigen Suche

22nd März 2011

Das Beispiel zeigt, wie man mit VBA auf Webseiten - in diesem Fall auf Kleinanzeigenportale - zugreifen kann und die Inhalte der Webseite auswertet.
Zunächst muss der Verweis (im VBE unter Extras - Verweise auf die Microsoft HTML Object Library gesetzt werden. Dann ist es möglich ein neues Objekt vom Typ MSHTML.HTMLDocument anzulegen. Dieses Objekt kennt die Methode "createDocumentFromUrl", der man im Wesentlichen die URL der Webseite übergibt.

Bei den meisten Portalen ist es möglich, die Suche nach Kleinanzeigen über eine URL und der Angabe des Suchbegriffs zu starten. Findix.com hat das sehr einfach gelöst und bietet die URL http://www.findix.com/suche/ an, die direkt mit dem Suchbegriff verknüpft werden kann d.h. z.B. http://www.findix.com/suche/fahrrad. Bei Quoka ist die Syntax etwas komplizierter (Übergabe des Arguments "Search1" an die cfm Funktion), aber der Suchbegriff kann auch hier einfach hinten an die URL angehängt werden.

Der Aufruf von "createDocumentFromUrl" liefert ein Objekt zurück, dass wesentliche Informationen zur Webseite enthält. Am Einfachsten kann man sich die Struktur und die Details des Objekts im Lokalfenster im Debug-Mode ansehen. In diesem Codebeispiel wird im Element "Body" die innerText-Eigenschaft ausgelesen, die den Webseiten Inhalt enthält.

Anschließend kann beispielhaft in den Ergebnissen in myResults(k).BodyResult mit einer Schleife nach
weiteren Details gesucht werden.

PLAIN TEXT
VBA:
  1. Type SearchWebType
  2.   Website As String
  3.   HTMLSearchQuery As String
  4.   BodyResult As String
  5. End Type
  6.  
  7. Sub Kleinanzeigen_Suche()
  8. 'Verweis notwendig: Microsoft HTML Object Library
  9. '
  10. 'HTML Seiten abrufen und Seiteninhalt durchsuchen
  11. '03-2011
  12. 'E.Bimczok http://profi-excel.de
  13. '
  14. 'Liest beispielhaft die Webseiten der Kleinanzeigenportale
  15. 'Findix.com und Quoka.de ein
  16.  
  17. Dim objMSHTML As New MSHTML.HTMLDocument
  18. Dim myHTMLDoc As New MSHTML.HTMLDocument
  19. Dim myResults() As SearchWebType
  20. Dim myWebsiteSearch As String
  21. Dim subSearchString As String
  22. Dim k As Long
  23. Dim foundPos As Long
  24.  
  25. ReDim myResults(1 To 2)
  26.  
  27. myWebsiteSearch = "Fahrrad"
  28. subSearchString = "BMX" 'nach Begriff in den Ergebnissen suchen
  29.  
  30. myResults(1).Website = "http://www.findix.com"
  31. myResults(1).HTMLSearchQuery = "http://www.findix.com/suche/"
  32.  
  33. myResults(2).Website = "http://www.quoka.de"
  34. myResults(2).HTMLSearchQuery = "http://www.quoka.de/searchresult.cfm?SEARCH1="
  35.  
  36. 'alle definierten Webseiten abrufen
  37. For k = LBound(myResults) To UBound(myResults)
  38.  
  39.   'z.B. http://www.findix.com/suche/fahrrad
  40.   Set myHTMLDoc = objMSHTML.createDocumentFromUrl( _
  41.      myResults(k).HTMLSearchQuery & myWebsiteSearch, _
  42.      vbNullString)
  43.  
  44.   'Abwarten, bis die Seite geladen ist
  45.   While myHTMLDoc.readyState <> "complete"
  46.     DoEvents
  47.   Wend
  48.  
  49.   myResults(k).BodyResult = myHTMLDoc.body.innerText
  50.  
  51. Next k
  52.  
  53. 'detaillierte Suche
  54. For k = LBound(myResults) To UBound(myResults)
  55.   foundPos = InStr(1, myResults(k).BodyResult, subSearchString, vbTextCompare)
  56.   If foundPos> 0 Then
  57.     'wenn Begriff gefunden wurde, 20 Zeichen davor
  58.     'und 200 Zeichen danach anzeigen
  59.     MsgBox ("Webseite: " & myResults(k).Website & vbCr & _
  60.     Mid(myResults(k).BodyResult, foundPos - 20, 200))
  61.   End If
  62. Next k
  63.  
  64. End Sub

Abgelegt unter VBA Makros | Keine Kommentare »

Suche mit Regular Expressions in VBA

18th März 2011

VBA kennt von sich aus keine Regulären Ausdrücke. Um einen ersten Einstieg in den Umgang mit Regulären Ausdrücken zu bekommen, gibt es unten ein Beispiel, wie man die Bibliothek verfügbar macht.
Über CreateObject erzeugt man das Objekt. Die Pattern Eigenschaft legt das Pattern für die Suche fest, hierbei werden üblicherweise Zeichenklassen verwendet, wie z.B. \w (siehe unten) oder \d für alle Zahlen, d.h. 0-9.
Der Vorteil von Regulären Ausdrücken liegt in den sehr umfassenden Möglichkeiten auch komplexe Suchen bzw. Prüfungen vorzunehmen. Ein übliches Beispiel ist die Prüfung der Gültigkeit von Emailadressen.

PLAIN TEXT
VBA:
  1. Sub VBA_Suche_Mit_RegularExpression()
  2.  
  3. 'sucht mit der Hilfe von Regulären Ausdrücken
  4. '03-2011
  5. 'E.Bimczok http://profi-excel.de
  6.  
  7. Const myText As String = "Dieser Satz kein Verb"
  8.  
  9. Dim myRegEx As Object
  10.  
  11. Set myRegEx = CreateObject("VBScript.RegExp")
  12.  
  13. '\w alle Zahlen (0-9), Buchstaben (A-z) oder "_"
  14. '+ mindestens einmal aber beliebig oft
  15. myRegEx.Pattern = "\w+"
  16.  
  17. Set result = myRegEx.Execute(myText)
  18.  
  19. MsgBox result(0).Value 'Dieser
  20.  
  21. 'Buchstabe "S", danach die oben beschriebene Klasse \w
  22. myRegEx.Pattern = "S\w+"
  23.  
  24. Set result = myRegEx.Execute(myText)
  25.  
  26. MsgBox result(0).Value 'Satz
  27.  
  28. End Sub

Abgelegt unter VBA Makros | Keine Kommentare »

Mehrfach Suchen und Ersetzen mit Statistik

7th März 2011

Mehrfaches "Suchen und Ersetzen" hat bereits in diesem Artikel viel Interesse erzeugt. Die Frage nach statistischen Informationen ließ sich aber nicht so einfach beantworten. Dazu sind einige Anpassungen am Code notwendig.
Excel bietet über den Aufruf im Menü "Suchen und Ersetzen" von sich aus bereits die Informationen, wie viele Inhalte ersetzt wurden. Leider ist es nach meiner Kenntnis nicht möglich, diese Informationen über VBA direkt Weiterlesen »

Abgelegt unter VBA Makros | Keine Kommentare »

Firefox Shortcut Next Page für Foren und Suchergebnisse

24th Oktober 2010

Die meisten Foren oder Suchmaschinen stellen die Seiten so dar, dass z.B. die ersten 20 Ergebnisse auf der ersten Seite angezeigt werden, Ergebnisse 21-40 auf der zweiten Seite usw. Die Ergebnisseiten sind wiederum durchnummeriert und entweder durch eine Klick auf die Seitennummer oder über "next page" erreichbar.

Leider sind die Links für "next page" oder "Seite 2" häufig extrem klein, d.h man muss relativ genau mit der Maus zielen, um den Link anzuklicken. Speziell bei Notebooks kann das unterwegs zur Geduldsprobe werden, diese unergonomisch kleinen Schaltflächen zu treffen.

Abhilfe schafft das Firefox-Plug-In "SmartPager". Über die Tastenkombination "Alt+ Bild-nach-unten" kann auf die nächste Seite geblättert werden. Alternativ kann auch die Kombination "Alt Gr + Bild-nach-unten" verwendet werden, dann liegen die beiden Tasten sehr ergonomisch, um mit der rechten Hand bedient zu werden.

Insbesondere beim längeren Lesen in Foren lässt sich der berüchtigte "Maus-Arm" durch die wesentliche bessere Ergonomie vermeiden.

Abgelegt unter Firefox | Keine Kommentare »

Google-Shortcuts

24th Oktober 2010

Wer gerne mit der Tastatur arbeitet, kann dies sehr gut mit einem Plug-In für den Firefox unterstützen.

Aber zunächst die Anleitung, wie man über die Tastatur suchen kann: Mit Strg+k gelangt man in das Suchfenster,  nach Eingabe des Suchbegriffs und Drücken der "Enter-Taste" werden die Suchergebnisse dargestellt.

Plug-In "Search Keys"

Das genannte Plug-In nummeriert nun die Suchergebnisse automatisch durch. D.h. das erste Suchergebnis hat die Nummer 1, das zweite die Nummer 2 usw. Jetzt lassen sich die Suchergebnisse über die entsprechenden Nummern auf der Tastatur öffnen. D.h. die das Zeichen 1 auf der Tastatur öffnet das erste Suchergebnis. Mit gedrückter Alt-Taste lassen sich die Suchergebnisse in einem neuen Tab öffnen.

Suchergebnisse mit Search-Keys im Firefox

Suchergebnisse mit Search-Keys im Firefox

Abgelegt unter Firefox | Keine Kommentare »

Excel Diagramm Linien auf schwarz-weiss stellen

13th Mai 2009

Falls man in Diagrammen die Linienfarben auf schwarz stellen möchte, lässt sich das einfach mit diesem Makro unterstützen. So lassen sich auf Knopfdruck alle Diagramme innerhalb einer Excel-Datei umstellen.

Zur Funktion des Makros: Weiterlesen »

Abgelegt unter VBA Makros | Keine Kommentare »

Diagramm Linien einfärben

13th Mai 2009

Falls man in Diagrammen die Linienfarben ändern möchte, lässt sich das einfach mit diesem Makro unterstützen. So lassen sich auf Knopfdruck alle Diagramme innerhalb einer Excel-Datei abhängig von der Linienart (Markierung) einfärben.

Zur Funktion des Makros: Weiterlesen »

Abgelegt unter VBA Makros | Keine Kommentare »

Doppelte Einträge entfernen und Übereinstimmungen suchen

15th Juni 2008

Mit einer Collection ist in VBA einiges möglich. Doppelte Einträge lassen sich eliminieren, indem beim Hinzufügen des Elements zur Collection ein eindeutiger "Key" zugewiesen wird. Jeder Key darf nur einmal in Weiterlesen »

Abgelegt unter VBA Makros | 3 Kommentare »

Excel Tabelle in Textform konvertieren

27th Oktober 2006

Der markierte Bereich wird spaltenweise auf die Textlänge untersucht und damit die Breite der Spalten (Anzahl der Buchstaben) festgelegt. Dabei wird die Text-Eigenschaft des Range-Objektes verwendet, so dass der angezeigte Text erscheint. Weiterlesen »

Abgelegt unter VBA Makros | Keine Kommentare »

Zeilennummer von Objekten bestimmen

21st Oktober 2006

Über die for each -Schleife wird auf alle Objekte vom Typ "shape" im aktiven Arbeitsblatt zugegriffen. Das Shape-Objekt hat die Eigenschaft TopLeftCell, die ein Rangeobjekt zurück gibt. Über die row-Eigenschaft lässt sich dann die Weiterlesen »

Abgelegt unter VBA Makros | Keine Kommentare »

« frühere Einträge