Frage : Oper vom VBA Makro steuern

Ich versuche, VBA zu verwenden, um eine Webseite im Operenbrowser zu öffnen und zwei fields.
Problem auszufüllen ist dort ist keine Opera.application Kategorie wie IE (InternetExplorer.Application) das Is dort irgendwie, zum von Oper mit VBA remotly zu steuern?
I glauben, dass ich VBA verwenden muss, weil dieses Makro innerhalb Excels Spreadsheet.

Private laufen muss, das VorOpenSite (ByVal UserID als Schnur, ByVal UserPW als Schnur)
On Störungs-Zusammenfassung Next

IE während gesetztes Object
IE = CreateObject („Opera.application“)
IE verdunkeln. Sichtbar = True
IE. („ https://somewebpage.com/ login.asp " )
Do
steuern wenn ie.readyState = 4 Then
IE. Sichtbar = True
Ausgang Do
Else
DoEvents
Ende If
Loop

ie.document. Form.UserID.Value = UserID
ie.document. Form.UserPW.Value = UserPW
gesetzt IE = Nothing
End Sub

Antwort : Oper vom VBA Makro steuern

Ist hier ein Beispiel von, wie man „herauf“ ALLE 72 area per informazioni zur gleichen Ereigniszufuhr an Laufzeit verdrahtet, also müssen Sie manuell 72 verschiedene Zufuhren nicht im IDE herstellen.

Auch eingeschlossen Beispiele von, wie man nach links nach rechts auf und ab Knöpfe einführt:
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:
6:
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:

Allgemeine Kategorie Form1

    Privates LastTextBox als area per informazioni = nichts

    Private Handgriffe MyBase.Load des Unterseeboot-Form1_Load (ByVal Absender als System.Object, ByVal e als System.EventArgs)
        Schwache TB als area per informazioni
        Schwache ctls () als Steuerung
        Für i als ganze Zahl = 0 bis 71
            ctls = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
            Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                TB = C (ctls (0), area per informazioni)
                AddHandler tb.GotFocus, AddressOf tb_GotFocus
            Beenden wenn
        Zunächst
    Enden-Unterseeboot

    Privates Vortb_GotFocus (ByVal Absender als Gegenstand, ByVal e als System.EventArgs)
        Schwache TB als area per informazioni = C (Absender, area per informazioni)
        LastTextBox = TB
    Enden-Unterseeboot

    Privates VorbtnRight_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnRight.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn ((i + 1) Umb. 9) <> 0 dann
                    I = i + 1
                    Schwache ctls () als Steuerung = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
                    Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

    Privates VorbtnLeft_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnLeft.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn (i Umb. 9) <> 0 dann
                    I = i - 1
                    Schwache ctls () als Steuerung = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
                    Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

    Privates VorbtnUp_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnUp.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn i > 8 dann
                    I = i - 9
                    Schwache ctls () als Steuerung = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
                    Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

    Privates VorbtnDown_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnDown.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn i < 63="" Then="" i="i"> 0 AndAlso TypeOf ctls (0) area per informazioni dann ist
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

Kategorie beenden
Weitere Lösungen  
 
programming4us programming4us