Questione : Controllare l'opera dalla macro di VBA

Sto provando ad usare VBA per aprire un Web page in browser di opera e riempire due fields.
Problem è là è codice categoria di Opera.application come il
Is dello IE (InternetExplorer.Application) là comunque remotly per controllare l'opera usando VBA? il
I crede che debba usare VBA perché questa macro deve funzionare all'interno di Excel Spreadsheet.

Private che il riassunto secondario Next

di errore del
On di OpenSite (ByVal UserID come stringa, ByVal UserPW come stringa) oscura lo IE mentre Object
stabilito IE = IE del
di CreateObject (“Opera.application„). Visibile = IE di True
. Traversare
Do
del del login.asp " del nofollow "„ del rel=„ del _blank„ del target= " di https://somewebpage.com/login.asp del href= di (" ") se ie.readyState = 4 IE di Then
. Visibile =
ie.document. Form.UserID.Va Loop
di conclusione di Do
Else
DoEvents
dell'uscita di True
/>lue = UserID
ie.document. Form.UserPW.Value = UserPW
stabilito IE = Nothing
End Sub class= del

Risposta : Controllare l'opera dalla macro di VBA

Qui è un esempio di come “fissare„ su TUTTE E 72 le caselle di testo allo stesso alimentatore di evento a run-time in modo da non dovete manualmente generare 72 alimentatori differenti nell'ido.

Inoltre sono inclusi gli esempi di come realizzare a sinistra, a destra, su e giù i tasti:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:

Codice categoria pubblico Form1

    LastTextBox riservato come casella di testo = niente

    Maniglie riservate MyBase.Load del sommergibile Form1_Load (mittente di ByVal come System.Object, ByVal e come System.EventArgs)
        TB fioca come casella di testo
        Ctls fiochi () come controllo
        Per la i come numero intero = 0 - 71
            ctls = Me.Controls.Find (“casella di testo„ & i, allineare)
            Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                TB = l$tipo C (ctls (0), casella di testo)
                AddHandler tb.GotFocus, tb_GotFocus di AddressOf
            Concluder se
        Dopo
    Sommergibile dell'estremità

    tb_GotFocus secondario riservato (mittente di ByVal come oggetto, ByVal e come System.EventArgs)
        TB fioca come la casella di testo = l$tipo C (mittente, casella di testo)
        LastTextBox = TB
    Sommergibile dell'estremità

    Il btnRight_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnRight.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se ((i + 1) MOD 9) <> 0 allora
                    i = i + 1
                    Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
                    Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

    Il btnLeft_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnLeft.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se (MOD di i 9) <> 0 allora
                    i = i - 1
                    Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
                    Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

    Il btnUp_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnUp.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se i > 8 allora
                    i = i - 9
                    Ctls fiochi () come controllo = Me.Controls.Find (“casella di testo„ & i, allineare)
                    Se ctls. La lunghezza > 0 ctls di AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

    Il btnDown_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnDown.Click
        Se non IsNothing (LastTextBox) allora
            Oscurare la i come numero intero
            Oscurare lo strInt come stringa = LastTextBox.Name.Remove (0, “casella di testo„. Lunghezza)
            Se Integer.TryParse (strInt, i) allora
                Se i ctls < 63="" Then="" i="i"> di i 0 AndAlso TypeOf (0) allora è casella di testo
                        TB fioca come la casella di testo = l$tipo C (ctls (0), casella di testo)
                        TB. Fuoco ()
                    Concluder se
                Altrimenti
                    LastTextBox.Focus ()
                Concluder se
            Concluder se
        Concluder se
    Concludere il sommergibile

Concludere il codice categoria
Altre soluzioni  
 
programming4us programming4us