Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
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
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Macro webabfrage

Macro webabfrage
18.12.2017 12:41:54
Sam
Hallo,
Leider bekomme ich eine Fehlermeldung bei der Macro.
Wer kann mir helfen?
Danke.
Gruß
Sam
Sub TEST()
Dim ie As Object
Dim url As String
Dim myPoints As String
url = "http://www.finanzen.net/devisen/euro-yen-kurs"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = 0
.navigate url
While .Busy Or .readyState  4
DoEvents
Wend
End With
Dim Doc As HTMLDocument
Set Doc = ie.document
myPoints = Trim(Doc.getElementsByName("JPY")(1).Value)
Range("A1").Value = myPoints
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro webabfrage
18.12.2017 14:38:03
Bernd
Hallo Sam, 
Sub WebAbfrage()
ActiveWorkbook.Queries.Add Name:="Euro Aktuell", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Web.Page(Web.Contents(""http://www.finanzen.net/ _
devisen/euro-yen-kurs""))," & Chr(13) & "" & Chr(10) & " Data1 = Quelle{1}[Data]," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(Data1,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"""
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Euro Aktuell" _
";Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [Euro Aktuell]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Euro_Aktuell"
.Refresh BackgroundQuery:=False
End With
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub
Mit Makrorecorder aufgezeichnet, vielleicht funktioniert es?
Lieben Gruß aus Bremen
Bernd
Anzeige
AW: Macro webabfrage
18.12.2017 14:59:14
Sam
Vielen Dank für deine freundliche Unterstützung Bernd.
Leider bekomme ich eine Meldung.
Gruß
Sam
AW: Macro webabfrage
18.12.2017 15:48:31
Bernd
Hallo Sam, 
Leider bekomme ich eine Meldung.

Bitte genauer den Fehler beschreiben, besser noch Mustermappe hochladen!
Hier meine Mustermappe: https://www.herber.de/bbs/user/118396.xlsm
Userbild
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"
Anzeige
AW: Macro webabfrage
18.12.2017 17:24:23
Sam
Super. Vielen Dank und einen schönen Abend.
Gruß
Sam

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige