Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > Windows Forms
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2018, 20:08   #1
nyqpblcTuk
Пользователь
 
Регистрация: 05.06.2016
Сообщений: 37
По умолчанию WebBrowser получение коллекции

Все привет, расскажите мне умные люди, перешел с VBA на VB, и не могу допетрить как мне реализовать мог код под vb.

вот мой код.

Код:
 IE.document.All.P1_NOMER.Value = NakladnayaObrezanie(ThisWorkbook.Sheets(1).Cells(n, 1))

IE.document.All.B5691949657452399.Click

Application.Wait (Now + TimeValue("0:00:15"))


Do While IE.Busy: DoEvents: Loop

Set elementSpizdit = IE.document.getElementById("report_5690543311452393_catch").getElementsByTagName("table")
Set DEC = IE.document.getElementById("P1_APP_")


i = Cells(Rows.Count, 1).End(xlUp).Row
i = i + 1
  
For t = 0 To 1
For r = 0 To (elementSpizdit(t).Rows.Length - 1)
For c = 0 To (elementSpizdit(t).Rows(r).Cells.Length - 1)
ThisWorkbook.Sheets(2).Cells(i + r + 1, c + 1) = elementSpizdit(t).Rows(r).Cells(c).innertext
Next c
Next r
Next t
Пытаюсь интегрировать в vb, меняю коечто.

Но главное, что он убирает SET у DEC и elementSpizdit

в итоге не заполняет коллекцию.

обрыл уже пол инета так понять и не могу

Код:
                WebBrowser1.Document.GetElementById("P1_NOMER").InnerText = NakladnayaObrezanie(DataGridView1(0, n).Value)
                WebBrowser1.Document.GetElementById("B5691949657452399").InvokeMember("click")

                While WebBrowser1.Document.GetElementById("report_5690543311452393_catch") Is Nothing
                    Application.DoEvents()
                End While

                Do While WebBrowser1.IsBusy = True
                    Application.DoEvents()
                Loop

                elementSpizdit = WebBrowser1.Document.GetElementById("report_5690543311452393_catch").GetElementsByTagName("table")
                DEC = WebBrowser1.Document.GetElementById("P1_APP_")


                For t = 0 To 1
                    For r = 0 To (elementSpizdit(t).Rows.Length - 1)
                        For c = 0 To (elementSpizdit(t).Rows(r).Cells.Length - 1)
                            oSheet.Cells(i + r + 1, c + 1).value = elementSpizdit(t).Rows(r).Cells(c).innertext
                        Next c
                    Next r
                Next t
trek.jpg
nyqpblcTuk вне форума Ответить с цитированием
Старый 09.12.2018, 20:15   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Взять Selenium и не париться.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
получение адреса ссылки в WebBrowser demiancz Работа с сетью в Delphi 0 02.05.2013 20:54
коллекции RAIDER_90 Общие вопросы по Java, Java SE, Kotlin 1 17.04.2012 22:02
Получение cookie и POST параметров через WebBrowser (C# .net2) alexplato Фриланс 2 21.01.2011 13:56
Коллекции van-ok Помощь студентам 0 25.12.2009 01:47
Коллекции Mike777 Общие вопросы Delphi 0 19.02.2007 11:38