0
Отвечен

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

Дмитрий 1 год назад обновлен Игорь 2 месяца назад 8

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

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

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

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

СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Отвечен

Пожалуйста! Если будут вопросы — дайте знать.

Нужно через код VBA вытащить наименование ("payment": "ОТДЕЛЕНИЕ-НБ РЕСПУБЛИКА БАШКОРТОСТАН БАНКА РОССИИ") и корр. счет ("treasury_accounts": ["40102810045370000067") по БИКу банка (048073001), но код выдает ошибку. Как вытащить эти данные?

{
    "value": "УФК по Республике Башкортостан",
    "unrestricted_value": "УФК по Республике Башкортостан",
    "data": {
        "opf": {
            "type": "TREASURY",
            "full": null,
            "short": null
        },
        "name": {
            "payment": "УФК по Республике Башкортостан",
            "full": null,
            "short": null
        },
        "bic": "018073401",
        "swift": null,
        "inn": null,
        "kpp": null,
        "okpo": null,
        "correspondent_account": null,
        "treasury_accounts": [
            "40102810045370000067"
        ],
        "registration_number": null,
        "payment_city": "г Уфа",
        "state": {
            "status": "ACTIVE",
            "code": null,
            "actuality_date": 1710288000000,
            "registration_date": null,
            "liquidation_date": null
        },
        "rkc": null,
        "cbr": {
            "opf": {
                "type": "OTHER",
                "full": null,
                "short": null
            },
            "name": {
                "payment": "ОТДЕЛЕНИЕ-НБ РЕСПУБЛИКА БАШКОРТОСТАН БАНКА РОССИИ",
                "full": null,
                "short": null
            },
            "bic": "048073001",
            "swift": null,
            "inn": null,
            "kpp": null,
            "okpo": null,
            "correspondent_account": null,
            "treasury_accounts": null,
            "registration_number": null,
            "payment_city": "г Уфа",
            "state": {
                "status": "ACTIVE",
                "code": null,
                "actuality_date": 1710288000000,
                "registration_date": null,
                "liquidation_date": null
            },
            "rkc": null,
            "cbr": null,
            "address": {
                "value": "450008, г Уфа, ул Театральная, 3",
                "unrestricted_value": "450008, г Уфа, ул Театральная, 3",
                "data": null
            },
            "phones": null
        },

К сожалению, не сможем помочь разобраться с ошибкой. Выше есть пример кода, можно сделать по аналогии. Если не получается воспользоваться им самостоятельно – лучше обратиться к техническому специалисту. 

Сервис поддержки клиентов работает на платформе UserEcho