В коде макроса брыть адрес URL из ячейки

[Ogeris]

Добрый вечер, други!

Подскажите, пожалуйста, как в маросе прописать "перейти по адресу, указанному в ячейке А1"?

[EducatedFool]

thisworkbook.FollowHyperlink [a1]

то же самое:

thisworkbook.FollowHyperlink range("a1")

[Ogeris]

Спасибо!

Сразу понял, что я не так объяснил. В столбце A - ссылки на страницу, и надо сделать так, чтобы в столбце B вставало значение курса доллара, взятое по этой ссылке.

Код макроса я нашел на этом форуме, но там приходится прописывать наименование адреса ручками. Как код усовершенствовать, чтобы он брал его из ячейки в столбце А, и вставлял курс доллара напротив в столбец B?

Код:

Dim sURI As String
sURI = "http://cbr.ru/currency_base/daily.aspx?C_month=06&C_year=2011&d ate_req=02%2F06%2F2011"
With CreateObject("MSXML2.XMLHTTP"): .Open "GET", sURI, False: .Send: htmlcode = .responseText: End With
[B1] = Replace(Mid(htmlcode, InStr(1, htmlcode, "Доллар США") + 35, 7), ",", ".")

[EducatedFool]

А не проще ли воспользоваться готовым решением для получения курса доллара на заданную дату?
http://excelvba.ru/code/CurrencyRate

Куда уж проще - в первом столбце дата, а во втором - формула, возвращающая курс на эту дату

или вот ещё:

http://excelvba.ru/programmes/RatesWorksheet
одно нажатие кнопки, - и в вашем файле автообновляемые курсы доллара и евро на текущую дату
(используется веб-запрос к сайту центробанка)

[Ogeris]

Конечно, для получения данных о курсах валют это просто идеальный вариант.

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

[Hugo121]

Ну а по ссылке не изучали код?

+ Format(RateDate, "dd\/mm\/yyyy")

И без примера Вашего файла с Вашей датой конкретный совет применительно к Вашему файлу никто не даст.
Дата может быть по разному написана, в примере выше даты нет, там 27.9682, что судя по коду, полученный курс.

В общих чертах - получаете из ячейки дату, берёте из неё число, месяц, год и формируете нужную строку адреса.

[Ogeris]

Изучал, на своём уровне.
Пример прикрепил к первому сообщению.

Дело в том, что дата мне вообще не нужна, у меня есть набор ссылок в первом столбце, и макрос, который из кода страницы (что загружается по адресу из первого столбца), возвращает необходимый диапазон значений во второй столбец.

Вопрос в том, чтобы в первой строке макроса прописать "перейти по адресу, указанному в ячейке А1"

[Hugo121]

В первом сообщении нет примера.
В примере из второго сообщения нет даты.
Ну а в коде по ссылке есть строка:
url_request = "http://www.cbr.ru/scripts/XML_daily.asp?date_req="
Замените её на
url_request = [a1].text

Или в Вашем примере:
sURI = [a1].Text

Ну и в цикле:

Private Sub Code1()
    Dim sURI As String, i&
    For i = 1 To 6
    sURI = Cells(i, 1).Text '"http://cbr.ru/currency_base/daily.aspx?C_month=06&C_year=2011&date_req=02%2F06%2F2011"
    With CreateObject("MSXML2.XMLHTTP"): .Open "GET", sURI, False: .Send: htmlcode = .responseText: End With
    Cells(i, 2) = Replace(Mid(htmlcode, InStr(1, htmlcode, "Доллар США") + 35, 7), ",", ".")
    Next
End Sub

[Ogeris]

Конечно, пример я прикрепил ко второму сообщению, sorry.

Спасибо! Всё работает!
Вы ещё и цикл прописали! Гранд Мерси!