Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Power Query видит не все строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Power Query видит не все строки (Формулы/Formulas)
Power Query видит не все строки
Novell Дата: Воскресенье, 10.03.2019, 09:31 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день! Каждый день банк присылает выписку по оборотам за предыдущий день, выписка автоматически скачивается в .xsls в папку. Стоит задача собрать все выписки в один файл. Эту задачу я решаю посредством Power Query. Сама суть понятна как это сделать. Вопрос в том что загружается только первые 20 строк. Остальные нет. Подскажите что можно сделать? Причем если внизу таблицы в выписке удалить строку с итогом оборотов (строки 160 и 161 в файле), то загружаются все строки. Банк присылает именно так. Стоит задача автоматизировать весь процесс, вручную удалять не вариант из каждого файла. Помогите советом.
К сообщению приложен файл: 0514399.jpg(57.9 Kb) · Statement_40702.rar(17.7 Kb)


Сообщение отредактировал Novell - Воскресенье, 10.03.2019, 09:38
 
Ответить
СообщениеДобрый день! Каждый день банк присылает выписку по оборотам за предыдущий день, выписка автоматически скачивается в .xsls в папку. Стоит задача собрать все выписки в один файл. Эту задачу я решаю посредством Power Query. Сама суть понятна как это сделать. Вопрос в том что загружается только первые 20 строк. Остальные нет. Подскажите что можно сделать? Причем если внизу таблицы в выписке удалить строку с итогом оборотов (строки 160 и 161 в файле), то загружаются все строки. Банк присылает именно так. Стоит задача автоматизировать весь процесс, вручную удалять не вариант из каждого файла. Помогите советом.

Автор - Novell
Дата добавления - 10.03.2019 в 09:31
sboy Дата: Понедельник, 11.03.2019, 11:02 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 722 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Удаление строки тут ни при чем. У меня файл пример все подгрузил (168 строк в запросе)
Тут надо с параметрами выгрузки работать.
Недавно был похожий случай. Параметры выгрузки (формат и т.п.) человек изменить не мог, решилось программным пересохранением файла. Т.е. по сути открыл файл, нажал сохранить, закрыл и в Power Query все отобразилось.


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Удаление строки тут ни при чем. У меня файл пример все подгрузил (168 строк в запросе)
Тут надо с параметрами выгрузки работать.
Недавно был похожий случай. Параметры выгрузки (формат и т.п.) человек изменить не мог, решилось программным пересохранением файла. Т.е. по сути открыл файл, нажал сохранить, закрыл и в Power Query все отобразилось.

Автор - sboy
Дата добавления - 11.03.2019 в 11:02
krosav4ig Дата: Понедельник, 11.03.2019, 12:57 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2148
Репутация: 893 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Ниче не знаю, у мну все норм грузится [vba]
Код
let
    FolderPath = Excel.CurrentWorkbook(){[Name="FolderPath"]}[Content][Column1]{0},
    Files = Folder.Files(FolderPath),
    Filter = Table.SelectRows(Files, each let A=[Attributes] in (A[Kind] = "Excel File" and not A[NotContentIndexed]))[[Name],[Content]],
    Workbooks = Table.TransformColumns(Filter,{{"Content",each let wb=Excel.Workbook(_) in Table.SelectRows(wb,each try _[Kind]="Sheet" otherwise true)[[Name],[Data]]}}),
    tab=(a as table) =>let
        b=a[Column1],
        c={"БИК","Расчётный счёт №","(",")"},
        d=List.Transform(List.Transform({b{3}},Splitter.SplitTextByEachDelimiter(c)){0},Text.Trim),
        e=Text.Split(a[Column2]{2}," - "),
        f=List.Transform(List.LastN(List.Select(b,each (_<>null)),2),each Text.Trim(Text.Split(_&":"&_,":"){1}))
    in #table(List.Combine({{"Период с","Период по"},List.Range(c,0,2),{"Валюта","Организация","Банк","Дата формирования"}}),{List.Combine({{e{0},e{1}},List.Range(d,1,3),{b{4}},f})}),
    tab2=(a as table) as table =>let
        b = Table.SelectRows(Table.Transpose(Table.Skip(a,7)), each ([Column1] <> null) or ([Column2] <> null)),
        c = Table.TransformColumns(b,{{"Column2",each let c1=b[Column1] in if List.PositionOf(c1,_)>=0 then null else _}}),
        d = (a)=> let
            b = a[Column2],
            c = {"Column1", each let c1=Text.Replace(_,"#(lf)"," ") in  c1&(if b<>null then ":"&b else "")}
        in Record.RemoveFields(Record.TransformFields(a,c),{"Column2"}),
        e = Table.TransformRows(Table.FillDown(c,{"Column1"}), each d(_)),
        f = Table.SelectRows(Table.Transpose(Table.FromRecords(e)), each ([Column1] <> null))
    in Table.PromoteHeaders(Table.RemoveLastN(Table.SelectRows(f, each ([Column1] <> null)),2)),
    Sheets = Table.FromRecords(Table.TransformRows(Table.ExpandTableColumn(Workbooks, "Content", {"Name", "Data"},{"ИмяЛиста","Content"}),each [ИмяФайла=_[Name],ИмяЛиста=[ИмяЛиста],t=tab(_[Content]),Content=[Content]])),
    Transform = Table.SelectRows(Table.TransformColumns(Sheets,{{"Content",tab2}}), each try [Content] is table otherwise false),
    Result = Table.ExpandTableColumn(Table.ExpandTableColumn(Transform, "Content", Table.ColumnNames(Transform[Content]{0})),"t",Table.ColumnNames(Sheets[t]{0})),
    #"Измененный тип" = Table.TransformColumnTypes(Result,{{"Период по", type date}, {"Период с", type datetime}, {"Дата формирования", type datetime}, {"Дата операции", type datetime}})
