Вызов страницы браузера

@Hikitosik · Регистрация: 05.12.2016

Студворк — интернет-сервис помощи студентам

Добрый день, форумчане!!!!

У меня есть файл эксель, где в столбец прописаны ID. Также у меня есть url сайта типа www.internet/lolnumber{ID}. Мне нужно вызвать эти URL, где на месте {ID} должны стоять значения из столбца в экселе. Они должны открывать страницу и закрывать.

(количество ячеек в столбце неизвестно)

Буду рад и благодарен любой вашей подсказке!

Добавлено через 6 минут
Нашёл вот такой код, не понял, где тут указывается ячейка и значение в ней

Visual Basic
1
2
3
4
5
6
7
8
9
 
With CreateObject("Microsoft.XMLHTTP")
     .Open "GET", strURL, False
     .Send
     If .StatusText = "OK" Then
        s = .ResponseText 'HTML-код страницы
        MsgBox s
     End If
End With

@Kubuntovod · 11.03.2020, 15:01

С такими задумками надо курить XMLHttpRequest.

Добавлено через 1 минуту

Сообщение от Hikitosik

Нашёл вот такой код, не понял, где тут указывается ячейка и значение в ней

Нет здесь указания ячеек. Урл готовится заранее, а здесь только передаётся в функцию, параметром strURL.

@Hikitosik · 11.03.2020, 15:04 **[ТС]**

Спасибо за ответ!

Значит перед этим кодом нужно написать что-то такое:

Visual Basic
1
strURL = Cells(1, 1)

Добавлено через 33 секунды
А как тогда сделать цикл по неизвестному числу ячеек в VBA?

@aequit · 11.03.2020, 15:11

Сообщение от Hikitosik

цикл по неизвестному числу ячеек в VBA?

Visual Basic
1
2
3
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  strURL = Cells(i, 1)
Next i

@Hikitosik · 11.03.2020, 15:19 **[ТС]**

Получается что-то подобное. Верно?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub MMM()
For i = 1 To 10000000000 Step 1
    IF Cells(i, 1).Value = 0 Then
        Exit Sub
    End If
 
strURL = "http://www.excelworld.ru/"&Cells(1, 1)
 
With CreateObject("Microsoft.XMLHTTP")
     .Open "GET", strURL, False
     .Send
     If .StatusText = "OK" Then
        s = .ResponseText 'HTML-код страницы
        MsgBox s
     End If
End With
 
Next
End Sub

Добавлено через 6 минут
Попробовал такой код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ID()
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  strURL = Cells(i, 1)
  With CreateObject("Microsoft.XMLHTTP")
     .Open "GET", strURL, False
     .Send
     If .StatusText = "OK" Then
        s = .ResponseText 'HTML-êîä ñòðàíèöû
        MsgBox s
     End If
End With
Next i
 
End Sub

Пишет, что "The download of the specified resource has failed". В ячейки прописывал ссылки с запросов яндекса

@Kubuntovod · 11.03.2020, 15:26

Сообщение от Hikitosik

strURL = Cells(1, 1)

Лучше так:

Visual Basic
1
strURL = Cells(1, 1).Value

Сообщение от Hikitosik

Пишет, что "The download of the specified resource has failed". В ячейки прописывал ссылки с запросов яндекса

Подозреваю, Яндекс такое долго терпеть не будет. Забанит Вас нафиг.

@Hikitosik · 11.03.2020, 15:30 **[ТС]**

Добавил вместо ячейки её значение. Ломается на шестой строчке в команде " .Send"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ID()
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  strURL = Cells(i, 1).Value
  With CreateObject("Microsoft.XMLHTTP")
     .Open "GET", strURL, False
     .Send
     If .StatusText = "OK" Then
        s = .ResponseText
        MsgBox s
     End If
End With
Next i
 
End Sub

@Hikitosik · 11.03.2020, 15:43 **[ТС]**

Написал обращение к сайту букинга, выдало что-то такое.

Что это может означать? Это какая-то информация по скрипту самого сайта или что?)))))

@aequit · 11.03.2020, 15:48

Сообщение от Hikitosik

Ломается на шестой строчке в команде " .Send"

Send - это для того, чтобы что-либо отправить на сайт. Обычно после Send прописывают переменную или текст.

Сообщение от Hikitosik

Это какая-то информация по скрипту самого сайта или что?

Это html код страницы.
Непонятно, что Вам вообще требуется и для чего?

@Hikitosik · 11.03.2020, 16:02 **[ТС]**

мне нужно открыть страницу, а потом закрыть

@Kubuntovod · 11.03.2020, 17:20

Сообщение от Hikitosik

мне нужно открыть страницу, а потом закрыть

Вы хотите внутри Excel видеть результат такой же, как в браузере?

@Hikitosik · 11.03.2020, 20:25 **[ТС]**

Вообще не хочу никак изменять эксель-файл. Просто хочу открыть и закрыть ссылки из ячеек

@Kubuntovod · 12.03.2020, 04:36

Сообщение от Hikitosik

Просто хочу открыть и закрыть ссылки из ячеек

Здесь главный вопрос, какой смысл Вы вкладываете в слово "открыть", если Вас удивляет ответ сервера.

@Hikitosik · 12.03.2020, 12:41 **[ТС]**

Другими словами: хочется, чтобы открылось так же, как это сделал бы человек вручную, введя эти ссылки в адресную строку и нажав на ENTER

@Kubuntovod · 12.03.2020, 15:05

Ага, я был прав. Ну, тогда Вам надо встраивать "браузер" в свой макрос. Попробуйте, что-то типа этого.

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@Hikitosik 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 86
	11.03.2020, 15:43 [ТС]
	Написал обращение к сайту букинга, выдало что-то такое. Что это может означать? Это какая-то информация по скрипту самого сайта или что?))))) Миниатюры 0

@Hikitosik 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 86
	11.03.2020, 16:02 [ТС]
	мне нужно открыть страницу, а потом закрыть 0

@Hikitosik 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 86
	11.03.2020, 20:25 [ТС]
	Вообще не хочу никак изменять эксель-файл. Просто хочу открыть и закрыть ссылки из ячеек 0

@Hikitosik 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 86
	12.03.2020, 12:41 [ТС]
	Другими словами: хочется, чтобы открылось так же, как это сделал бы человек вручную, введя эти ссылки в адресную строку и нажав на ENTER 0

@Kubuntovod 3305 / 933 / 201 Регистрация: 14.01.2013 Сообщений: 4,773
	12.03.2020, 15:05
	Ага, я был прав. Ну, тогда Вам надо встраивать "браузер" в свой макрос. Попробуйте, что-то типа этого. 1

Вызов страницы браузера

Решение