Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 65977 Skopiuj do schowka Biała lista podatników VAT - połączenie API - excel
Autor Wiadomość
elhenio 
Exceloholic



Wersja: Win Office 365
Pomógł: 29 razy
Posty: 215
Wysłany: 08-11-2019, 23:45   

Zmień
Cytat:
Resp = VBA.Replace(Resp, "]}", "}")

na
Cytat:
Resp = VBA.Replace(Resp, "}]", "}")
_________________
Pozdrawiam
elhenio

Nie wystarczy zdobywać mądrości, trzeba jeszcze z niej korzystać.
ID posta: 376808 Skopiuj do schowka
 
 
Auditorius 
Exceloholic


Wersja: Win Office 2013
Posty: 130
Wysłany: 27-11-2019, 20:58   

Dzieki - działa :)
_________________
Nobody's Perfect
ID posta: 377683 Skopiuj do schowka
 
 
Ardaturan
świeżak


Wersja: Win Office 2016
Posty: 1
Wysłany: 16-12-2019, 15:15   

Marecki napisał/a:
Dzięki Artik, bardzo cenna uwaga.
Wyciągnięcie klucza to pikuś.


Czy klucz w tym przypadku to po prostu requestId ?
_________________
pozdrawiam
A.
ID posta: 378428 Skopiuj do schowka
 
 
elhenio 
Exceloholic



Wersja: Win Office 365
Pomógł: 29 razy
Posty: 215
Wysłany: 16-12-2019, 15:38   

Tak
_________________
Pozdrawiam
elhenio

Nie wystarczy zdobywać mądrości, trzeba jeszcze z niej korzystać.
ID posta: 378429 Skopiuj do schowka
 
 
fabianisko 
świeżak


Wersja: Win Office 2016
Posty: 1
Wysłany: 21-07-2020, 23:44   

Marecki napisał/a:
jeśli chcesz sprawdzić zgodność rachunku bankowego to wystarczy taka funkcja

Dzień dobry
Czy może Pan udostępnić plik excel wykorzystujący kod sprawdzający zgodność nr konta z nip? Jak próbuje go wykorzystać excel widzi funkcję ale przy wprowadzaniu danych (nip;nr konta) nic się nie dzieje.
ID posta: 390011 Skopiuj do schowka
 
 
Auditorius 
Exceloholic


Wersja: Win Office 2013
Posty: 130
Wysłany: 22-07-2020, 16:04   

Logika funkcji Mareckiego jest następująca

Funkcja 1
Podaj NIP firmy i dowolną inną SZUKANĄ daną z zakresu sData (nazwa, adres, wspólnik itp)

Czyli NIP - FAKTYCZNY (nr NIPu danej firmy)
oraz
Nazwę tego czego szukamy z sData
np. AccountNumbers; Partners itp.


Funkcja 2
Podaj nr rachunku bankowego

Czyli NR RACHUNKU - FAKTYCZNY
oraz
dowolną inną SZUKANĄ daną z zakresu sData (NIP, Partners, ResidenceAddress itp.)
_________________
Nobody's Perfect
ID posta: 390038 Skopiuj do schowka
 
 
analyzer64 
Starszy Forumowicz


Wersja: Win Office 2019
Posty: 44
Wysłany: 06-10-2020, 14:48   

U mnie zwraca nieznany błąd.

Generalnie o co mi chodzi. Chciałbym po numerze rachunku wyciągać nr NIP.

W załączniku plik, dodana funkcja UDF z posta Auditorius, poprawiłem linię wskazaną przez elhenio i dalej wyskakuje Nieznany błąd, co robię źle?

Zeszyt1.xlsm
Pobierz Plik ściągnięto 6 raz(y) 23.73 KB

ID posta: 393164 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 3015 razy
Posty: 9951
Wysłany: 06-10-2020, 17:13   

Zacznij od zmiany formatu komórki, w której wstawiasz numer rachunku na tekstowy.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 393171 Skopiuj do schowka
 
 
analyzer64 
Starszy Forumowicz


Wersja: Win Office 2019
Posty: 44
Wysłany: 06-10-2020, 18:21   

Robiłem to już i nie było zmiany niestety, za to po wpisaniu w przeglądarkę, rezultat wypluwa:
https://wl-api.mf.gov.pl/api/search/bank-account/41116022020000000184595916?date=2020-10-06


Przebudowałem nieco pierwszą funkcję od Mareckiego:

Kod:
Function Podatnik_Info_C(nrBanku As String, NIP_lub_NAZWA As String) As String


    Dim oHttpReq         As Object
    Dim sUrl             As String

    nrBanku = VBA.Replace(nrBanku, "-", "")
    NIP_lub_NAZWA = UCase(NIP_lub_NAZWA)

    sUrl = "https://wl-api.mf.gov.pl/api/search/bank-accounts/" & nrBanku & "?date=" & Format(Now, "yyyy-mm-dd")

    Set oHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")    'WinHttp.WinHttpRequest.5.1  MSXML2.ServerXMLHTTP.6.0     MSXML2.ServerXMLHTTP

    With oHttpReq
        .Open "Get", sUrl, False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64"
        .Send
        .WaitForResponse

        If VBA.Left$(.responsetext, 26) = "{""result"":{""subject"":null}" Then
            Podatnik_Info_C = "Firma nie figuruje w rejestrze VAT"
            Exit Function
        ElseIf VBA.Left$(.responsetext, 16) = "{""code"":""WL-115""" Then
            Podatnik_Info_C = "Nieprawidłowy NIP."
            Exit Function
        ElseIf VBA.Left$(.responsetext, 16) = "{""code"":""WL-113""" Then
            Podatnik_Info_C = "Pole 'NIP' ma nieprawidłową długość."
            Exit Function
        End If

        Select Case NIP_lub_NAZWA
        Case "NIP"
            Podatnik_Info_C = Split(Split(.responsetext, """nip"":""")(1), """,""")(0)
        Case "NAZWA"
            Podatnik_Info_C = Split(Split(.responsetext, """name"":""")(1), """,""")(0)
        End Select

    End With

    Set oHttpReq = Nothing

End Function


I...działa :roll: Ale jest to tylko proteza w tej formie.

NIP.xlsm
Pobierz Plik ściągnięto 8 raz(y) 17.83 KB

ID posta: 393177 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe