Помогите с MS Excel

Мот кто заморачивался со вставкой курса валют в эксель автоматом? Помню, пробовал переделать с планетыэксель для РФ, но чет у меня не получилось((( Вот опять возник вопрос, а ручками лень вбивать((((

Sanek-BLR,

Timon-smile, как-то так. Дальше уже сами дорабатывайте

код выделить все

Sub GetDollar()
Dim sURI As String
Dim oHttp As Object
Dim htmlcode, outstr As String
sURI = "http://finance.[censored]/pda/"
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP"
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest"
End If
On Error GoTo 0
If oHttp Is Nothing Then
Exit Sub
End If
oHttp.Open "GET", sURI, False
oHttp.Send
htmlcode = oHttp.responseText
outstr = Mid(htmlcode, InStr(1, htmlcode, "Доллар США" + 84, 4)
Set oHttp = Nothing
outstr = Replace(outstr, ",", "."
ActiveCell.Value = outstr
End Sub

такой вопрос, как сделать в экселе чтобы при наступлении такой то даты файл блокировался и выдавал сообщение?

XtihiyX, делаете курс каким-нибудь отдельным полем, например К1. В 4 столбец (D1) вводите "=C1*K1", получаете сумму в белке.

Соответственно, D2=C2*K1 и т.д.
В чужом прайсе, подставляя сумму в баксах, вы затираете формулу, видимо (цена в $ вычисляется как-то хитро), потому цена в белках не появляется.

у меня нету там букв, у меня цифры сверху... это плохо?

З.Ы. всеравно спасибо за помощь.

аааа, допер - а как нумерацию ячеек такую поставитиь???

Можно фото этой кнопки? У себя такой не нахожу, зато знаю где "формулы" находятся, но там нету кнопки "стиля ссылок"

нашел, но там "птичка" стояла уже, а новый файл всеравно создается с цифрами вверху

A.Z., ага, сделал, спасибо!

pashil:

Соответственно, D2=C2*K1 и т.д.
В чужом прайсе, подставляя сумму в баксах, вы затираете формулу, видимо (цена в $ вычисляется как-то хитро), потому цена в белках не появляется.

вот это мне собственно и нужно - автоматика.

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

A.Z., да, но курс я хочу менять тольо в одной ячейке(главной как бы) и чтобы при этом во всех остальных ячейках он автоматически менялся тоже. А как итог - всегда актуальная цена в бел.рукблях.
Вот и все,что мне нужно.

В первой строчке, где есть цена в$$ и курс, корректно меняется цена в белках, если я меняю курс, а во второй строке я ставлю цену в баксах и не появляется цена в белках - у вас появляется

что-ли?