Splitten web import

Forumthread: Splitten web import

Splitten web import

06.10.2008 19:55:00

Karel

Hallo Forum,
Mache eine Import Webafrage Währungskursen http://www.ecb.int/euro.html
wie kan ich diese daten trennen in Spalten
Orginal
European Central Bank
Date: 06 Oct 2008
US dollar (USD) = 1.3634
Japanese yen (JPY) = 140.78
Bulgarian lev (BGN) = 1.9558
Czech koruna (CZK) = 24.675
Danish krone (DKK) = 7.4598
Estonian kroon (EEK) = 15.6466
Pound sterling (GBP) = 0.7728
Hungarian forint (HUF) = 248.88
nach Trennen in 3 Spalten und Währung punkt durch Komma ersetzt

US dollar USD 1,3634

Japanese yen JPY 140,78

Bulgarian lev BGN 1,9558

Czech koruna CZK 24,675

Danish krone DKK 7,4598

Estonian kroon EEK 15,6466

Pound sterling GBP 0,7728

Hungarian forint HUF 248,88

Grusse
Karel

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Splitten web import

06.10.2008 20:26:28

Tino
AW: Splitten web import O.t.

07.10.2008 16:41:56

Karel

AW: Splitten web import

06.10.2008 20:26:28

Tino

Hallo,
wie wäre es hiermit?
Modul Modul1

Option Explicit 
Sub leseWebdaten() 
Dim appIE As Object 
Dim strHTML As String 
Dim varDaten, A As Long 
Application.ScreenUpdating = False 
 
    Columns("A:C").Clear 
    Set appIE = CreateObject("InternetExplorer.application") 
     appIE.Visible = False  'False ist unsichtbar    True ist Sichtbar 
     appIE.Navigate "http://www.ecb.int/euro.html " 
        While Not appIE.ReadyState = 4 'Warte auf Webseite 
           DoEvents 
        Wend 
            strHTML = appIE.Document.Body.InnerHtml 
            appIE.Quit 
     
                strHTML = Right$(strHTML, Len(strHTML) - InStr(strHTML, "</H1>") - 4) 
                strHTML = Left$(strHTML, InStrRev(strHTML, "<BR>") - 1) 
                varDaten = Split(strHTML, "<BR>") 
     
            For A = Lbound(varDaten) To Ubound(varDaten) 
             Cells(A + 2, 1) = varDaten(A) 
            Next A 
     
       Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
            :="(", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True 
     
    Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(3, 9), Array(6, 1)), DecimalSeparator:=".", _
        ThousandsSeparator:=",", TrailingMinusNumbers:=True 
    Columns("A:C").AutoFit 
Application.ScreenUpdating = True 
End Sub

Gruß Tino

AW: Splitten web import O.t.

07.10.2008 16:41:56

Karel

Hallo Tino
sehr praktisch danke dir
Karel

Beliebteste Forumthreads (12 Monate)

Forumthread: Splitten web import

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread