Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - PowerQuery - jak wczytać dane z sieci zapisane w pliku zip?

JerzyB

Kochani, męczę się z takim zadaniem:
otóż w sieci pod adresem
IMGW
są interesujące mnie dane o opadach w konkretnym roku, tu akurat w 2020. Plik jest skompresowany jako ZIP. Próbuję go wczytać za pomocą PQuery i ni w ząb nie mogę się do niego dostać. Czy jest to w ogóle możliwe, żeby przez zapytanie PQ zautomatyzować wczytywanie takiego pliku dla poszczególnych lat bezpośrednio z tej strony www? Czy niestety - muszę go sobie najpierw zapisać na kompie jako plik tekstowy i dopiero stąd wczytywać do Excela? Tak do tej pory robiłem, ale miałem nadzieję, że PQ pozwoli mi to zautomatyzować i uprościć. Jest na to rada?
Do tej pory jedyne co uzyskałem, to to, co widać w załączonym pliku. Wygląda żałośnie, prawda?

Excel_PQuery_opady.xlsx

Pobierz Plik ściągnięto 11 raz(y) 17.16 KB

xfish · Wysłany: 04-03-2021, 15:16

Z tego co znalazłem w necie to raczej nie ma możliwości bezpośrednio z netu.
Trzeba najpierw plik zapisać wtedy można się do niego dostać za pomocą PQ

JerzyB · Wysłany: 04-03-2021, 15:38

Dzięki i za tą informację, aczkolwiek trochę mnie dziwi, że Wielki Microsoft jak do tej pory nie poradził sobie z tym zadaniem :-(

. Przecież pliki skompresowane, zwłaszcza w tak popularnym formacie jak ZIP, są często spotykane, także w necie i aż dziwne, że spece z MS nie zajęli się jeszcze tym problemem. Myślę, że dla nich nie byłoby niczym trudnym dobrać się do takich plików.
Może w kolejnych wersjach Excela i PQ?
Pzdr.

DwaNiedźwiedzie · Wysłany: 04-03-2021, 16:01

Jak się nie da, jak się da :)

Kod:

let
ZIPFile = Web.Contents("https://danepubliczne.imgw.pl/data/dane_pomiarowo_obserwacyjne/dane_meteorologiczne/miesieczne/synop/2020/2020_m_s.zip"),
MyBinaryFormat = BinaryFormat.Record([MiscHeader=BinaryFormat.Binary(18), FileSize=BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger32, ByteOrder.LittleEndian), UnCompressedFileSize=BinaryFormat.Binary(4), FileNameLen=BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger16, ByteOrder.LittleEndian)]),
MyCompressedFileSize = MyBinaryFormat(ZIPFile)[FileSize] + 1,
MyFileNameLen = MyBinaryFormat(ZIPFile)[FileNameLen],
MyBinaryFormat2 = BinaryFormat.Record([Header=BinaryFormat.Binary(30), Filename=BinaryFormat.Text(MyFileNameLen), Data=BinaryFormat.Binary(MyCompressedFileSize)]),
GetDataToDecompress = MyBinaryFormat2(ZIPFile)[Data],
DecompressData = Binary.Decompress(GetDataToDecompress, Compression.Deflate),
#"Zaimportowano plik CSV" = Csv.Document(DecompressData,[Delimiter=",", Columns=60, Encoding=1250, QuoteStyle=QuoteStyle.None])
in
#"Zaimportowano plik CSV"

PS: Samo rozpakowanie to nieco przycięty kod znaleziony gdzieś w sieci i nie mam pojęcia, jak to działa - ale działa :)