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

Ein Feld soll gesperrt sein bis Bedingung erfüllt ist.

Diagramm Feld plazieren & größe ändern

Einzelne Felder bei 'Bedingte Formatierung' mit "außer (except)" programmieren

Steuerelemente Ungebundenes Feld

Dropdown Felder nur für Auswahl

Referenz auf Dropdownfeld erstellen

Formular: Dropdown-Felder "verknüpfen"?