Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1592to1596
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
Inhaltsverzeichnis

GetElementBy nur Zahlen ausgeben?

GetElementBy nur Zahlen ausgeben?
02.12.2017 21:30:02
Oliver
Hey Leute!
ich ich möchte von einer Seite den Preis von einem Produkt auslesen, doch das Excel zeigt mir den Preis immer so an: "US $1.13" wäre es möglich einfach nur die 1.13 anzuzeigen?
Mein Code wie er bis jetzt aussieht:

For Each Preis In IE.document.getElementsByClassName("priceVal")
If Not Preis Is Nothing Then
If InStr(1, Preis.innerText, "$") Then
ActiveSheet.Range(xAchse & yAchse).Value = Preis.innerText
Debug.Print Preis.innerText
End If
End If
Next
Set Preis = Nothing

von dieser Seite soll der Preis kopiert werden:

https://wholesaler.alibaba.com/product-detail/seafood-Enameled-Crab-Cracker-seafood-tool_60701260836.html?spm=a2700.8304367.prewdfa4cf.22.2e268b9ahMXGP3

Freue mich auf eure Antworten!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GetElementBy nur Zahlen ausgeben?
03.12.2017 05:21:03
Oberschlumpf
Hi Oliver
versuch es mal so:

Dim lstrPrice As String
For Each Preis In IE.document.getElementsByClassName("priceVal")
If Not Preis Is Nothing Then
If InStr(1, Preis.innerText, "$") Then
lstrPrice = Trim(Preis.innerText)
lstrPrice = Right(lstrPrice ,Len(lstrPrice) - 3)
lstrPrice = Replace(lstrPrice , ".", ",")
ActiveSheet.Range(xAchse & yAchse).Value = lstrPrice
Debug.Print lstrPrice
End If
End If
Next
Set Preis = Nothing
Hilfts?
Ciao
Thorsten
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige