Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Internetexploer Formulardaten aus Excel füllen

Forumthread: Internetexploer Formulardaten aus Excel füllen

Internetexploer Formulardaten aus Excel füllen
Sebastian
Hallo,
Ich würde gerne mal versuchen aus vom excel aus den Internetexploer zu Steuern.
Ich möchte zum bespiel gerne in der Textbox (name) auf einer Internetseite einen wert aus excel (A1) eintragen lassen.
Ob sowas funktioniert!?
Wenn möglich ohne sendkey anweisung.
LG
Sebastian
Anzeige

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Internetexploer Formulardaten aus Excel füllen
16.10.2011 11:05:26
Reinhard
Moin Sebastian,
geb Internetformular oben links bei Schnellsuche ein und OK...
Gruß
Reinhard
AW: Internetexploer Formulardaten aus Excel füllen
16.10.2011 11:09:09
Sebastian
gemacht...
Aber so richtig finden tut er da nix :-(
AW: Internetexploer Formulardaten aus Excel füllen
16.10.2011 11:37:25
Sebastian
Ok Habe den Code gefunden,

Sub WebausFuellen()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
'False ist unsichtbar    True ist Sichtbar
appIE.Visible = True
'Webseite?
appIE.Navigate "http://www.ictax.admin.ch/extern/faces/searchInstrument.xhtml?lang=de"
While Not appIE.ReadyState = 4 'Warte auf Webseite
DoEvents
Wend
'Jahr 0=2010; 1=2009; 2=2008; 3=2007 usw. bis 2001
appIE.Document.all.searchInstrumentBean_referenceDate.Value = "2"
'Valorennummer:
appIE.Document.all.instrumentSearchCriteriaBean_valorNumber.innerText = "1599"
'Gesellschaftsbezeichnung
appIE.Document.all.instrumentSearchCriteriaBean_name.innerText = "Hallo Test"
'Suchen
appIE.Document.all.DefaultButton.Click
''Webseite schliesen
'appIE.Quit
Set appIE = Nothing
End Sub
Das klappt auch auf der seite.
Jetzt nur noch eine Frage. ich gehe davon aus das diese zeile
appIE.Document.all.instrumentSearchCriteriaBean_name.innerText = "Hallo Test"
zum beispiel dann so aussehen muss
appIE.Document.all.name1 = "Christian"
name1 heißt mein Feld.
Allerdings bekomme ich da immer laufzeitfehler 438
was mache ich falsch?
Anzeige
getelementbyid
16.10.2011 11:09:44
ransi
HAllo Sebastian
Ein Patentrezept gibt es dafür nicht.
Du musst im Quelltext der Internetseite die Namen und/oder IDs der Steuerelemente suchen.
Dann kannst du sie gezielt mit getelementbyid ansteuern und manipulieren.
Hört sich schlimm an, ist aber keine große Sache.
ransi
AW: getelementbyid
16.10.2011 11:12:00
Sebastian
Ist sicher schwer zu finden wenn das nicht meine Website ist oder?
Kann man das irgendwie auslesen?
Anzeige
AW: getelementbyid
16.10.2011 11:14:28
Reinhard
Hallo Sebastian,
Rechtsklick auf den Webseitenteil, je nachdem
Seitenquelltext anzeigen
bzw.
Aktueller Frame---Frame-Quelltext anzeigen
o.ä.
Gruß
Reinhard
AW: getelementbyid
16.10.2011 11:16:52
ransi
Hallo Sebastian
Kann man das irgendwie auslesen?
Wenn du Firefox hast:
Das Steuelement markieren-rechte Maus drauf-Quelltext anzeigen.
ransi
Anzeige
AW: getelementbyid
16.10.2011 11:37:52
Sebastian
Das funknioniert schonmal prima!
Danke
BeispielCode
16.10.2011 11:49:54
ransi
HAllo Sebastian
2 TextBoxen und ein Button
Schau mal hier:

Option Explicit



Private Sub machs()
    Dim objIE As Object
    Set objIE = CreateObject("Internetexplorer.Application")
    With objIE
        .Visible = True
        .Navigate2 "http://www.deine_internetseite.de"
        Do While .busy
            Do While .busy
                DoEvents
            Loop
        Loop
        .document.getelementbyId("usernameLogin").Value = "Dein_Login_Name"
        .document.getelementbyId("passwordLogin").Value = "Geheim"
        .document.getelementbyId("buttonLogin").Click
    End With
End Sub


ransi
Anzeige
AW: BeispielCode
16.10.2011 12:33:23
Sebastian
Funktioniert!!
Aber wenn ich daten aus einer DropDown Feld (anrede) Auswählen lassen will geht das nicht :-(
.document.getelementbyId("anrede").Value = "Herr"
oder auch
.document.getelementbyId("anrede").Value = "2"
Geht nicht!?
Hat da noch jemand einen Rat?
Link
16.10.2011 12:38:31
ransi
HAllo
Welche Seite willst du denn automatisch ausfüllen ?
ransi
Anzeige
AW: Link
16.10.2011 13:19:08
Anton
Hallo Sebastian,
mit deiner Beispielseite funktioniert es:
Code:

Sub b()
  Dim IEApp As Object  
  Dim IEDocument As Object    
  Set IEApp = CreateObject("InternetExplorer.Application")  
  IEApp.Visible = True
  IEApp.Navigate "http://www.skylu.de/auswahl.php"
  Do: Loop Until IEApp.Busy = False    
  Do: Loop Until IEApp.Busy = False    
  Set IEDocument = IEApp.Document  
  Do: Loop Until IEDocument.ReadyState = "complete"    
  IEDocument.getElementById("anrede").Value = "Herr"
  IEDocument.getElementById("vorname").Value = "Sebastian"
  IEDocument.getElementById("name").Value = "lupo"
  Set IEDocument = Nothing  
  Set IEApp = Nothing  
End Sub  


mfg Anton
Anzeige
AW: Link
16.10.2011 13:40:53
Sebastian
So funktionierts :-)
Besten dank
AW: Link
16.10.2011 14:46:20
Sebastian
Ähm... noch eine kleine Frage,
funktioniert das eigentlich auch wenn die seite schon offen ist!?
Immer wenn ich das Makro laufen lassen öffnet sich der IE Explorer neu :-(
AW: Link
16.10.2011 14:54:22
Reinhard
Hallo Sebastian,
das geht schon, ändere die eine Zeiel so ab:
Set IEApp = CreateObject("InternetExplorer.Application")
in
Set IEApp = GetObject(,"InternetExplorer.Application")
Das klappt nur wenn der IE in dem Moment am laufen ist, ist das nicht sicher so frag nochmal nach, kriegt man auch hin.
Gruß
Reinhard
Anzeige
AW: Link
16.10.2011 14:59:29
Sebastian
Nein das geht nicht.
Habe das
Set IEApp = GetObject(,"InternetExplorer.Application")
und das
Set IEApp = GetObject("InternetExplorer.Application")
Probiert.
Die seite ist eigentlich schon geöffnet. Excel soll nur die Daten in die Felder eintragen :-(
Hat jemand eine idee?
Anzeige
AW: Link
16.10.2011 14:59:40
Sebastian
Nein das geht nicht.
Habe das
Set IEApp = GetObject(,"InternetExplorer.Application")
und das
Set IEApp = GetObject("InternetExplorer.Application")
Probiert.
Die seite ist eigentlich schon geöffnet. Excel soll nur die Daten in die Felder eintragen :-(
Hat jemand eine idee?
Anzeige
Link
16.10.2011 16:15:50
Anton
Hallo Sebastian,
probier sowas:
Code:

Sub b()
  Dim objShell As Object  
  Dim IEApp As Object, win As Object  
  Dim adresse As String  
  adresse = "http://www.skylu.de/auswahl.php" 'anpassen
  Set objShell = CreateObject("Shell.Application")  
  For Each win In objShell.Windows  
    If InStr(1, UCase(win.FullName), "IEXPLORE") > 0 Then    
      If win.Document.Location = adresse Then  
        Set IEApp = win
        Exit For  
      End If  
    End If  
  Next
  If IEApp Is Nothing Then    
    Set IEApp = CreateObject("InternetExplorer.Application")  
    IEApp.Visible = True
    IEApp.Navigate adresse
    Do: Loop Until IEApp.Busy = False    
    Do: Loop Until IEApp.Busy = False    
  End If  
  Set IEDocument = IEApp.Document  
  Do: Loop Until IEDocument.ReadyState = "complete"    
  IEDocument.getElementById("anrede").Value = "Herr"
  IEDocument.getElementById("vorname").Value = "Sebastian"
  IEDocument.getElementById("name").Value = "lupo"
  Set IEDocument = Nothing  
  Set IEApp = Nothing  
  Set objShell = Nothing  
End Sub  


mfg Anton
Anzeige
AW: Link
16.10.2011 17:39:18
Sebastian
Genial,
genau sowas habe ich gesucht :-)
Besten dank
;

Forumthreads zu verwandten Themen

Combobox füllen bei Auswahl des Tabellenblatts
Frank

Hallo Zusammen,
erst mal möchte mich nochmals bedanken.
Dieses Forum ist einfach klasse.
Nun zu meinem Problem.
Ich habe eine Arbeitsmappe mit zwei Tabellen.
Soll immer mit Tabelle1 geöffnet werden.
Die Combobox die gefüllt wird liegt auf einer Userform die beim öffnen d...
25.02.2011 10:28:20
Thread-ID: 1202874
3 Beiträge
ComboBox befüllen aus mehreren Tabellen
Mister

Guten Morgen,
wer kann mir auf der Sprunge helfen? Ich habe 5 Tabellen (Gruppe1 bis 5) mit Namen jeweils in den Zellen C5 bis C41. Ich möchte diese Namen in einem ComboBox in einer UserForm auflisten und nach Möglichkeit sortiert.
Hat jemand eine Idee?
Danke und Gruß
Martin
07.09.2011 11:11:02
Thread-ID: 1228908
3 Beiträge
ComboBox füllen aus nicht aktiven Tabelle
chandler

Hallo Forum,
trotz intensiver Recherche habe ich nichts gefunden was mir weiter hilft.
Was muss im nachfolgenden Code geändert werden damit die ComboBox mit Werten aus nicht aktiven "Tabelle2" gefüllt wird?
Habe versucht mit With Worksheets("Tabelle2") leider ohne Erfolg. Es wird im...
25.02.2013 19:57:06
Thread-ID: 1300942
6 Beiträge
Listbox füllen mit werten aus aktuellem Tabellenbl
Ralle

Hallo nochmal,
Wie kann ich nach der Auswahl des Jahres in der Combobox eine Listbox füllen. Wenn ich ein Jahr in der Listbox auswähle, wähle ich das Tabellenblatt an welches in der Combobox steht. Aber leider füllt er nur die Listbox mit den Werten des ersten Registerblattes.
Danke für...
04.01.2016 11:02:06
Thread-ID: 1466956
5 Beiträge
VBA Userform ComboBox Werte aus jeder Tabelle
Chris

Hey Leute,
undzwar muss ich mit einem Formular Werte angezeigt bekommen, die auf verschiedenen Tabellenblättern, jedoch in der selben Zelle sind. Das heißt ich bräuchte eine Anweisung die jede Tabelle in der Datei durchläuft und den Wert dann raus nimmt. Leider fällt mir dazu überhaupt nich...
11.10.2016 12:32:28
Thread-ID: 1519071
3 Beiträge
Listbox befüllen mit Listbox(Vba)
André

Ich hoffe dass mir jemand weiter helfen kann
und zwar habe ich folgendes problem:
Ich will eine listbox mit werten aus einer anderen listbox füllen was ich bis dahin auch geschaft habe, aber es wir immer nur die erste spalte kopiert ich hoffe ihr könnt mir weiter helfen.
Das ist mei...
29.04.2017 13:47:15
Thread-ID: 1555474
4 Beiträge
UF-Listbox bedingt mittels VBA füllen
Rene

Hallo Excelperten,
ich stehe mal wieder vor einem Problem.
Ich habe eine Userform gebastelt.
Mittels einem Radiobutton wird eine ComboBox befüllt - funktioniert auch gut.
Der Radiobutton wählt aus ob die ComboBox sich mit den Namen oder den Eigenschaften füllt.
Nun möchte ic...
03.05.2017 13:45:02
Thread-ID: 1556031
3 Beiträge
Tabelle ausfüllen mit VBA
richar

Hallo,
ich möchte meine Tabelle ausfüllen mit Formel aber ich weiß nicht welche Formel passt. Ich habe in Rot geschrieben was ich als Formel schreiben will. Ich hoffe jemand kann mir helfen.
Der Tabelle Oben ist schon da und ich möchte die untere mit Makro schreiben und ausfüllen.
...
30.07.2017 16:03:52
Thread-ID: 1571584
4 Beiträge
VBA Listbox füllen, Userform in Textbox einlesen
FUMOS

Hallo,
leider werden die Daten aus der Excel-Tabelle nicht in die Listbox eingelesen.
Wo liegt mein Fehler.
Auch möchte ich die Einträge dann in der Userform bearbeiten und dann in der Tabelle überschreiben lassen.
Kann mir jemand helfen.
https://www.herber.de/bbs/user/11622...
13.09.2017 18:40:18
Thread-ID: 1580349
2 Beiträge
Listbox mit Daten aus externer Tabelle füllen
Tim

Hallo zusammen,
ich habe eine Listbox, die ich mittels einer Combobox (Vorauswahl) gefiltert befülle. Das dazugehörige Tabellenblatt befindet sich dabei in der selben Tabelle. Jetzt würde ich gern das Tabellenblatt als externe Datenbank auslagern aber dennoch die Listbox damit füllen. Wer k...
16.10.2018 14:31:05
Thread-ID: 1651579
2 Beiträge
Listbox mit Daten aus externer Tabelle füllen
Tim

Hallo zusammen,
ich habe eine Listbox, die ich mittels einer Combobox (Vorauswahl) gefiltert befülle. Das dazugehörige Tabellenblatt befindet sich dabei in der selben Tabelle. Jetzt würde ich gern das Tabellenblatt als externe Datenbank auslagern aber dennoch die Listbox damit füllen. Wer k...
16.10.2018 14:58:12
Thread-ID: 1651584
6 Beiträge
Anzeige
ListBox auslesen aus Tabelle und füllen aus anderer Tabelle
Peer

Ein gesundes neues Jahr für alle hier.
Da Jahr hat gerade begonnen und sitze hier, wie ihr auch, am PC und bastle weiter an meinem Projekt, das eigentlich schon am 31.12.2019 fertig sein sollte.
Ich möchte gern eine ListBox in der UF frm_Tag füllen, und zwar in einer bestimmten Reihenfo...
02.01.2020 10:28:25
Thread-ID: 1731529
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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