Mit Excel VBA Internet Seite (JavaScript) füllen

Computer: Software & Programmierung Office Software
#1

Hi,

ich versuch gerade eine Internet Seite von einer Excel Tabelle aus zu befüllen.

anhand von VBA:

 VAPIANO REPORT 





 Please enter your Restaurantcode




[CANCEL](index.php)








das ist der Quelle code von der Seite.

und mein Code vorher war:


    Private Sub CommandButton1\_Click()
    Dim ie As InternetExplorer
    Set ie = CreateObject("InternetExplorer.Application")
    Dim objCollection As HTMLDocument
    Dim doc As HTMLDocument
    Dim PageForm As HTMLFormElement
    Dim PageFormDeeper As HTMLFormElement
    
    ie.Visible = True
    
    ie.Navigate "http://xxxxxxxxxxxxxxx/index.php"
    Application.Wait (3000)
    SendKeys ("{Enter}")
    Do While ie.Busy Or Not ie.ReadyState = IE\_READYSTATE.complete: DoEvents: Loop
    
    
    Set doc = ie.Document
    Set PageForm = doc.forms(0)
    PageForm.Elements("rc").Value = Sheets("Email Adressen").Range("E10")
    PageForm.submit
    
    Do While ie.Busy Or Not ie.ReadyState = IE\_READYSTATE.complete: DoEvents: Loop
    
    Set doc = ie.Document
    Set PageForm = doc.forms(0)
    PageForm.Elements("rd").Value = Format(datum, "YYYY-MM-DD")
    PageForm.Elements("gs").Value = Round(CDec(brutto), 2)
    PageForm.Elements("ns").Value = Round(CDec(netto), 2)
    PageForm.Elements("gc").Value = gaesteAnzahl
    PageForm.Elements("tl").Value = Round(CDec(mitarbeiterkosten), 2)
    PageForm.Elements("ch").Value = Round(CDec(mitarbeiterStunden), 2)
    PageForm.submit




aber die Webseite hat ein Update gemacht und jetzt bekomm ich immer eine Fehlermeldung beim aufrufen von PageForm.Elements("rc").Value = Sheets("Email Adressen").Range("E10")
er sagt Objektvariable oder With-Blockvariable nicht festgelegt.

Ich hoffe mir kann da einer helfen.

Vielen dank im voraus.

Gruß
Leo
#2

aber die Webseite hat ein Update gemacht und jetzt bekomm ich
immer eine Fehlermeldung beim aufrufen von
PageForm.Elements(„rc“).Value = Sheets(„Email
Adressen“).Range(„E10“)
er sagt Objektvariable oder With-Blockvariable nicht
festgelegt.

Hallo Leo,

im Code konnte ich nix entdecken. Und der Code hat wohl funktioniert
bis zum Seitenupdate. Ist das richtig?

Dein gezeigter Seitenquellcode ist wohl der nach dem Update.
Wie sah denn der Quellcode vor dem Update aus?

Die Original Webadresse dieser wohl Stundenabrechnung von
Angestellten der Esstempel Kette kannste nicht posten?
Dann könnte ich mich daran versuchen…

Gruß
Reinhard