请问如何将系统导出模板用PQ转换成自己的数据模块

pjypl1688888

请问如何将系统导出模板用PQ转换成自己的数据模块，谢谢

Peny2020

你是想做模版，还是说只是要步骤？这样？

pjypl1688888

Peny2020 发表于 2023-8-22 16:05
你是想做模版，还是说只是要步骤？这样？

不好意思，白天上班有时没有空，请谅解。请问在名称列里数字字母和汉字个数不同如何拆分。比如SW573边框内，拆分成SW573   边框内，如果是ADSY5702A圆弧压线，要拆分成ADS5702A   圆弧压线。就是同一列的单元格里有不同数量的数字字母和汉字，如何将数字字母和汉字拆分成两列。当然有时只有数字和汉字，或者只有字母和汉字，而且字母数字和汉字的数量又有不同。如果将汉字拆分成一列，其余的拆分成一列。谢谢

minchar

不是太复杂，就是步骤有点多
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    删除的列 = Table.RemoveColumns(源,{"组合型材编号(名称)", "型号"}),
    已删除的空行 = Table.SelectRows(删除的列, each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
    按分隔符拆分列 = Table.SplitColumn(已删除的空行, "名称", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), {"名称.1", "名称.2"}),
    更改的类型1 = Table.TransformColumnTypes(按分隔符拆分列,{{"名称.1", type text}, {"名称.2", type text}}),
    重命名的列 = Table.RenameColumns(更改的类型1,{{"名称.1", "型号"}, {"名称.2", "名称"}}),
    向下填充 = Table.FillDown(重命名的列,{"颜色", "长度", "数量", "余料"}),
    筛选的行 = Table.SelectRows(向下填充, each ([名称] <> null)),
    自定义1 = Table.TransformColumns( 筛选的行,{"长度" ,each _/1000})
in
    自定义1

你给的文件在数字字母与汉字之间是有换行符的，直接按换行符分列就行了！
如果没有换行符，可以通过添加列来一步一步实现，如：待分列的列名为[列1]
= Table.AddColumn(更改的类型, "自定义", each Text.Combine(List.Select(Text.ToList([列1]),each _ > "z")))
取得汉字部分
= Table.AddColumn(已添加自定义, "自定义.1", each Text.Replace( [列1],[自定义],""))
再替换得到非汉字部分

pjypl1688888

谢谢各位大神的指点

Peny2020

pjypl1688888 发表于 2023-8-22 20:40
不好意思，白天上班有时没有空，请谅解。请问在名称列里数字字母和汉字个数不同如何拆分。比如SW573边框 ...

我以为你那是固定的，所以之前是用位置来拆，如果位置不固定，那就选#(lf)--换行符号来拆

尘土1

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     更改的类型 = Table.TransformColumnTypes(源,{{"组合型材编号(名称)", type text}, {"名称", type text}, {"型号", type text}, {"颜色", type text}, {"长度", Int64.Type}, {"数量", Int64.Type}, {"余料", type text}}),
   
4.     向下填充 = Table.FillDown(更改的类型,{"颜色", "长度", "数量", "余料"}),
   
5.     筛选的行 = Table.SelectRows(向下填充, each ([名称] <> null)),
   
6.     按照字符转换拆分列 = Table.SplitColumn(筛选的行, "名称", Splitter.SplitTextByCharacterTransition({"0".."9"}, (c) => not List.Contains({"0".."9"}, c)), {"名称.1", "名称.2"}),
   
7.     删除的列 = Table.RemoveColumns(按照字符转换拆分列,{"组合型材编号(名称)", "型号"}),
   
8.     被除的列 = Table.TransformColumns(删除的列, {{"长度", each _ / 1000, type number}}),
   
9.     去除的文本 = Table.TransformColumns(Table.TransformColumnTypes(被除的列, {{"长度", type text}, {"数量", type text}}, "zh-CN"),{{"名称.1", Text.Trim, type text}, {"名称.2", Text.Trim, type text}, {"颜色", Text.Trim, type text}, {"长度", Text.Trim, type text}, {"数量", Text.Trim, type text}, {"余料", Text.Trim, type text}}),
   
10.     清除的文本 = Table.TransformColumns(去除的文本,{{"名称.1", Text.Clean, type text}, {"名称.2", Text.Clean, type text}, {"颜色", Text.Clean, type text}, {"长度", Text.Clean, type text}, {"数量", Text.Clean, type text}, {"余料", Text.Clean, type text}}),
    
11.     重命名的列 = Table.RenameColumns(清除的文本,{{"名称.1", "型号"}, {"名称.2", "名称"}})
    
12. in
    
13.     重命名的列

复制代码

hbzql

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表一!Print_Area"]}[Content],
   
3.     自定义1 = Table.PromoteHeaders(Table.Skip(源,4)),
   
4.     自定义2 = Table.FillDown(自定义1,List.Skip(Table.ColumnNames(自定义1),3)),
   
5.     自定义3 = Table.SelectRows(自定义2,each [名称]<>null),
   
6.     自定义4 = Table.RemoveColumns(自定义3,{"组合型材编号(名称)","型号"}),
   
7.     自定义5 = Table.SplitColumn(自定义4,"名称",each Text.Split(_,"#(lf)"),{"型号","名称"}),
   
8.     自定义6 = Table.TransformColumns(自定义5,{"长度",each _/1000})
   
9. in
   
10.     自定义6

复制代码