Microsoft Excel

Herbers Excel/VBA-Archiv

input type="text" füllen

Betrifft: input type="text" füllen von: Heinz
Geschrieben am: 20.08.2014 22:59:38

Hallo liebe Leute,

ich möchte auf einer Website ein Eingabeformular ausfüllen, wie zB. das hier auf der Website zum Beitragschreiben. Das Aufrufen des Internet Explorers fuktioniert, alles Andere danach leider nichtmehr.Die Website ist ganz einfach aufgebaut, keine frames etc.. Ich möchte alle input-tags suchen lassen und wenn ein tag davon gewünschte Eigenschaften besitzt, dieses Feld dann mit einer Variable gefüllt wird. Dieser Teil funktioniert leider nicht, weshalb ich Hilfe benötige. Liegt es am Code, oder kann beispielsweise die Website durch JavaScript so etwas blockieren?
Anbei mein bereinigter Code:


Option Explicit
Sub Distribution()
On Error Resume Next
Dim title As String
Dim tar As IHTMLElement
Dim IE As Object
 
title = "ABCDE"
 
Set IE = CreateObject("InternetExplorer.Application")
With IE
 
.Navigate "Link"
.Visible = True
Do While .Busy: Loop 

For Each tar In .Document.getElementsByTagName("input")
    If tar.Type = "text" And tar.Value = "" Then
        tar.Value = title
        End If
Next tar

FEHLER:
End With
IE.Application.Quit
Set IE = Nothing
End Sub

Mit nächtlichen Grüßen
Heinz

 

Beiträge aus den Excel-Beispielen zum Thema "input type="text" füllen"