Можно ли осуществить WEB-запрос средствами VBA

@bboyRALF · Регистрация: 09.07.2012

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

Доброго времени суток, уважаемые!
Столкнулся с проблемой, написал вэб запрос на сайт, он к нему обращается. Но нужно чтобы он копировал со страницы информацию, к примеру одно поле инн. Ниже приведен вэб запрос

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub copy()
    Dim CStart As Range, BaseStart As Range, Firm$, Mail$, Face$, Ex$, NotEx$, Success As Boolean
    Dim yBase&
    Dim ra As Range, oCell As Range, n As Long: On Error Resume Next
    With ThisWorkbook.Sheets(Sheets1)
     
        Set CStart = .[A1] 'êîäs îðãàíèçàöèé
        For i = 1 To .UsedRange.End(xlDown).Row + 100
            If Val(Right(.Cells(4 + i, 1), 19)) > 1 Then
              
                 URL$ = "http://www.bus.gov.ru/public/register/agencyInfo.html?agency=" & Right(.Cells(4 + i, 1), 19)
                 
                 Set ra = GetQueryRange(URL$, "3")    ' âûïîëíÿåì âåá-çàïðîñ
                 ' ïåðåáèðàÿ ÿ÷åéêè òàáëèöû-ðåçóëüòàòà, âûâîäèì ñïèñîê òåì â îêíî Immediate
                 For Each oCell In ra.Columns(7).Cells
                      If oCell.Hyperlinks.Count Then
                          n = n + 1: Debug.Print "Sheets1" & n, oCell.Text

а как именно чтобы он тянул информацию со страницы так и не понял
Пример http://www.bus.gov.ru/public/r... ency=49952 с этой ссылки

Скрипт · 26.09.2012, 15:18

bboyRALF, какого года у вас Excel?

GetQueryRange - это функция созданная каким-то одним программистом и не входит в состав языка VBA и не является членом VBA Excel (я в интеренте через Гугл нашёл). Смысл здесь выкладывать имя этой функции?

@bboyRALF · 26.09.2012, 15:29 **[ТС]**

Извините, не до конца все выложил
вот функция, которая выполняет запрос

