[VBA] Εκτύπωση web page

[othonas]

Καλησπέρα σε όλους . έχω ετοιμάσει κώδικα vba όπου κάνω login σε σελίδα και μετά από κάποια διαδικασία ανοίγει ένα νέο παράθυρο I.E. ( σαν pop-up ) το οποίο θέλω να τυπώσω με κώδικα .χρησιμοποιώ σαν κώδικα την εντολή ( ie.ExecWB 6, 2 ) αλλά τυπώνει τo πρώτο παράθυρο μόνο. Καμιά ιδέα?

[Tasos]

Καλημέρα!

Η προβολή του μέχρι τώρα κώδικα σου στο φόρουμ είναι απαραίτητη για να σου δώσουμε μια εύστοχη απάντηση.

Τάσος

[othonas]

καλημέρα και ευχαριστώ για την απάντηση ο κώδικας που χρησιμοποιώ

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

'Go to this Web Page!
ie.Navigate "https"


Do
If ie.ReadyState = 4 Then
ie.Visible = False
Exit Do
Else
DoEvents
End If
Loop


Application.Wait (Now + TimeValue("0:00:01"))

ie.Visible = True
ie.Document.all.Item("ssousername").Value = Sheets("test").Range("A1")
ie.Document.all.Item("password").Value = Sheets("test").Range("B1")
SendKeys "{ENTER}", True
Application.Wait (Now + TimeValue("0:00:01"))
ie.Document.Links(0).Click
Application.Wait (Now + TimeValue("0:00:01"))
ie.Document.all.Item("_eventId_chooseActAs").Click
Application.Wait (Now + TimeValue("0:00:01"))
ie.Document.Links(10).Click
Application.Wait (Now + TimeValue("0:00:02"))
ie.Document.Links(6).Click
Application.Wait (Now + TimeValue("0:00:02"))
ie.Document.getElementByID("_eventId_submitData"). Click
Application.Wait (Now + TimeValue("0:00:02"))
ie.ExecWB 6, 2

[Tasos]

Ευχαριστώ!

Δεν είναι 100% σίγουρο ότι τα αποτελέσματα των μεθόδων SendKeys και Application.Wait () θα είναι πάντα τα αναμενόμενα.

Το αντικείμενο Webbrowser σε μια φόρμα (Userform) περιλαμβάνει αρκετά συμβάντα (Events) που θα επιτρέψουν ένα αξιόπιστο Login, την ακριβή περιήγηση όπως επίσης και τη διαχείριση του νέου παραθύρου προς εκτύπωση.

Φυσικά χωρίς να γνωρίζει κανείς το URL (το αρχικό και και τα υπόλοιπα Links(0), Links(6) κλπ.
και χωρίς τα δεδομένα πρόσβασης (καταλαβαίνω ότι είναι απόρρητα) δεν μπορεί να εισχωρήσει στη συγκεκριμένη ιστοσελίδα και να σου δώσει περισσότερη βοήθεια.

Δεν υπάρχει κάποια συγκεκριμένη συνταγή για το ζητούμενο σου.
Κάθε ιστοσελίδα χρησιμοποιεί διαφορετικές μεθόδους σύνδεσης και γενικά διαδραστικότητας των χρηστών της.

Ξεκίνα πάντως δημιουργώντας μια φόρμα από όπου θα ελέγχεις το αντικείμενο WebBrowser καλύτερα από το αντικείμενο InternetExplorer.

Φιλικά

Τάσος