Добрый день! В запросе пытаюсь реализовать динамический отбор столбцов через лист настройки [vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="zakaz_ASM"]}[Content], #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Номенклатура", type text}, {"Сумма", type number}, {"Кол-во", type number}, {"Цена", type number}, {"Кол-во2", type number}, {"Цена3", type number}, {"Кол-во4", type number}, {"Цена5", type number}, {"Кол-во6", type number}, {"Цена7", type number}, {"Кол-во8", type number}, {"Цена9", type number}, {"Кол-во10", type number}, {"Цена11", type number}, {"Кол-во12", type number}, {"Цена12", type number}, {"Кол-во13", type number}, {"Цена13", type number}, {"Кол-во14", type number}, {"Цена14", type number}, {"Кол-во15", type number}, {"Цена15", type number}, {"Кол-во16", type number}, {"Цена16", type number}, {"Кол-во17", type number}, {"Цена17", type number}, {"Кол-во18", type number}, {"Цена18", type number}, {"Кол-во19", type number}, {"Кол-во20", type number}, {"Цена19", type number}, {"Цена20", type number}, {"Кол-во21", type number}, {"Цена21", type number}, {"Кол-во22", type number}, {"Цена22", type number}, {"Кол-во23", type number}}), #"Другие удаленные столбцы" = Table.SelectColumns(#"Измененный тип",Table.ToList(Настройки)) in #"Другие удаленные столбцы"
[/vba] И напарываюсь на ошибку типа Столбец "Цена,да" таблицы не найден. Лист Настройки в запросах работает только как поключение Подскажите пожалуйста в чем моя ошибка. Благодарю!
Добрый день! В запросе пытаюсь реализовать динамический отбор столбцов через лист настройки [vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="zakaz_ASM"]}[Content], #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Номенклатура", type text}, {"Сумма", type number}, {"Кол-во", type number}, {"Цена", type number}, {"Кол-во2", type number}, {"Цена3", type number}, {"Кол-во4", type number}, {"Цена5", type number}, {"Кол-во6", type number}, {"Цена7", type number}, {"Кол-во8", type number}, {"Цена9", type number}, {"Кол-во10", type number}, {"Цена11", type number}, {"Кол-во12", type number}, {"Цена12", type number}, {"Кол-во13", type number}, {"Цена13", type number}, {"Кол-во14", type number}, {"Цена14", type number}, {"Кол-во15", type number}, {"Цена15", type number}, {"Кол-во16", type number}, {"Цена16", type number}, {"Кол-во17", type number}, {"Цена17", type number}, {"Кол-во18", type number}, {"Цена18", type number}, {"Кол-во19", type number}, {"Кол-во20", type number}, {"Цена19", type number}, {"Цена20", type number}, {"Кол-во21", type number}, {"Цена21", type number}, {"Кол-во22", type number}, {"Цена22", type number}, {"Кол-во23", type number}}), #"Другие удаленные столбцы" = Table.SelectColumns(#"Измененный тип",Table.ToList(Настройки)) in #"Другие удаленные столбцы"
[/vba] И напарываюсь на ошибку типа Столбец "Цена,да" таблицы не найден. Лист Настройки в запросах работает только как поключение Подскажите пожалуйста в чем моя ошибка. Благодарю!npbzemlya
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], f=(x)=>if x="Номенклатура" then Text.Type else Number.Type, lst = List.Transform(Table.ColumnNames(from),(x)=>{x,f(x)}), tbl = Table.TransformColumnTypes(from,lst), to = Table.SelectColumns(tbl,Table.ToList(Настройки)) in to
[/vba] или прописать тип в таблице "Настройки", но вы ее не показали в файле, тогда было бы как-то так [vba]
Код
let f=(x)=> Excel.CurrentWorkbook(){[Name=x]}[Content], from = f("База"), dict = f("Настройки"), lst = dict[наименование], lst1 = List.Zip({lst,List.Transform(dict[тип],(x)=>Expression.Evaluate(x,#shared))}), tbl = Table.TransformColumnTypes(from,lst1), to = Table.SelectColumns(tbl,lst) in to
[/vba]
[vba]
Код
let from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], f=(x)=>if x="Номенклатура" then Text.Type else Number.Type, lst = List.Transform(Table.ColumnNames(from),(x)=>{x,f(x)}), tbl = Table.TransformColumnTypes(from,lst), to = Table.SelectColumns(tbl,Table.ToList(Настройки)) in to
[/vba] или прописать тип в таблице "Настройки", но вы ее не показали в файле, тогда было бы как-то так [vba]
Код
let f=(x)=> Excel.CurrentWorkbook(){[Name=x]}[Content], from = f("База"), dict = f("Настройки"), lst = dict[наименование], lst1 = List.Zip({lst,List.Transform(dict[тип],(x)=>Expression.Evaluate(x,#shared))}), tbl = Table.TransformColumnTypes(from,lst1), to = Table.SelectColumns(tbl,lst) in to
прописать тип в таблице "Настройки", но вы ее не показали в файле, тогда было бы как-то так
Получился такой код [vba]
Код
let f=(x)=> Excel.CurrentWorkbook(){[Name=x]}[Content], from = f("zakaz_ASM"), dict = f("Настройки"), lst = dict[Столбцы], lst1 = List.Zip({lst,List.Transform(dict[Столбцы],(x)=>Expression.Evaluate(x,#shared))}), tbl = Table.TransformColumnTypes(from,lst1), to = Table.SelectColumns(tbl,lst) in to
[/vba] Но на шаге tbl выдает ошибку приложил скрин имена определены правильно, но по какой-то причине он их не видит Приложил изображение структуры запроса Настройки
прописать тип в таблице "Настройки", но вы ее не показали в файле, тогда было бы как-то так
Получился такой код [vba]
Код
let f=(x)=> Excel.CurrentWorkbook(){[Name=x]}[Content], from = f("zakaz_ASM"), dict = f("Настройки"), lst = dict[Столбцы], lst1 = List.Zip({lst,List.Transform(dict[Столбцы],(x)=>Expression.Evaluate(x,#shared))}), tbl = Table.TransformColumnTypes(from,lst1), to = Table.SelectColumns(tbl,lst) in to
[/vba] Но на шаге tbl выдает ошибку приложил скрин имена определены правильно, но по какой-то причине он их не видит Приложил изображение структуры запроса Настройкиnpbzemlya
let f=(x)=> Excel.CurrentWorkbook(){[Name=x]}[Content], g=(x)=>if x="Номенклатура" then Text.Type else Number.Type,
from = f("Заказ"), dict = Table.SelectRows(f("Столбцы"), each [Выгружать] = "да")[Столбцы], lst = List.Transform(dict,(x)=>{x,g(x)}), tbl = Table.TransformColumnTypes(from,lst), to = Table.SelectColumns(tbl,dict) in to
[/vba]
[vba]
Код
let f=(x)=> Excel.CurrentWorkbook(){[Name=x]}[Content], g=(x)=>if x="Номенклатура" then Text.Type else Number.Type,
from = f("Заказ"), dict = Table.SelectRows(f("Столбцы"), each [Выгружать] = "да")[Столбцы], lst = List.Transform(dict,(x)=>{x,g(x)}), tbl = Table.TransformColumnTypes(from,lst), to = Table.SelectColumns(tbl,dict) in to