Excel VBA Visual Basic Web-Permanenenz automatisch einlesen – von SelMcKenzie Selzer-McKenzie

Excel VBA Visual Basic Web-Permanenenz automatisch einlesen – von SelMcKenzie Selzer-McKenzie

Author D.Selzer-McKenzie

Video: http://youtu.be/IA_BVPJ3G4w

 

 

Heute zeige ich Ihnen,wie Sie in Excel und auch in Visual Basic ganz einfach eine Permanenz aus dem Web einlesen und auch gleich formatierenkönnen. Sie müssen in dem VBA-Code lediglich noch die entsprechende Webadresse des Casinos, dessen Permanenz Sie einlesen wollen, angeben.

Hier als Beispiel die Permanenz des Casinos Wiesbaden, die ja eine extra Seite haben mit Permanenzen. Sehen Sie auf dem Video,wie es ganz einfach geht,wie die Permanenzen eingelesen werden und auch gleich für ein System formatiert werden können.

Hier nun der Source-Code:

 

VBA-Code (für Excel, aber auch für Visual-Basic):

 

Sub Webquery()

' Alte Webabfrage löschen

Range("A4").CurrentRegion.Delete

' Neue Webabfrage einfügen

With ActiveSheet.QueryTables.Add _

(Connection:= _

"URL;http://Hier_die_genaue_Webadresse_des_Casinos_eingeben.de", _

Destination:=Range("A4"))

' Ein Name für die Webabfrage

.Name = "Devisenkurse"

' Spaltenüberschrift (falls aktiv)

.FieldNames = False

' Zeilennummern (falls aktiv)

.RowNumbers = False

' Falls Formeln vorhanden sind, diese aktualisieren

.FillAdjacentFormulas = False

' Formatierungen (Pivot)

.PreserveFormatting = True

' Aktualisierung (Pivot)

.RefreshOnFileOpen = False

' Abfrage im Hintergrund ausführen

.BackgroundQuery = True

' xlInsertDeleteCells:

' - Teile von Zeilen werden hinzugefügt oder gelöscht

' xlOverwrite:

' - Keine neuen Zeilen, nur bestehende überschreiben

' xlInsertEntireRows:

' - Falls erforderlich, ganze Zeilen hinzufügen

.RefreshStyle = xlInsertDeleteCells

' Kennwortinformationen, falls erforderlich

.SavePassword = False

' Pivot-Informationen speichern

.SaveData = True

' Automatische Spaltenbreite

.AdjustColumnWidth = True

' Anzahl automatischer Aktualisierungen pro Minute

.RefreshPeriod = 0

' xlEntirePage:

' - Gesamte Seite importieren

' xlAllTables:

' - Alle Tabellen importieren (Standard)

' xlSpecifiedTables:

' - Nur bestimmte Zeilen importieren

.WebSelectionType = xlSpecifiedTables

' - Alle Formatierungen übernehmen

' xlWebFormattingRTF

' - Nur RTF-Formatierungen übernehmen

' xlWebFormattingNone

' - Keine Formatierungen übernehmen

.WebFormatting = xlWebFormattingNone

' Durch Komma getrennte Angabe, welche Webseiten importiert

' werden sollen (Wenn Webselection = xlSpecifiedTables)

.WebTables = "2"

' Gibt zurück oder legt fest, ob die Analyse der Daten in

' HTML

-Tags der Webseite beim Importieren der
Seite

' in eine Abfragetabelle in Spalten erfolgen soll

.WebPreFormattedTextToColumns = True

' True, wenn aufeinander folgende Trennzeichen beim Importieren

' von Daten aus HTML

-Tags in einer Webseite in
eine

' Abfragetabelle als einzelnes Zeichen behandelt werden, und

' die Datenanalyse in Spalten erfolgen soll

.WebConsecutiveDelimitersAsOne = True

' True, wenn die Daten aus den HTML

-Tags in der

' angegebenen Webseite beim Importieren der Seite in

' eine Abfragetabelle gleichzeitig verarbeitet werden sollen

.WebSingleBlockTextImport = False

' True, wenn Daten, die Datumsangaben darstellen, beim

' Importieren einer Webseite in eine Abfragetabelle als Text

' analysiert werden

.WebDisableDateRecognition = False

' True, falls die Umleitung von Webabfragen für ein

' QueryTable-Objekt deaktiviert wird

.WebDisableRedirections = False

' True, wenn Abfragen der PivotTable-Berichte oder

' Abfragetabelle asynchron (im Hintergrund) durchgeführt werden

.Refresh BackgroundQuery:=False

End With

End Sub