Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение ссылки в web запросе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение ссылки в web запросе (Макросы/Sub)
Изменение ссылки в web запросе
Almost Дата: Пятница, 19.01.2018, 10:07 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
Добрый день!

Есть задача стянуть с сайта список адресов электронной почты, занимающий 1400 веб-страниц. Пытаюсь решить записью через макрорекодер запроса к сайту, чтобы потом адрес запроса поместить в цикл.
Запрос записался и успешно воспроизводится из кода по одной странице. Но когда пытаюсь поменять номер страницы на переменную, возникает ошибка.
Рабочий код:
[vba]
Код
ActiveWorkbook.Queries.Add Name:="Table " & i, Formula:="let" & Chr(13) & "" & Chr(10) & "    Источник = Web.Page(Web.Contents(""https://neftegaz.ru/catalogue/company/find/"" & ""1"" & ""?newest""))," & Chr(13) & "" & Chr(10) & "    Data2 = Источник{2}[Data]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Data2,{{""Название"", type text}, {""Местоположение"", type text}, {""Контакты"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Измененный тип"""
[/vba]

Меняю цифру из середины адреса на переменную (объявлена как Integer), и перестаёт работать:
[vba]
Код
ActiveWorkbook.Queries.Add Name:="Table " & i, Formula:="let" & Chr(13) & "" & Chr(10) & "    Источник = Web.Page(Web.Contents(""https://neftegaz.ru/catalogue/company/find/"" & i & ""?newest""))," & Chr(13) & "" & Chr(10) & "    Data2 = Источник{2}[Data]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Data2,{{""Название"", type text}, {""Местоположение"", type text}, {""Контакты"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Измененный тип"""
[/vba]
Пишет ошибку 1004: "[Expression.Error] Импорт i не соответствует ни одному из экспортов. Не пропущена ли ссылка на модуль?"
Подскажите, пожалуйста, как решить проблему?
К сообщению приложен файл: 7572987.xlsb (21.3 Kb)
 
Ответить
СообщениеДобрый день!

Есть задача стянуть с сайта список адресов электронной почты, занимающий 1400 веб-страниц. Пытаюсь решить записью через макрорекодер запроса к сайту, чтобы потом адрес запроса поместить в цикл.
Запрос записался и успешно воспроизводится из кода по одной странице. Но когда пытаюсь поменять номер страницы на переменную, возникает ошибка.
Рабочий код:
[vba]
Код
ActiveWorkbook.Queries.Add Name:="Table " & i, Formula:="let" & Chr(13) & "" & Chr(10) & "    Источник = Web.Page(Web.Contents(""https://neftegaz.ru/catalogue/company/find/"" & ""1"" & ""?newest""))," & Chr(13) & "" & Chr(10) & "    Data2 = Источник{2}[Data]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Data2,{{""Название"", type text}, {""Местоположение"", type text}, {""Контакты"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Измененный тип"""
[/vba]

Меняю цифру из середины адреса на переменную (объявлена как Integer), и перестаёт работать:
[vba]
Код
ActiveWorkbook.Queries.Add Name:="Table " & i, Formula:="let" & Chr(13) & "" & Chr(10) & "    Источник = Web.Page(Web.Contents(""https://neftegaz.ru/catalogue/company/find/"" & i & ""?newest""))," & Chr(13) & "" & Chr(10) & "    Data2 = Источник{2}[Data]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Data2,{{""Название"", type text}, {""Местоположение"", type text}, {""Контакты"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Измененный тип"""
[/vba]
Пишет ошибку 1004: "[Expression.Error] Импорт i не соответствует ни одному из экспортов. Не пропущена ли ссылка на модуль?"
Подскажите, пожалуйста, как решить проблему?
Автор - Almost
Дата добавления - 19.01.2018 в 10:07
krosav4ig Дата: Пятница, 19.01.2018, 10:28 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый день
кавычки лишние
Цитата Almost, 19.01.2018 в 10:07, в сообщении № 1 ()
ActiveWorkbook.Queries.Add Name:="Table " & i, Formula:="let" & Chr(13) & "" & Chr(10) & " Источник = Web.Page(Web.Contents(""https://neftegaz.ru/catalogue/company/find/"" & i & ""?newest""))," & Chr(13) & "" & Chr(10) & " Data2 = Источник{2}[Data]," & Chr(13) & "" & Chr(10) & " #""Измененный тип"" = Table.TransformColumnTypes(Data2,{{""Название"", type text}, {""Местоположение"", type text}, {""Контакты"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Измененный тип"""

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДобрый день
кавычки лишние
Цитата Almost, 19.01.2018 в 10:07, в сообщении № 1 ()
ActiveWorkbook.Queries.Add Name:="Table " & i, Formula:="let" & Chr(13) & "" & Chr(10) & " Источник = Web.Page(Web.Contents(""https://neftegaz.ru/catalogue/company/find/"" & i & ""?newest""))," & Chr(13) & "" & Chr(10) & " Data2 = Источник{2}[Data]," & Chr(13) & "" & Chr(10) & " #""Измененный тип"" = Table.TransformColumnTypes(Data2,{{""Название"", type text}, {""Местоположение"", type text}, {""Контакты"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Измененный тип"""
Автор - krosav4ig
Дата добавления - 19.01.2018 в 10:28
Almost Дата: Пятница, 19.01.2018, 11:38 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 2 ±
Замечаний: 0% ±

Excel 2016
Спасибо, сработало
 
Ответить
СообщениеСпасибо, сработало
Автор - Almost
Дата добавления - 19.01.2018 в 11:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение ссылки в web запросе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!