Страницы: 1
RSS
Как вставить курс валют из Веб старницы в TextBox userform?
 
Как сделать, чтобы при нажатии на курс Валют, в TextBox2 по TextBox4 вставлялись данные на выбранную дату из страницы http://valuta.online.ua.  
Интересуют данные из строки НБУ.
 
Используя любую из формул или любой из кодов по извлечению курсов из сайтов банков. Чуть переделать под свой банк.  
Есть в приёмах, да и обсуждалось. Например был post_141938
 
Если использовать эту функцию: http://excelvba.ru/code/CurrencyRate  
 
то результат будеть выглядеть так:  
 
Private Sub CommandButton1_Click()  
   Me.TextBox_USD = GetRate("USD", TextBox_Date)  
   Me.TextBox_EUR = GetRate("EUR", TextBox_Date)  
End Sub  
 
 
См. пример в файле: http://excelvba.ru/XL_Files/Sample__19-11-2010__9-00-35.zip  
 
Вам надо только переделать эту функцию - чтобы она получала курсы из вашего банка,а не из центробанка РФ
Страницы: 1
Читают тему
Наверх