Visual Basic
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
Function GetQueryRange(ByVal SearchLink$, Optional ByVal Tables$) As Range
    On Error Resume Next: Err.Clear
    Dim tmpSheet As Worksheet, tmpSh As Worksheet
     
    With ThisWorkbook
        ' Ïåðåáèðàåì âñå ëèñòû êíèãè
        For Each tmpSh In .Worksheets
            If tmpSh.Name = "tmpWQ1" Then
                'Åñëè ñóùåñòâóåò ëèñò è èìåíåì "tmpWQ1",
                ' òî ïðèñâàèâàåì ññûëêó íà íåãî ïåðåìåííîé tmpSheet
                Set tmpSheet = tmpSh
                Exit For
            End If
        Next tmpSh
        'Åñëè ëèñò è èìåíåì "tmpWQ1" íå ñóùåñòâóåò
        If tmpSheet Is Nothing Then
           Application.ScreenUpdating = False
           'òî äîáàâëÿåì â êíèãó íîâûé ëèñò è ïðèñâàèâàåì ññûëêó íà íåãî ïåðåìåííîé tmpSheet
           Set tmpSheet = .Worksheets.Add(After:=.Sheets(Sheets.Count))
           ' Ïåðåèìåíîâûâàåì âíîâüäæîáàâëåííûé ëèñò íà "tmpWQ1"
           tmpSheet.Name = "tmpWQ1"
           ' ñêðûâàåì ýòîò ëèñò
           tmpSheet.Visible = xlSheetVeryHidden
        End If
     End With
     If tmpSheet Is Nothing Then
         msg$ = "Íå óäàëîñü äîáàâèòü ñêðûòûé ëèñò «tmpWQ1» â ôàéë ïðîãðàììû"
         MsgBox msg, vbCritical, "Íåâîçìîæíî âûïîëíèòü çàïðîñ ê ñàéòó": End
     End If
     ' Ðàáîòàåì ñ âðåìåííûì ëèñòîì
     With tmpSheet
         '.Activate  ' âûäåëÿåì åãî, åñëè íóæíî åãî âèäåòü ïðè îòëàäêå ###
         ' Óäàëÿåì âñå ÿ÷åéêè ñ âðåìåííîãî ëèñòà
         .Cells.Delete
         ' Äàåì âðåìÿ íà îáðàáîòêó ñîáûòèé ñèñòåìû.
         DoEvents:
         'Îáíóëÿåì îøèáêè ïðîãðàììû äëÿ îáðàáîò÷èêà îøèáîê.
         Err.Clear
         '  Ðàáîòàåì ñ ìåòîäîì Add òàáëèöû çàïðîñà âíåøíèõ äàííûõ QueryTables
         With .QueryTables.Add("URL;" & SearchLink$, .Range("A1"))
             If Len(Tables$) Then
                ' Òèï Web-çàïðîñà
                 .WebSelectionType = xlSpecifiedTables
                 ' Íîìåð òàáëèöû íà ñàéòå, çàâèñèò îò ñòðóêòóðû ñàéòà.
                 ' Â íàøåì ñëó÷àå íóæíóþ òàâáëèöó ñàéò íå äàåò,
                 ' è ñêîðåå âñåãî ïðîñòî âûâîäèò âñþ ñòàíèöó ñ íàéäåííûì
                 .WebTables = Tables$
             Else
                 .WebSelectionType = xlEntirePage
             End If
             ' Ïàðàìåòð îáíîâëåíèÿ ôîðìóë, ðÿäîì ñ QueryTables
             ' äîëæíû ëè îíè ïåðåñ÷èòûâàòüñÿ ïðè ïîë÷åíèè íîâûõ äàííûõ
             .FillAdjacentFormulas = False
             ' Ïîâòîðåíèå ôîðìàòà 5 ïåðâûõ ñòðîê QueryTables
             .PreserveFormatting = True
             'Íå îáíîâëÿòü QueryTables ïðè îòêðûòèè ôàéëà
             .RefreshOnFileOpen = False
              ' Äàåì âðåìÿ íà îáðàáîòêó ñîáûòèé ñèñòåìû.
             DoEvents
             ' Ñîõðàíÿåì ôîðìàòèðîâàíèå ñòðîê ñàéòà, âêëþ÷àÿ ãèïåðññûëêè.
             .WebFormatting = xlWebFormattingAll
             ' Çàïðàøèâàåì äàííûå ïî çàïðñó QueryTables
             ' è æäåì èõ ïîëó÷åíèÿ.
             .Refresh BackgroundQuery:=False
        End With
    End With
    ' Åñëè íå áûëî ñáîåâ, òî ïðèñâàèâàåì äàííîé ôóíêöèè
    ' ññûëêó íà çàïîëíåííûé äèàïàçîí âðåìåííîãî ëèèñòà.
    If Err = 0 Then Set GetQueryRange = tmpSheet.UsedRange
 End Function

Скрипт · 26.09.2012, 15:35

bboyRALF, какого года у вас Excel?

@bboyRALF · 26.09.2012, 15:55 **[ТС]**

excel 2010

Скрипт · 26.09.2012, 16:01

bboyRALF, я плохо знаю VBA в интернете, но если ничего не найдёте, то вот так можно записать код VBA и затем его использовать:

включите макрорекордер;
вкладка Данные - группа Получение внешних данных - Из Интернета;
укажите адрес страницы - Пуск - Импорт - OK;
отключите макрорекордер.

В результате на лист будут вставлены данные из интернета и вы можете их брать уже с листа, а не из интернета, и в VBA можно взять код по такому действию.

@bboyRALF · 26.09.2012, 16:32 **[ТС]**

а чтобы он только одну строку вытаскивал? инн
дело в том что я делаю цикл т.к. таких кодов для запроса будет несколько а эта функция не очень удобна

Скрипт · 26.09.2012, 16:35

bboyRALF, я не вникал в код в сообщении #3, то там используется то же, что я предложил, просто делается скрыто.

Вам тогда нужно совсем другое решение, а не то, что вы выложили в сообщении #1.
Может кто ответит на ваш вопрос.

@Казанский · 26.09.2012, 16:40

bboyRALF, закомментируйте команду скрытия листа

Code
1
23 tmpSheet.Visible = xlSheetVeryHidden

Сделайте лист "tmpWQ1" видимым, если он уже есть.
Поставьте точку останова после вызова функции GetQueryRange, посмотрите на лист с web-запросом, найдите нужные данные.

@bboyRALF · 26.09.2012, 17:07 **[ТС]**

дело в том что ссылка, которую я привел, она ищет гиперссылку. Но мне нужен часть текста с веб страницы..

@Казанский · 26.09.2012, 17:38

Ну а мы о чем?

Попробуйте следующее:

Visual Basic
1
2
3
4
5
6
7
Set ra = GetQueryRange(URL$, "2")    ' выполняем веб-запрос, только 2-ю таблицу
If Not ra Is Nothing Then
    Set c = ra.Columns(1).Find("ИНН*", , xlValues, xlWhole)
    If Not c Is Nothing Then
        MsgBox c & c.Offset(, 1)
    End If
End If

@bboyRALF · 27.09.2012, 16:52 **[ТС]**

Казанский, Спасибо!!! Разобрался.
Остался еще 1 вопрос с утра мучаюсь, не могу решить, как еще скопировать строку КПП и вставить в столбец "С", т.к. ИНН в столбце"B"....
Подскажите пожалуйста.

Visual Basic
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
 Set c = ra.Columns(1).Find("ÈÍÍ*", , xlValues, xlWhole)
    If Not c Is Nothing Then
      n = n + 1: Debug.Print "Òåìà ¹" & n, oCell.Text
                 Debug.Print c & c.Offset(, 1): Debug.Print Sheets(1)
                  
        ' MsgBox c & c.Offset(, 1)
    End If
End If
            'Next oCell
            
                'Êîïèðóåì ÿ÷åéêó ñî ññûëêîé ñ ëèñòà "tmpWQ1"
                ra.Range("B11").Copy
                ra.Range("B12").Copy
                .Activate
                 'Range(Sheets(3).Cells(n, 1), Sheets(3).Cells(n, 9)).Copy Sheets(1).Range("J2" & yDest)
          'yDest = yDest + 1 '÷åðåç 1 ñòðîêó
          With Sheets(3).Cells(1 + i, "j")
          ' Range(Sheets(3) .Cells(n, 1)).Copy Sheets(3).Range("J2" & yDest)
          'yDest = yDest + 1 '÷åðåç 1 ñòðîêó
                      .Select
                      ' âñòàâëÿåì ñêîïèðîâàííóþ ÿ÷åéêó íà "Ëèñò3"
                       ActiveSheet.Paste
                       ' Ôîðìàòèðîâàíèå
                      ' .HorizontalAlignment = xlLeft
                      .WrapText = False
                      ' Âcòàâëÿåìûé âèäèìûé òåêñò ññûëêè
                      ' .Value = ra.Range("J2").c.Offset(, 1)
                End With
                  End With
            End If
    
         Next i
    End With
 End Sub

Редактировал код, но ничего не получается.

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

Visual Basic
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
 With ThisWorkbook.sheets("Ëèñò3")
        'Íèæåñëåäóþùåå ïðèñâîåíèå ññûëêè íà îáúåêò â äàííîì ìàêðîñå íå èñïîëüçóåòñÿ.
        Set CStart = .[A1] 'ðååñòðîâûå íîìåðà çàêàçà ñ ëèñòà ¹ 3 (ÿ÷åéêà À5)
       'For i = 1 To 100
        For i = 1 To .UsedRange.End(xlDown).Row + 1000
            If Val(Right(.Cells(i, 1), 19)) > 1 Then
                 ' ôîðìèðóåì ññûëêó
                 ' Ñàéò è ïîèñêîâûé çàïðîñ ê ñàéòó.
                 'Ñèíòàêñèñ ïîñòðîåíèÿ çàïðîñà îïðåäåëÿåòñÿ ïîèñêîâîé ìàøèíîé ñàéòà
                 URL$ = "http://www.bus.gov.ru/public/register/agencyInfo.html?agency=" & Right(ThisWorkbook.sheets("Ëèñò3").Cells(i, 1), 19)
                 '- ïîñëå ðàâíî äîëæíî âñòàâëÿòüñÿ ïîëå ñ ðååñòðîâûì íîìåðîì çàêàçà (À4) è òàê ïî ïîðÿäêó, ïîòîì íàäî ÷òîáû êîïèðîâàëñÿ òåêñò ññûëêè íà çàêàç
                 Set ra = GetQueryRange(URL$, "2")
                 ' ïåðåáèðàÿ ÿ÷åéêè òàáëèöû-ðåçóëüòàòà, âûâîäèì ñïèñîê òåì â îêíî Immediate
                 If Not ra Is Nothing Then
    Set c = ra.Columns(1).Find("ÈÍÍ*", , xlValues, xlWhole)
   
    If Not c Is Nothing Then
      n = n + 1: Debug.Print "Òåìà ¹" & n, oCell.Text
                 Debug.Print c & c.Offset(, 1): Debug.Print
                  
        ' MsgBox c & c.Offset(, 1)
    End If
End If
            'Next oCell
            
                'Êîïèðóåì ÿ÷åéêó ñî ññûëêîé ñ ëèñòà "tmpWQ1"
                ra.Range("B11").Copy
            'sheets ("tmpWQ1"), Range("b12").Copy
                
                .Activate
                 'Range(Sheets(3).Cells(n, 1), Sheets(3).Cells(n, 9)).Copy Sheets(1).Range("J2" & yDest)
          'yDest = yDest + 1 '÷åðåç 1 ñòðîêó
          'With ThisWorkbook.Sheets("Ëèñò3")
         With sheets("Ëèñò1").Cells(1 + i, "B")
         
         
         ' With Sheets(3).Cells(1 + i, [C,C])
          ' Range(Sheets(3) .Cells(n, 1)).Copy Sheets(3).Range("J2" & yDest)
          'yDest = yDest + 1 '÷åðåç 1 ñòðîêó
                      .Select
                      ' âñòàâëÿåì ñêîïèðîâàííóþ ÿ÷åéêó íà "Ëèñò3"
                       ActiveSheet.Paste
                       ' Ôîðìàòèðîâàíèå
                      ' .HorizontalAlignment = xlLeft
                      .WrapText = False
                      ' Âcòàâëÿåìûé âèäèìûé òåêñò ññûëêè
                      ' .Value = ra.Range("J2").c.Offset(, 1)
                End With
         ra.Range("B12").Copy
            'sheets ("tmpWQ1"), Range("b12").Copy
                
                .Activate
                 'Range(Sheets(3).Cells(n, 1), Sheets(3).Cells(n, 9)).Copy Sheets(1).Range("J2" & yDest)
          'yDest = yDest + 1 '÷åðåç 1 ñòðîêó
          'With ThisWorkbook.Sheets("Ëèñò3")
         With sheets("Ëèñò1").Cells(1 + i, "C")
         
         
         ' With Sheets(3).Cells(1 + i, [C,C])
          ' Range(Sheets(3) .Cells(n, 1)).Copy Sheets(3).Range("J2" & yDest)
          'yDest = yDest + 1 '÷åðåç 1 ñòðîêó
                      .Select
                      ' âñòàâëÿåì ñêîïèðîâàííóþ ÿ÷åéêó íà "Ëèñò3"
                       ActiveSheet.Paste
                       ' Ôîðìàòèðîâàíèå
                      ' .HorizontalAlignment = xlLeft
                      .WrapText = False
                      ' Âcòàâëÿåìûé âèäèìûé òåêñò ññûëêè
                      ' .Value = ra.Range("J2").c.Offset(, 1)
                End With
            End If
    
         Next i
    End With
 End Sub

Разобрался

@bboyRALF · 05.10.2012, 17:11 **[ТС]**

Возникла проблема, нужен совет. Обычное копирование с временного листа не помогает.
Нужно воспользоваться find. Но как правильно ей воспользоваться ? Чтобы она находила к примеру тот же самый инн и переносила его в ячейку ?? Помогите пожалуйста. Уже мозг разрывается.

Visual Basic
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
With ThisWorkbook.sheets("Лист3")
        'Нижеследующее присвоение ссылки на объект в данном макросе не используется.
        Set CStart = .[A1] 'реестровые номера заказа с листа № 3 (ячейка А5)
       'For i = 1 To 100
        For i = 1 To .UsedRange.End(xlDown).Row + 1000
            If Val(Right(.Cells(i, 1), 19)) > 1 Then
                 ' формируем ссылку
                 ' Сайт и поисковый запрос к сайту.
                 'Синтаксис построения запроса определяется поисковой машиной сайта
                 URL$ = "http://www.bus.gov.ru/public/register/agencyInfo.html?agency=" & Right(ThisWorkbook.sheets("Лист3").Cells(i, 1), 19)
                 '- после равно должно вставляться поле с реестровым номером заказа (А4) и так по порядку, потом надо чтобы копировался текст ссылки на заказ
                 Set ra = GetQueryRange(URL$, "2")
                 ' перебирая ячейки таблицы-результата, выводим список тем в окно Immediate
                 If Not ra Is Nothing Then
    Set c = ra.Columns(1).Find("ИНН*", , xlValues, xlWhole)
   
    If Not c Is Nothing Then
      n = n + 1: Debug.Print "Тема №" & n, oCell.Text
                 Debug.Print c & c.Offset(, 1): Debug.Print
                  
        ' MsgBox c & c.Offset(, 1)
    End If
End If
            'Next oCell
            
                'Копируем ячейку со ссылкой с листа "tmpWQ1"
                ra.Range("B11").Copy
            'sheets ("tmpWQ1"), Range("b12").Copy
                
                .Activate
                 'Range(Sheets(3).Cells(n, 1), Sheets(3).Cells(n, 9)).Copy Sheets(1).Range("J2" & yDest)
          'yDest = yDest + 1 'через 1 строку
          'With ThisWorkbook.Sheets("Лист3")
         With sheets("Лист1").Cells(1 + i, "B")
         
         
         ' With Sheets(3).Cells(1 + i, [C,C])
          ' Range(Sheets(3) .Cells(n, 1)).Copy Sheets(3).Range("J2" & yDest)
          'yDest = yDest + 1 'через 1 строку
                      .Select
                      ' вставляем скопированную ячейку на "Лист3"
                       ActiveSheet.Paste
                       ' Форматирование
                      ' .HorizontalAlignment = xlLeft
                      .WrapText = False
                      ' Вcтавляемый видимый текст ссылки
                      ' .Value = ra.Range("J2").c.Offset(, 1)
                End With
         ra.Range("B12").Copy
            'sheets ("tmpWQ1"), Range("b12").Copy
                
                .Activate
                 'Range(Sheets(3).Cells(n, 1), Sheets(3).Cells(n, 9)).Copy Sheets(1).Range("J2" & yDest)
          'yDest = yDest + 1 'через 1 строку
          'With ThisWorkbook.Sheets("Лист3")
         With sheets("Лист1").Cells(1 + i, "C")
         
         
         ' With Sheets(3).Cells(1 + i, [C,C])
          ' Range(Sheets(3) .Cells(n, 1)).Copy Sheets(3).Range("J2" & yDest)
          'yDest = yDest + 1 'через 1 строку
                      .Select
                      ' вставляем скопированную ячейку на "Лист3"
                       ActiveSheet.Paste
                       ' Форматирование
                      ' .HorizontalAlignment = xlLeft
                      .WrapText = False
                      ' Вcтавляемый видимый текст ссылки
                      ' .Value = ra.Range("J2").c.Offset(, 1)
                End With
            End If
    
         Next i
    End With
 End Sub

Добавлено через 5 часов 54 минуты
Уважаемые!!! Ну подскажите пожалуйста...

@bboyRALF · 07.10.2012, 03:15 **[ТС]**

UP!!!!

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	26.09.2012, 15:18
	bboyRALF, какого года у вас Excel? GetQueryRange - это функция созданная каким-то одним программистом и не входит в состав языка VBA и не является членом VBA Excel (я в интеренте через Гугл нашёл). Смысл здесь выкладывать имя этой функции? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	26.09.2012, 15:35
	bboyRALF, какого года у вас Excel? 0

@bboyRALF 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 110 Записей в блоге: 2
	26.09.2012, 15:55 [ТС]
	excel 2010 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	26.09.2012, 16:01
	bboyRALF, я плохо знаю VBA в интернете, но если ничего не найдёте, то вот так можно записать код VBA и затем его использовать: включите макрорекордер; вкладка Данные - группа Получение внешних данных - Из Интернета; укажите адрес страницы - Пуск - Импорт - OK; отключите макрорекордер. В результате на лист будут вставлены данные из интернета и вы можете их брать уже с листа, а не из интернета, и в VBA можно взять код по такому действию. 0

@bboyRALF 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 110 Записей в блоге: 2
	26.09.2012, 16:32 [ТС]
	а чтобы он только одну строку вытаскивал? инн дело в том что я делаю цикл т.к. таких кодов для запроса будет несколько а эта функция не очень удобна 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	26.09.2012, 16:35
	bboyRALF, я не вникал в код в сообщении #3, то там используется то же, что я предложил, просто делается скрыто. Вам тогда нужно совсем другое решение, а не то, что вы выложили в сообщении #1. Может кто ответит на ваш вопрос. 0

@bboyRALF 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 110 Записей в блоге: 2
	26.09.2012, 17:07 [ТС]
	дело в том что ссылка, которую я привел, она ищет гиперссылку. Но мне нужен часть текста с веб страницы.. 0

@bboyRALF 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 110 Записей в блоге: 2
	07.10.2012, 03:15 [ТС]
	UP!!!! 0