Vraag : De Opera van de controle van Macro VBA

Probeer Ik om VBA om een Web-pagina in browser van de Opera twee fields.
Problem is daar is geen klasse Opera.application als D.W.Z. (InternetExplorer.Application in te vullen te openen en te gebruiken)
Is daar hoe dan ook remotly controleOpera gebruikend VBA?
I gelooft dat ik VBA moet gebruiken omdat deze macro binnen van Excel Spreadsheet.

Private moet lopen de Sub (ByVal User-id aangezien Koord, ByVal UserPW als Koord)
On Fout OpenSite Next

Schemerig d.w.z. als Geplaatste Object
d.w.z. = CreateObject („Opera.application“)
d.w.z. hervat. Zichtbaar = True
d.w.z. Navigeer („ https://somewebpage.com/ login.asp " )
Do
als ie.readyState = 4 Then
d.w.z. Zichtbaar =/> het Eind If
Loop

ie.document van Do
Else
DoEvents
. Form.UserID.Value = UserID
ie.document. Form.UserPW.Value = UserPW
plaatsen d.w.z. = Nothing
End Sub

Antwoord : De Opera van de controle van Macro VBA

Hier is een voorbeeld van hoe te ALLE 72 TextBoxes aan de zelfde gebeurtenismanager bij run-time „omhoog“ telegraferen zodat moet u niet manueel 72 verschillende managers in winde creëren.

Ook worden de voorbeelden van omvat hoe te, net, boven en beneden knopen links uit te voeren:
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:

Openbare Klasse Form1

    Privé LastTextBox als TextBox = niets

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Form1_Load MyBase.Load
        Schemerige tb als TextBox
        Schemerige ctls () als Controle
        Voor I als Geheel = 0 tot 71
            ctls = Me.Controls.Find („TextBox“ & Ware I,)
            Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                tb = C (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus AddressOf
            Eind als
        Daarna
    Sub van het eind

    Privé Subtb_GotFocus (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
        Schemerige tb als TextBox = C (afzender, TextBox)
        LastTextBox = tb
    Sub van het eind

    Privé SubbtnRight_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnRight.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als ((I + 1) Mod. 9) <> 0 toen
                    i = I + 1
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnLeft_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnLeft.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als (Mod. 9 van I) <> 0 toen
                    i = I - 1
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnUp_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnUp.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als I > 8 toen
                    i = I - 9
                    Schemerige ctls () als Controle = Me.Controls.Find („TextBox“ & Ware I,)
                    Als ctls. De lengte > 0 AndAlso TypeOf ctls (0) is dan TextBox
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

    Privé SubbtnDown_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnDown.Click
        Als niet IsNothing (LastTextBox) toen
            Schemerige I als Geheel
            Schemerige strInt als Koord = LastTextBox.Name.Remove (0, „TextBox“. Lengte)
            Als Integer.TryParse (strInt, I) Dan
                Als I < 63="" Then="" i="i"> 0 AndAlso TypeOf ctls (0) dan TextBox is
                        Schemerige tb als TextBox = C (ctls (0), TextBox)
                        tb. Nadruk ()
                    Eind als
                Anders
                    LastTextBox.Focus ()
                Eind als
            Eind als
        Eind als
    Sub van het eind

De Klasse van het eind
Andere oplossingen  
 
programming4us programming4us