Question : Commander l'opéra du macro de VBA

J'essaye d'employer VBA pour ouvrir une page Web en navigateur d'opéra et compléter deux fields.
Problem est-il là n'est-il aucune classe d'Opera.application comme le
Is d'IE (InternetExplorer.Application) là de toute façon pour commander remotly l'opéra en utilisant VBA ? le
I croient que je dois employer VBA parce que ce macro doit fonctionner à l'intérieur de d'Excel Spreadsheet.

Private le résumé que secondaire Next

d'erreur du
On d'OpenSite (identification de l'utilisateur de ByVal comme corde, ByVal UserPW comme corde) obscurcissent l'IE pendant qu'Object
réglé IE = IE de
de CreateObject (« Opera.application »). Évident = IE de True
.
Do
le " du de login.asp de " nofollow " de rel= de » _blank » de target= de " https://somewebpage.com/login.asp » diriger de (") s'ie.readyState = 4 IE de Then
. Évident =
ie.document. Form.UserID.Va Loop
de fin de Do
Else
DoEvents
de sortie de True
/>lue = UserID
ie.document. Form.UserPW.Value = UserPW
réglé IE = Nothing
End Sub class= de

Réponse : Commander l'opéra du macro de VBA

Voici un exemple de la façon « câbler vers le haut » de CHACUNE DES 72 boîtes à textes au même traiteur d'événement à d'exécution ainsi vous ne devez pas manuellement créer 72 traiteurs différents dans l'ide.

Également inclus sont des exemples de la façon mettre en application à gauche, bien, à travers des boutons :
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 publique Form1

    LastTextBox privé comme boîte à textes = rien

    Poignées privées MyBase.Load du sous-marin Form1_Load (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs)
        Faible TB comme boîte à textes
        Faibles ctls () comme commande
        Pour I comme nombre entier = 0 à 71
            ctls = Me.Controls.Find (« boîte à textes » et I, vrai)
            Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                TB = C (ctls (0), boîte à textes)
                AddHandler tb.GotFocus, tb_GotFocus d'AddressOf
            Finir si
        Après
    Sous-marin d'extrémité

    tb_GotFocus secondaire privé (expéditeur de ByVal comme objet, ByVal e comme System.EventArgs)
        Faible TB comme boîte à textes = C (expéditeur, boîte à textes)
        LastTextBox = TB
    Sous-marin d'extrémité

    Le btnRight_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnRight.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si ((I + 1) mod 9) <> 0 puis
                    i = I + 1
                    Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
                    Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

    Le btnLeft_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnLeft.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si (mod d'I 9) <> 0 puis
                    i = I - 1
                    Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
                    Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

    Le btnUp_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnUp.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si I > 8 puis
                    i = I - 9
                    Faibles ctls () comme commande = Me.Controls.Find (« boîte à textes » et I, vrai)
                    Si ctls. La longueur > 0 les ctls d'AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

    Le btnDown_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnDown.Click
        Sinon IsNothing (LastTextBox) puis
            Obscurcir I comme nombre entier
            Obscurcir le strInt comme corde = LastTextBox.Name.Remove (0, « boîte à textes ». Longueur)
            S'Integer.TryParse (strInt, i) alors
                Si les ctls < 63="" Then="" i="i"> d'I 0 AndAlso TypeOf (0) est boîte à textes alors
                        Faible TB comme boîte à textes = C (ctls (0), boîte à textes)
                        TB. Foyer ()
                    Finir si
                Autrement
                    LastTextBox.Focus ()
                Finir si
            Finir si
        Finir si
    Finir le sous-marin

Finir la classe
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us