0
Отвечен

Название банка по БИК в VBA

Дмитрий 4 месяца назад обновлен Антон Жиянов 4 месяца назад 5

Добрый день всем,

подскажите, пожалуйста, есть ли готовый пример запроса названия банка по БИК в 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
ХОРОШО, МНЕ ПОНРАВИЛОСЬ
Оценка удовлетворенности от Дмитрий 4 месяца назад
На рассмотрении

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

Антон, доброго дня, на сайте 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