in
    #"Измененный тип"
[/vba]
К сообщению приложен файл: 0271454.xlsx(43.8 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеНиче не знаю, у мну все норм грузится [vba]
Код
let
    FolderPath = Excel.CurrentWorkbook(){[Name="FolderPath"]}[Content][Column1]{0},
    Files = Folder.Files(FolderPath),
    Filter = Table.SelectRows(Files, each let A=[Attributes] in (A[Kind] = "Excel File" and not A[NotContentIndexed]))[[Name],[Content]],
    Workbooks = Table.TransformColumns(Filter,{{"Content",each let wb=Excel.Workbook(_) in Table.SelectRows(wb,each try _[Kind]="Sheet" otherwise true)[[Name],[Data]]}}),
    tab=(a as table) =>let
        b=a[Column1],
        c={"БИК","Расчётный счёт №","(",")"},
        d=List.Transform(List.Transform({b{3}},Splitter.SplitTextByEachDelimiter(c)){0},Text.Trim),
        e=Text.Split(a[Column2]{2}," - "),
        f=List.Transform(List.LastN(List.Select(b,each (_<>null)),2),each Text.Trim(Text.Split(_&":"&_,":"){1}))
    in #table(List.Combine({{"Период с","Период по"},List.Range(c,0,2),{"Валюта","Организация","Банк","Дата формирования"}}),{List.Combine({{e{0},e{1}},List.Range(d,1,3),{b{4}},f})}),
    tab2=(a as table) as table =>let
        b = Table.SelectRows(Table.Transpose(Table.Skip(a,7)), each ([Column1] <> null) or ([Column2] <> null)),
        c = Table.TransformColumns(b,{{"Column2",each let c1=b[Column1] in if List.PositionOf(c1,_)>=0 then null else _}}),
        d = (a)=> let
            b = a[Column2],
            c = {"Column1", each let c1=Text.Replace(_,"#(lf)"," ") in  c1&(if b<>null then ":"&b else "")}
        in Record.RemoveFields(Record.TransformFields(a,c),{"Column2"}),
        e = Table.TransformRows(Table.FillDown(c,{"Column1"}), each d(_)),
        f = Table.SelectRows(Table.Transpose(Table.FromRecords(e)), each ([Column1] <> null))
    in Table.PromoteHeaders(Table.RemoveLastN(Table.SelectRows(f, each ([Column1] <> null)),2)),
    Sheets = Table.FromRecords(Table.TransformRows(Table.ExpandTableColumn(Workbooks, "Content", {"Name", "Data"},{"ИмяЛиста","Content"}),each [ИмяФайла=_[Name],ИмяЛиста=[ИмяЛиста],t=tab(_[Content]),Content=[Content]])),
    Transform = Table.SelectRows(Table.TransformColumns(Sheets,{{"Content",tab2}}), each try [Content] is table otherwise false),
    Result = Table.ExpandTableColumn(Table.ExpandTableColumn(Transform, "Content", Table.ColumnNames(Transform[Content]{0})),"t",Table.ColumnNames(Sheets[t]{0})),
    #"Измененный тип" = Table.TransformColumnTypes(Result,{{"Период по", type date}, {"Период с", type datetime}, {"Дата формирования", type datetime}, {"Дата операции", type datetime}})
in
    #"Измененный тип"
[/vba]

Автор - krosav4ig
Дата добавления - 11.03.2019 в 12:57
Novell Дата: Понедельник, 11.03.2019, 18:58 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, блин!!! Спасибо Вам огромное! Низкий поклон)))) Дай бог Вам здоровья)) Все работает)))
 
Ответить
Сообщениеkrosav4ig, блин!!! Спасибо Вам огромное! Низкий поклон)))) Дай бог Вам здоровья)) Все работает)))

Автор - Novell
Дата добавления - 11.03.2019 в 18:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Power Query видит не все строки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!