Cuestión : Controlar la ópera de la macro de VBA

¿Estoy intentando utilizar VBA para abrir un Web page en hojeador de la ópera y completar dos fields.
Problem es allí no es ninguna clase de Opera.application como el
Is del IE (InternetExplorer.Application) allí de todos modos remotly para controlar ópera usando VBA? el
I cree que debo utilizar VBA porque esta macro debe funcionar dentro de Excel Spreadsheet.

Private que el curriculum vitae secundario Next

del error del
On de OpenSite (ByVal UserID como secuencia, ByVal UserPW como secuencia) amortigua el IE mientras que Object
determinado IE = IE del
de CreateObject (“Opera.application”). Visible = IE de True
. Navegar (“ del login.asp del nofollow " del” rel= del _blank " del” target=” de https://somewebpage.com/login.asp del href= " del ") el
Do
si ie.readyState = 4 IE de Then
. Visible =
ie.document de If
Loop
del final de Do
Else
DoEvents
de la salida de True
. Form.UserID.Value = UserID
ie.document. Form.UserPW.Value = UserPW
determinado IE = Nothing
End Sub class= del

Respuesta : Controlar la ópera de la macro de VBA

Aquí está un ejemplo de cómo “atar con alambre encima” de los 72 TextBoxes al mismo tratante de acontecimiento en run-time así que usted no tiene que manualmente crear a 72 diversos tratantes en el IDE.

También se incluyen los ejemplos de cómo ejecutar a la izquierda, a la derecha, arriba y abajo de los botones:
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:

Clase pública Form1

    LastTextBox privado como TextBox = nada

    Manijas privadas MyBase.Load del submarino Form1_Load (remitente de ByVal como System.Object, ByVal e como System.EventArgs)
        TB dévil como TextBox
        Ctls déviles () como control
        Para i como número entero = 0 a 71
            ctls = Me.Controls.Find (“TextBox” y i, verdad)
            Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                TB = C (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus de AddressOf
            Terminar si
        Después
    Submarino del extremo

    tb_GotFocus secundario privado (remitente de ByVal como objeto, ByVal e como System.EventArgs)
        TB dévil como el TextBox = C (remitente, TextBox)
        LastTextBox = TB
    Submarino del extremo

    El btnRight_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnRight.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si ((i + 1) MOD 9) <> 0 entonces
                    i = i + 1
                    Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
                    Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

    El btnLeft_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnLeft.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si (MOD de i 9) <> 0 entonces
                    i = i - 1
                    Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
                    Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

    El btnUp_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnUp.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si i > 8 entonces
                    i = i - 9
                    Ctls déviles () como control = Me.Controls.Find (“TextBox” y i, verdad)
                    Si ctls. La longitud > 0 los ctls de AndAlso TypeOf (0) entonces es TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

    El btnDown_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnDown.Click
        Si no IsNothing (LastTextBox) entonces
            Amortiguar i como número entero
            Amortiguar el strInt como la secuencia = LastTextBox.Name.Remove (0, “TextBox”. Longitud)
            Si Integer.TryParse (strInt, i) entonces
                Si los ctls < 63="" Then="" i="i"> de i 0 AndAlso TypeOf (0) entonces son TextBox
                        TB dévil como el TextBox = C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar si
                
                    LastTextBox.Focus ()
                Terminar si
            Terminar si
        Terminar si
    Terminar el submarino

Terminar la clase
Otras soluciones  
 
programming4us programming4us