Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Использовать URL из ячейки
 
VideoAlex, Спасибо большое!
Использовать URL из ячейки
 
Jungl, ваш код отлично работает, если в тех ячейках напрямую прописан адрес сайта. Но адрес там содержится адрес только в гиперссылках.  Вся сложность у меня именно с извлечением гиперссылок.  Но в любом случае спасибо за помощь
Использовать URL из ячейки
 
Jungl, Прошу прощения, сначала неправильно отправила.  Пишет " неверный адрес ". Не подскажите?

Дмитрий(The_Prist) Щербаков, прошу прощения, не те скрины отправила сначала.
Использовать URL из ячейки
 
Jungl, большое спасибо, но код все Равно не отработал  :(

Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]
Изменено: AN|\|A - 18 Июл 2018 12:23:36
Использовать URL из ячейки
 
Подскажите, пожалуйста. Существует простой код, который вытаскивает некоторые данные с сайта. Сейчас ссылка URL прописана в коде. Но хотелось бы, чтобы ссылка была взята из ячейки ( D4,лист СВОДНАЯ ТАБЛИЦА), где сейчас существует в виде гиперссылки.  

Код
Sub Датааукциона()
' Датааукциона макрос
'
    Sheets("Тех.лист).Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://zakupki.gov.ru/epz/order/notice/ea44/view/common-info.html?regNumber=0373200032218000946"; _
        , Destination:=Range("Тех.лист!$A$1"))
        .Name = "common-info.html?regNumber=0373200032218000946"
    End With
    Sheets("Тех.лист").Select
    Range("B37").Select
    Selection.Copy
    Sheets("СВОДНАЯ ТАБЛИЦА").Select
    Range("AH4").Select
    ActiveSheet.Paste
End Sub
Изменено: AN|\|A - 18 Июл 2018 11:43:41
Страницы: 1
Наверх