- Общий
-
Вопросы
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
С банками полная аналогия, будет примерно так:
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