Hallo,
leider muss ich nochmal stören. Es fehlen die Events :( - Folgend der VBA-Code:
Der Fehler liegt im Bereich "Testarea".
___________________________________________________________________________________________________________________________
Sub DMS_execute_Click()
marker = 0
Set objShell = CreateObject("Shell.Application")
IE_count = objShell.Windows.Count
'Durchsucht die Tabs des Internet-Exploerers nach der richtigen Seite
For x = 0 To (IE_count - 1)
On Error Resume Next
my_url = objShell.Windows(x).document.Location
my_title = objShell.Windows(x).document.Title
'Stimmt ab, ob die richtige Webseite im Browser angezeigt wird
If my_url Like "https:<interner Link - kann nicht außerhalb des Unternehmens geöffnet werden" Then
Dim btn As Variant
Set IE = objShell.Windows(x)
'Speichert den Betreff in eine Variable
ed = IE.document.getElementsByClassName("FscViewText")(0).innerText
'Zieht das Datum aus dem Betreff und wird in Variable gespeichert
For i = 1 To Len(ed)
If IsDate(Mid(ed, i, 11)) Then
ed = Mid(ed, i, 11)
ed = Right(ed, 10)
Debug.Print "Datum aus Betreff: " & ed
Exit For
End If
Next
'Prüft, ob das richtige Element in der Spalte Datum ist
Inhalt = IE.document.getElementsByClassName("L")(12).innerHTML
'Ersetzt Datum in Spalte Datum (nur Client)
IE.document.getElementsByClassName("L")(12).innerHTML = ed
Debug.Print "Inhalt L: " & Inhalt
'--------Testarea--------------------------------------------
'1. Aktiviere Datumfeld: <td class="L" role="gridcell" aria-selected="false" aria- describedby="H2_0_0A2">15.06.2016</td> Keine Events vorhanden
'2. Aktiviere <td tabindex="0" class="L jsFscSel FscSel FscInplace" role="gridcell" aria-selected="true" aria-describedby="H2_0_0A2" data-ctrl="i0_0_0_1"><div class="FscDateTimeCombobox" role="combobox" aria-expanded="true" aria-haspopup="dialog" aria-owns="fsccd"><input name="fi0_0_0_1_1" class="FscInput FscDateTime" id="i0_0_0_1_1A2" role="textbox" aria-controls="fsccd" aria-label="Datum" onkeydown="vappcal.trapKey(event)" type="text" maxlength="10" placeholder="" value="15.06.2016" autocomplete="off"></div></td> keine Events vorhanden
IE.document.getElementsByClassName("L")(12).Click
IE.document.getElementsByClassName("L jsFscSel FscSel").Click
............
'--------!Testarea---------------------------------------------
' Speichert Variable in das Datumfeld - Funktioniert, wenn die oberen beiden Felder beim Inspektor aktiviert sind (bzw. angeklickt)
IE.document.getElementsByClassName("FscInput FscDateTime")(0).Value = ed
MsgBox "Inhalt L: " & Inhalt
Exit For
Else
End If
Next
If marker = 0 Then
End If
____________________________________________________________________________________________________________________________
Ich habe mir mal das Selenium-IDE-Addon installiert.
Wenn ich auf das Datumfeld ein mal klicke wird angezeigt: Command: click Target css=.jaFscSel:nth-child(3)
Beim zweiten Klick: das Gleiche.
Gefolgt von einem Command: run script Target window.scrollTo(0,0)
Hierbei öffnet sich ein kleines Fenster mit einem Kalender zum Anklicken des jeweiligen Datums.
Vielen Dank!!!
VG Pauli
|