Fråga : Kontrollera operan från VBA-makro

Pröva förmiddag I att använda VBA för att öppna en rengöringsduksida i operawebbläsaren och påfyllningen fields.
Problem är itu där är inga Opera.application klassificerar lik
Is för IE (InternetExplorer.Application) där på något sätt remotly för att kontrollera operan genom att använda VBA?
I tror att jag måste använda VBA, därför att denna makro måste köra insida av Next

för meritförteckningen för felet för
On för Excel Spreadsheet.

Private en underOpenSite (ByVal UserID som stränger, ByVal UserPW som stränger) dunkel ie som den Object
uppsättningen ie = ie för CreateObject (”Opera.application”)
. Synligt = True
ie. Navigera ( för login.asp för nofollow "” för rel= för _blank " ”för ")
Do
om ie.readyState = 4 Then
ie. Synligt = True
går ut Do
Else
DoEvents
avslutar If
Loop

ie.document. Form.UserID.Value = UserID
ie.document. Form.UserPW.Value = UserPW
uppsättning ie = Nothing
End Sub " klar "

Svar : Kontrollera operan från VBA-makro

Är här ett exempel av hur ”binder upp” ALLA 72 textBoxesna till den samma händelseförlagehanteraren på run-time, så du måste inte manuellt att skapa 72 olika förlagehanterare i IDEN.

Också inklusive är exempel av hur man genomför lämnat, rätten, knäppas upp och ner:
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:

Allmänhet klassificerar Form1

    Privata LastTextBox som TextBox = ingenting

    Den privata suben Form1_Load (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar MyBase.Load
        Dunkel tb som TextBox
        Dunkla ctls () som kontrollerar
        För I som heltal = 0 till 71
            ctls = Me.Controls.Find (”TextBox” & I som är riktigt)
            Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                tb = CType (ctls (0), textBoxen)
                AddHandler tb.GotFocus, AddressOf tb_GotFocus
            Avsluta om
        Därefter
    Avsluta suben

    Privat undertb_GotFocus (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs)
        Dunkel tb som textBoxen = cTypen (avsändare, TextBox)
        LastTextBox = tb
    Avsluta suben

    Privat underbtnRight_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnRight.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om ((I + 1) ändring 9) <> 0 därefter
                    i = I + 1
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnLeft_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnLeft.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om (I-ändring 9) <> 0 därefter
                    i = I - 1
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnUp_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnUp.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om I > 8 därefter
                    i = I - 9
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnDown_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnDown.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om ctls < 63="" Then="" i="i"> för I 0 AndAlso TypeOf (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

Avsluta klassificerar
Andra lösningar  
 
programming4us programming4us