kann mir jemand anhand eines Beispielcods zeigen, wie ich ein Internetformular per VBA in Excel ausfülle und abschicke?
Danke für die Hilfe.
Andrea
mit deiner (schon zuvor) gestellten Frage wirst du auf Granit stoßen. Das Formular (wie sieht das aus?) müsste irgendwie auf deinen Rechner geladen werden und nach der Bearbeitung gesendet werden (wohin??).
Beschreib dein Problem mal etwas genauer - ich werde es nicht lösen können - aber vielleicht hilft eine genauere Problembeschreibung den Profis hier, eine Lösung zu posten.
Gruß
Peter
Sub Fuellen_Formular()
Dim objIE As InternetExplorer
Dim objPage As HTMLDocument
Dim objInputName As HTMLInputElement
Dim objInputBetreff As HTMLInputElement
Dim objInputBeitrag As HTMLInputElement
Dim objSenden As HTMLInputElement
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.navigate "http://xlforum.herber.de/messages/263722.html"
Do Until objIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set objPage = objIE.document
Set objInputName = objPage.getElementsByName("name").Item
Set objInputBetreff = objPage.getElementsByName("subject").Item
Set objInputBeitrag = objPage.getElementsByName("body").Item
Set objSenden = objPage.getElementsByName("absenden").Item
objInputName.Value = "Testuser"
objInputBetreff.Value = "Beispiel"
objInputBeitrag.Value = _
"Folgendes Beispiel erstellt automatisch " & _
"eine Antwort auf deine Frage im Forum. " & _
"Bitte beachte, dass unter Extras/Verweise " & _
"die Einträge 'Microsoft Internet Controls' " & _
"(shdocvw.dll) und 'Microsoft HTML Object " & _
"Library (mshtml.tlb) eingebunden sind.
objSenden.Click
End Sub