
0
Отвечен
Название банка по БИК в VBA
Добрый день всем,
подскажите, пожалуйста, есть ли готовый пример запроса названия банка по БИК в VBA.
Поиск реквизитов юрлица уже используется, но изменить код для поиска по БИК не удается. Буду очень благодарен за помощь
Ответ

На рассмотрении
Добрый день! А какой код для реквизитов юрлица используете? Дайте ссылку или сам код, пожалуйста.

Антон, доброго дня, на сайте dadata.ru есть такая страничка ссылка на код VBA
этим кодом я пользуюсь для получения данных о юридическом лице, он работает

+1
Ответ
С банками полная аналогия, будет примерно так:
Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range If Target.Address = "$A$1" Then Debug.Print "Source: " & Target.Value Dim Suggestions As Object Set Suggestions = Suggest("bank", Target.Value, 1) Dim Bank As Object Set Bank = Suggestions("suggestions")(1)("data") Range("B1").Value = Bank("name")("payment") Range("C1").Value = Bank("bic") Range("D1").Value = Bank("inn") Range("E1").Value = Bank("correspondent_account") Range("F1").Value = Bank("address")("data")("source") End If End Sub
Сервис поддержки клиентов работает на платформе UserEcho
С банками полная аналогия, будет примерно так: