Как в экселе вставить инн

Обновлено: 25.06.2024

This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters

Private Const API_KEY = "CHANGE_ME"

Function Suggest( ByVal name, ByVal query, ByVal count) As Object

Dim http

Set http = CreateObject( "WinHttp.WinHttpRequest.5.1" )

timeout = 2000 'milliseconds

http.setTimeouts timeout, timeout, timeout, timeout

request = "< ""query"": """ & query & """, ""count"": """ & count & """ >"

http.Open "POST" , "https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/" & name

http.setRequestHeader "Content-Type" , "application/json"

http.setRequestHeader "Authorization" , "Token " & API_KEY

http.send request

Debug.Print http.responseText

Set Suggest = JsonConverter.ParseJson(http.responseText)

End Function

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( "party" , Target.Value, 1 )

Dim Company As Object

Set Company = Suggestions( "suggestions" )( 1 )( "data" )

Range( "B1" ).Value = Company( "name" )( "short_with_opf" )

Range( "C1" ).Value = Company( "ogrn" )

Range( "D1" ).Value = Company( "inn" )

Range( "E1" ).Value = Company( "kpp" )

Range( "F1" ).Value = Company( "okved" )

Range( "G1" ).Value = Company( "address" )( "data" )( "source" )

End If

End Sub

meziniakov commented Nov 20, 2018

Подскажите, пожалуйста, как изменить код, чтобы можно было в столбце А в каждую ячейку вставлять свой запрос (ИНН), а в соседних ячейках появлялись бы реквизиты компаний из Подсказок?
Спасибо.

perceff commented Jan 23, 2019

@meziniakov Скажите как связяться, я могу Вам выслать

alexuglyov commented Mar 18, 2019

Аналогичный вопрос, можно ли пример того, как обработать диапазон ячеек?

bplight commented Apr 8, 2019 •

Добрый день. Спасибо nalgeon за код. Для обработки ИНН в столбце А последовательно для каждого ряда мне помогла замена строк 104-117 на:

Мне необходимо было на сайте клиента сделать Яндекс карту с метками продаж. Для этих целей понадобились долгота и широта адреса организации: Function ExtractLongitude и Function ExtractLatitude.
Соответственно убирайте/закомментируйте лишние столбцы с данными, если они вам не нужны.

bplight commented Apr 8, 2019

Буду благодарна, если кто-то поделится кодом, который позволит единовременно добавлять несколько ИНН в столбец А.

perceff commented Jul 22, 2019

@bplight добрый день могу прислать файл с примером, здесь код так не выложишь, т.к. код в трех местах: на сранице, в модуле и в классе.

BKKRWE commented Jul 26, 2019

@bplight добрый день могу прислать файл с примером, здесь код так не выложишь, т.к. код в трех местах: на сранице, в модуле и в классе.

А нельзя тут выложить все части кода с указанием мест?

perceff commented Jul 29, 2019

BKKRWE commented Jul 30, 2019

vsokolov7474 commented Sep 2, 2019

День добрый! Подскажите, как в этом примере получить поля
opf.short и name.full

RuslanGorin commented Oct 21, 2019 •

@nalgeon День добрый! Подскажите пожалуйста как код адаптировать для формы access.

Shock922 commented Nov 4, 2019 •

ouroukov commented Dec 9, 2019

Может кому полезно будет посмотреть, как выглядит типичный ответ на запрос:

sergslip commented Jan 2, 2020

хотел применить код к базе банков по бик . Не получается что не так?

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("party", Target.Value, 1)
Dim Company As Object
Set Company = Suggestions("suggestions")(1)("data")
Range("B1").Value = Company("name")("short")
Range("C1").Value = Company("correspondent_account")

хотел применить код к базе банков по бик . Не получается что не так? [image: Screenshot_2] мой код Private Const API_KEY = "------------------------------" Function Suggest(ByVal name, ByVal query, ByVal count) As Object Dim http Set http = CreateObject("WinHttp.WinHttpRequest.5.1") timeout = 2000 'milliseconds http.setTimeouts timeout, timeout, timeout, timeout request = "< ""query"": """ & query & """, ""count"": """ & count & """ >" http.Open "POST", " https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/bank" & name http.setRequestHeader "Content-Type", "application/json" http.setRequestHeader "Authorization", "Token " & API_KEY http.send request Debug.Print http.responseText Set Suggest = JsonConverter.ParseJson(http.responseText) End Function 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("party", Target.Value, 1) Dim Company As Object Set Company = Suggestions("suggestions")(1)("data") Range("B1").Value = Company("name")("short") Range("C1").Value = Company("correspondent_account") Range("d1").Value = Company("bic") 'Range("q1").Value = Company("state")("status") 'Range("r1").Value = Company("type") End If End Sub — You are receiving this because you commented. Reply to this email directly, view it on GitHub , or unsubscribe .

Привет! Ну ты додумался 2-го января писать! Я в некондиции до 9-го ;-) Высылаю тебе рабочий прототип, покопайся пока в нем, копирайта нет, т.к. все это безнадежно устарело 1-го января. Если есть какие вопросы, то пиши 9-го. А по ошибке: переменная или свойство имеет неверный тип. Например, переменная целого типа, не может принимать строковые значения, которые не распознаются как целые числа Открой дебаггер и посмотри типы переменных или пришли мне сам файл, я посмотрю, у меня чет не правильно копируется в проект. чт, 2 янв. 2020 г. в 11:14, sergslip ***@***.***>: > хотел применить код к базе банков по бик . Не получается что не так? > > [image: Screenshot_2] > > > мой код > Private Const API_KEY = "------------------------------" > > Function Suggest(ByVal name, ByVal query, ByVal count) As Object > Dim http > Set http = CreateObject("WinHttp.WinHttpRequest.5.1") > timeout = 2000 'milliseconds > http.setTimeouts timeout, timeout, timeout, timeout > request = "< ""query"": """ & query & """, ""count"": """ & count & """ >" > http.Open "POST", " > https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/bank" & name > http.setRequestHeader "Content-Type", "application/json" > http.setRequestHeader "Authorization", "Token " & API_KEY > http.send request > Debug.Print http.responseText > Set Suggest = JsonConverter.ParseJson(http.responseText) > End Function > > 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("party", Target.Value, 1) > Dim Company As Object > Set Company = Suggestions("suggestions")(1)("data") > Range("B1").Value = Company("name")("short") > Range("C1").Value = Company("correspondent_account") > > Range("d1").Value = Company("bic") > > > > 'Range("q1").Value = Company("state")("status") > > 'Range("r1").Value = Company("type") > > > > > > End If > > > End Sub > > — > You are receiving this because you commented. > Reply to this email directly, view it on GitHub > , > or unsubscribe > > . >

Alexander-Belo commented Feb 21, 2020

Пробовал прикрутить к экселю, однако ничего не работает не подскажите в чем дело?

Alexander-Belo commented Feb 21, 2020

То есть данный код устарел и уже не работает?

Сейчас очень занят, не могу вплотную заняться. Как я понял ошибка в строке Range("d1").Value = Company("bic")? Type mismatch это ошибка несоответствия типов переменных Попробуй перед местом возникновения ошибки вывести значение в MsgBox() или посмотри значение в дебаггере. Если там цифры то переведи в строку CStr() пт, 21 февр. 2020 г. в 13:40, Alexander-Belo :

Alexander-Belo commented Feb 21, 2020 •

Сейчас очень занят, не могу вплотную заняться. Как я понял ошибка в строке Range("d1").Value = Company("bic")? Type mismatch это ошибка несоответствия типов переменных Попробуй перед местом возникновения ошибки вывести значение в MsgBox() или посмотри значение в дебаггере. Если там цифры то переведи в строку CStr()

[image: Снимок1] [image: Снимок2] — You are receiving this because you commented. Reply to this email directly, view it on GitHub , or unsubscribe .

Elpomena commented May 26, 2020

А подскажите пожалуйста, что за формат даты выгружается? Мне очень нужна дата регистрации, но там какие-то огромные значения. Как переформировать?
Спасибо

ouroukov commented May 27, 2020 •

А подскажите пожалуйста, что за формат даты выгружается? Мне очень нужна дата регистрации, но там какие-то огромные значения. Как переформировать?
Спасибо

Читайте также: