Pergunta : Controlar a ópera do macro de VBA

Eu estou tentando usar VBA para abrir um Web page no navegador da ópera e preencher dois fields.
Problem não é lá é nenhuma classe de Opera.application como o
Is do IE (InternetExplorer.Application) lá de qualquer maneira para controlar remotly a ópera usando VBA? o
I acredita que eu devo usar VBA porque este macro deve funcionar dentro de Excel Spreadsheet.

Private que o resumo secundário Next

do erro do
On de OpenSite (ByVal UserID como a corda, ByVal UserPW como a corda) escurece o IE enquanto Object
ajustado IE = de
de CreateObject (“Opera.application”) IE. Visível = IE de True
. Navegar (do “ do login.asp " do nofollow " do” rel=” do _blank do” target= " de https://somewebpage.com/login.asp do href= ") o
Do
se ie.readyState = 4 IE de Then
. Visível =
ie.document de If
Loop
do fim de Do
Else
DoEvents
da saída de True
. Form.UserID.Value = UserID
ie.document. Form.UserPW.Value = UserPW
ajustado IE = Nothing
End Sub class= do

Resposta : Controlar a ópera do macro de VBA

Está aqui um exemplo de como “prender acima” de TODOS OS 72 TextBoxes ao mesmo alimentador de evento em run-time assim que você não tem que manualmente criar 72 alimentadores diferentes no IDE.

Igualmente são incluídos os exemplos de como executar à esquerda, para a direita, acima de e abotoam-se para baixo:
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:

Classe pública Form1

    LastTextBox confidencial como o TextBox = nada

    Punhos confidenciais MyBase.Load do submarino Form1_Load (remetente de ByVal como System.Object, ByVal e como System.EventArgs)
        TB não ofuscante como o TextBox
        Ctls não ofuscantes () como o controle
        Para i como o inteiro = 0 a 71
            ctls = Me.Controls.Find (“TextBox” & i, verdadeiro)
            Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                TB = C (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus de AddressOf
            Terminar se
        Em seguida
    Submarino da extremidade

    tb_GotFocus secundário confidencial (remetente de ByVal como o objeto, ByVal e como System.EventArgs)
        TB não ofuscante como o TextBox = o C (remetente, TextBox)
        LastTextBox = TB
    Submarino da extremidade

    O btnRight_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnRight.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se ((i + 1) modificação 9) <> 0 então
                    i = i + 1
                    Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
                    Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

    O btnLeft_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnLeft.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se (modificação 9 de i) <> 0 então
                    i = i - 1
                    Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
                    Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

    O btnUp_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnUp.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se i > 8 então
                    i = i - 9
                    Ctls não ofuscantes () como o controle = o Me.Controls.Find (“TextBox” & o i, verdadeiro)
                    Se ctls. O comprimento > 0 os ctls de AndAlso TypeOf (0) é TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

    O btnDown_Click secundário confidencial (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura btnDown.Click
        Se não IsNothing (LastTextBox) então
            Escurecer i como o inteiro
            Escurecer o strInt como a corda = o LastTextBox.Name.Remove (0, “TextBox”. Comprimento)
            Se Integer.TryParse (strInt, i) então
                Se os ctls < 63="" Then="" i="i"> de i 0 AndAlso TypeOf (0) são TextBox então
                        TB não ofuscante como o TextBox = o C (ctls (0), TextBox)
                        TB. Foco ()
                    Terminar se
                Mais
                    LastTextBox.Focus ()
                Terminar se
            Terminar se
        Terminar se
    Terminar o submarino

Terminar a classe
Outras soluções  
 
programming4us programming4us