Hallo zusammen,
vielleicht gibt es hier ja jemanden für den VBA Codes eher ein Klacks sind als für mich 😉 Spaß beiseite... für die normalen Spielereien haben meine Kenntnisse bisher immer noch gereicht... nun scheitere ich an einer "Kleinigkeit" die mich aber an der Rand des Wahnsinns treibt.
Es geht darum das ich für den BRD eine Exceldatei erstellt habe... darin enthalten auch sämtliche Mitglieder der Ortsstellen etc... die Daten der Personen (also Funktionen etc.) ändern sich allerdings regelmäßig - also soll per Klick auf einen Button in der Exceldatei auf eine Website zugegriffen werden und die dort hinterlegte Tabelle eingespielt werden. Und damit wären wir an dem Punkt wo ich einfach klein beigeben muss... ich schaffs bis zu der Seite zu kommen aber dann weiß ich nicht wie ich die Tabelle auswählen soll und diese importieren kann. Ich weiß das es in Excel auch die Funktion "Daten"- "Aus dem Web" - "Importieren" gibt... genau diese Schritte will ich eigentlich auch nachstellen nur solls halt nicht jedesmal manuell gemacht werden sondern halt automatisch per Makro.
Dort befindet sich nun dann die Tabelle (siehe Anhang) und die soll genauso ins Excel übernommen werden wie ich das sonst über "Daten" - "Aus dem Web" und "Importieren" machen kann. Da hab ich dann ja die Möglichkeit mit einem Pfeil die Tabelle auszuwählen und genau daran scheitere ich 🙁 Also es sollen nachher in Excel die Zellen genau mit den Daten gefüllt sein die sich ursprünglich auch in einer Zelle befunden haben.
Mir wäre wirklich sehr geholfen wenn mir jemand sagen könnte wie ich den Code erweitern muss!
Sub Einloggen()
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://193.84.28.179/bergrettung/login.asp"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("text1").Value = "Mustermann"
IEDocument.getElementById("password1").Value = "12345"
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("submit1").Click
Do: Loop Until IEDocument.ReadyState = "complete"
IEApp.Navigate "https://193.84.28.179/bergrettung/mitgliederfunktionen.asp"
Debug.Print IEDocument.body.innertext
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub
vielleicht gibt es hier ja jemanden für den VBA Codes eher ein Klacks sind als für mich 😉 Spaß beiseite... für die normalen Spielereien haben meine Kenntnisse bisher immer noch gereicht... nun scheitere ich an einer "Kleinigkeit" die mich aber an der Rand des Wahnsinns treibt.
Es geht darum das ich für den BRD eine Exceldatei erstellt habe... darin enthalten auch sämtliche Mitglieder der Ortsstellen etc... die Daten der Personen (also Funktionen etc.) ändern sich allerdings regelmäßig - also soll per Klick auf einen Button in der Exceldatei auf eine Website zugegriffen werden und die dort hinterlegte Tabelle eingespielt werden. Und damit wären wir an dem Punkt wo ich einfach klein beigeben muss... ich schaffs bis zu der Seite zu kommen aber dann weiß ich nicht wie ich die Tabelle auswählen soll und diese importieren kann. Ich weiß das es in Excel auch die Funktion "Daten"- "Aus dem Web" - "Importieren" gibt... genau diese Schritte will ich eigentlich auch nachstellen nur solls halt nicht jedesmal manuell gemacht werden sondern halt automatisch per Makro.
Dort befindet sich nun dann die Tabelle (siehe Anhang) und die soll genauso ins Excel übernommen werden wie ich das sonst über "Daten" - "Aus dem Web" und "Importieren" machen kann. Da hab ich dann ja die Möglichkeit mit einem Pfeil die Tabelle auszuwählen und genau daran scheitere ich 🙁 Also es sollen nachher in Excel die Zellen genau mit den Daten gefüllt sein die sich ursprünglich auch in einer Zelle befunden haben.
Mir wäre wirklich sehr geholfen wenn mir jemand sagen könnte wie ich den Code erweitern muss!
Sub Einloggen()
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://193.84.28.179/bergrettung/login.asp"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("text1").Value = "Mustermann"
IEDocument.getElementById("password1").Value = "12345"
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("submit1").Click
Do: Loop Until IEDocument.ReadyState = "complete"
IEApp.Navigate "https://193.84.28.179/bergrettung/mitgliederfunktionen.asp"
Debug.Print IEDocument.body.innertext
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub