- Общий
-
Вопросы
Название банка по БИК в VBA
Добрый день всем,
подскажите, пожалуйста, есть ли готовый пример запроса названия банка по БИК в VBA.
Поиск реквизитов юрлица уже используется, но изменить код для поиска по БИК не удается. Буду очень благодарен за помощь
Ответ
Добрый день! А какой код для реквизитов юрлица используете? Дайте ссылку или сам код, пожалуйста.
Антон, доброго дня, на сайте dadata.ru есть такая страничка ссылка на код VBA
этим кодом я пользуюсь для получения данных о юридическом лице, он работает
С банками полная аналогия, будет примерно так:
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
С банками полная аналогия, будет примерно так:
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