Office: (Office 2010) Feld in Webbrowsersteuerelement befüllen

ADB_83 · 12. März 2015

Hallo Marsu.

Besten Dank für deinen Code und entschuldige für meine verspätete Antwort.
Die letzten Tage habe ich ziemlich viel Zeit darin investiert, doch bin noch zu keinem zufriedenstellenden Ergebnis gelangt.
Das eine Mal funktioniert es, das andere Mal wieder nicht und ich finde den genauen Fehler nicht.

Das
Code:

Set iEl = IEApp.Document.getElementsByName("roomAdults1")(1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hat bei mir nicht funktioniert.
Erst beim Ändern auf
Code:

Set iEl = IEApp.Document.getElementsByName("roomAdults1")(0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kam ich einen Schritt weiter.

Jedoch arbeite ich mit Windows 7 und Acc13 und dem IE11.

Mein aktueller Code:

Code:

Dim IEApp As InternetExplorer ' As Object
Dim iEl As MSHTML.HTMLInputElement
Dim splitTarget As Variant

Set IEApp = CreateObject("InternetExplorer.Application")

IEApp.Visible = True
IEApp.Navigate "http://booking.bettmeralp.ch/bettme...6ff-cd0d-45c9-bdb7-68bcf04c57ed/crystal_west#"

Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Document.ReadyState = "complete"

Dim StringMietbeginn1 As String
Dim StringMietende1 As String

StringMietbeginn1 = [Mietbeginn1]
StringMietende1 = [Mietende1]

Set iEl = IEApp.Document.getElementsByName("roomAdults1")(0) 'Das hidden Element
iEl.Value = [AnzErw1]
iEl.nextSibling.innerText = [AnzErw1]

Dim AnziKindi As Integer

AnziKindi = [AnzKinder1] + 1
Set iEl = IEApp.Document.getElementsByName("roomChildren1")(0)
iEl.Value = AnziKindi
iEl.nextSibling.innerText = [AnzKinder1]

If IsNull(Me!AlterKinder1) = False Then
splitTarget = Split(Me!AlterKinder1, ",")
Else
If [AnzKinder1] > 0 Then
MsgBox ("Es sind keine Altersangaben für die Kinder eingetragen")
End If

End If

If [AnzKinder1] > 0 Then
Set iEl = IEApp.Document.getElementsByName("roomChildren1Age1Text")(0)
iEl.Value = splitTarget(0)
iEl.nextSibling.innerText = splitTarget(0)
End If

If [AnzKinder1] > 1 Then
Set iEl = IEApp.Document.getElementsByName("roomChildren1Age2Text")(0)
iEl.Value = splitTarget(1)
iEl.nextSibling.innerText = splitTarget(1)
End If

If [AnzKinder1] > 2 Then
Set iEl = IEApp.Document.getElementsByName("roomChildren1Age3Text")(0)
iEl.Value = splitTarget(2)
iEl.nextSibling.innerText = splitTarget(2)
End If

If [AnzKinder1] > 3 Then
Set iEl = IEApp.Document.getElementsByName("roomChildren1Age4Text")(0)
iEl.Value = splitTarget(3)
iEl.nextSibling.innerText = splitTarget(3)
End If

IEApp.Document.getElementsByName("roomDateFromText")(0).focus
IEApp.Document.getElementsByName("roomDateFromText")(0).Value = StringMietbeginn1
IEApp.Document.getElementsByName("roomDateFromText")(0).nextElementSibling.innerText = StringMietbeginn1
SendKeys ("Enter")

IEApp.Document.getElementsByName("roomDateToText")(0).focus
IEApp.Document.getElementsByName("roomDateToText")(0).Value = StringMietende1
IEApp.Document.getElementsByName("roomDateToText")(0).nextElementSibling.innerText = StringMietende1
SendKeys ("Enter")
SendKeys ("Enter")

Set iEl = Nothing
Set IEApp = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn man nach dem Eintragen 2x ENTER drückt, scheint es fast immer zu funktionieren - jedenfalls für den Moment. Ich hoffe, dass dies auch auf anderen Rechnern so funktioniert. Muss dies wohl noch etwas weitertesten...

Besten Dank nochmals für eure Bemühungen. Für weitere Vorschläge bin ich weiterhin offen... *wink.gif*

Office: (Office 2010) Feld in Webbrowsersteuerelement befüllen

Feld in Webbrowsersteuerelement befüllen

Feld in Webbrowsersteuerelement befüllen

Feld in Webbrowsersteuerelement befüllen - Similar Threads - Feld Webbrowsersteuerelement befüllen

Keine Feldaktualisierung über Abschnittsumbrüche hinaus

Felder: Hochgestellter Text bleibt nicht erhalten

Feld in Abhängigkeit eines Dropdowns

Intelligente Tabelle mit mehreren Überschrift-Feldern

Mehrere Abfragen mit gleichen Kriterien in bestimmten Felder

Zeichenformatvorlagen für Felder

Abfrage mit leeren Feldern