Вопрос : Контролируйте оперу от макроса VBA

Я пытаюсь использовать VBA для того чтобы раскрыть страницу стержня в браузере оперы и заполнить внутри 2 fields.
Problem там будет никаким типом Opera.application как
Is IE (InternetExplorer.Application) там так или иначе remotly для того чтобы контролировать оперу использующ VBA?
I верит что я должен использовать VBA потому что этот макрос должен побежать внутри Эксел Spreadsheet.

Private Sub резюме Next

ошибки
On OpenSite, котор (ByVal UserID как шнур, ByVal UserPW как шнур) затемняет ie по мере того как Object
установленное ie =
CreateObject («Opera.application») ie. Видимо = ie True
. Проводите
Do
login.asp " nofollow "» rel=» _blank» target= " https://somewebpage.com/login.asp href= (" ") если ie.readyState = 4 ie Then
. Видимо =
ie.document. Form.UserID.Va Loop
конца Do
Else
DoEvents
выхода True
/>lue = UserID
ie.document. Form.UserPW.Value = UserPW
установленное ie = Nothing
End Sub class=

Ответ : Контролируйте оперу от макроса VBA

Здесь пример как «связать проволокой вверх по» ВСЕМ 72 TextBoxes к такому же укротителю случая на продолжитеном по времени поэтому вы не должны ручно создать 72 по-разному укротителя в IDE.

Также включены примеры как снабдить налево, справедливо, вверх и вниз кнопок:
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:

Общественный тип Form1

    Приватное LastTextBox как TextBox = ничего

    Приватные ручки MyBase.Load подводной лодки Form1_Load (прислужника ByVal как System.Object, ByVal e как System.EventArgs)
        Тусклый tb как TextBox
        Тусклые ctls () как управление
        Для I как интежер = от 0 до 71
            ctls = Me.Controls.Find («TextBox» & I, поистине)
            Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                tb = CType (ctls (0), TextBox)
                AddHandler tb.GotFocus, tb_GotFocus AddressOf
            Закончитесь если
        Затем
    Подводная лодка конца

    Приватное Sub tb_GotFocus (прислужник ByVal как предмет, ByVal e как System.EventArgs)
        Тусклый tb как TextBox = CType (прислужник, TextBox)
        LastTextBox = tb
    Подводная лодка конца

    Приватное Sub btnRight_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnRight.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если (, то (I + 1) Mod 9) <> 0 после этого
                    iий = I + 1
                    Тусклые ctls () как управление = Me.Controls.Find («TextBox» & I, поистине)
                    Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnLeft_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnLeft.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если (Mod I 9) <> 0 после этого
                    iий = I - 1
                    Тусклые ctls () как управление = Me.Controls.Find («TextBox» & I, поистине)
                    Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnUp_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnUp.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если I > 8 после этого
                    iий = I - 9
                    Тусклые ctls () как управление = Me.Controls.Find («TextBox» & I, поистине)
                    Если ctls. Длиной > 0 ctls AndAlso TypeOf (0) будет TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnDown_Click (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnDown.Click
        Если не IsNothing (LastTextBox) после этого
            Затемните I как интежер
            Затемните strInt как шнур = LastTextBox.Name.Remove (0, «TextBox». Длина)
            Если Integer.TryParse (strInt, I) после этого
                Если ctls < 63="" Then="" i="i"> I 0 AndAlso TypeOf (0) будут TextBox после этого
                        Тусклый tb как TextBox = CType (ctls (0), TextBox)
                        tb. Фокус ()
                    Закончитесь если
                Еще
                    LastTextBox.Focus ()
                Закончитесь если
            Закончитесь если
        Закончитесь если
    Закончите подводную лодку

Закончите тип
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us