Internetseiten nach Excel kopieren

Mit diesem Quellcode kann man den Inhalt von einer Internetseite in ein Excelsheet kopieren.

Das Modul zum Download:
http://vba-blog.de/files/Internet.bas

Und hier der Quellcode:

'---------------------------------------------------------------------------------------
' Module    : Internet
' Author    : Tobias Schmid - tobiasschmid.de
' Date      : 20.11.2008
' Purpose   : Den Inhalt von Internetseiten in ein Excelsheet kopieren
' Purpose   : Copy the content of a webpage to an excelsheet
'---------------------------------------------------------------------------------------

Option Explicit
Option Base 1

Const strAddress = "http://www.vba-blog.de"
Const strSheet = "vba-blog"

Public Sub CopyHtmlToWorksheet()
    On Error Resume Next
        Sheets(strSheet).Delete
    On Error GoTo 0

    CopyHtmlToClipboard (strAddress)

    With Sheets.Add
        .Name = strSheet
        .Paste
    End With
End Sub

Private Sub CopyHtmlToClipboard(wwwAdress As String)
    Dim appIE As Object
    Set appIE = CreateObject("InternetExplorer.Application")

    appIE.navigate wwwAdress
    appIE.Visible = True

    DoLoop Until appIE.Busy = False
    appIE.ExecWb 17, 0 'Select All

    DoLoop Until appIE.Busy = False
    appIE.ExecWb 12, 0 'Copy

    DoLoop Until appIE.Busy = False

    appIE.Application.Quit
    Set appIE = Nothing
End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Wer besonders viele Webseiten nach Excel kopieren möchte, sollte den Internetexplorer nicht jedesmal schließen.

    appIE.Application.Quit
    Set appIE = Nothing

Code eingefügt mit Syntaxhighlighter 4.15
AnhangGröße
Internet.bas1.3 KB
Your rating: Keine Average: 5 (3 votes)