Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
    Anzeige
    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

    Anzeige
    AW: Splitten web import O.t.
    07.10.2008 16:41:56
    Karel
    Hallo Tino
    sehr praktisch danke dir
    Karel

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige