Khắc phục Lỗi lặp lại các file trong Power Query (1 người xem)

[maily mai]

Giúp e với ạ, em đang tổng hợp 4 file mà khi Expanded custom 4 file bị lặp lại 4 lần, dữ liệu cũng bị lặp lại như vậy, em đang không biết xử lý lỗi này như nào, Mong mọi người giúp e với ạ!

 

[ptm0412]

Giúp e với ạ, em đang tổng hợp 4 file mà khi Expanded custom 4 file bị lặp lại 4 lần, dữ liệu cũng bị lặp lại như vậy, em đang không biết xử lý lỗi này như nào, Mong mọi người giúp e với ạ!

Step Add column bạn trùng add 2 tầng:



Nếu làm đúng thì chỉ như vầy:



Kết quả step Expand phải lấy thêm cột Kind để lọc chỉ lấy sheet, vì có những name được tạo ra do filter



Của bạn lại 2 step Expand?



Chỉ expand 1 lần ở trên, them step filter lấy sheet



Expand lần nữa là ra kết quả.

 

[ptm0412]

Nếu dùng bộ M-code này thì chỉ cần sửa tên folder ở dòng 1

let
  
    FolderName ="D:\MyPham\GPE\th corona - Copy\CORONA",
    FileNameList= Folder.Files(FolderName)[Name],
    FileNum={0..List.Count(FileNameList)-1},
    DataF= List.Transform(FileNum, (f) =>
    let
        FFullName =FolderName & "\" & FileNameList{f},
        Source1 = Table.SelectRows(Excel.Workbook(File.Contents(FFullName), null, true),each ([Kind] = "Sheet")),
        SourceData=Source1[Data],
        SheetName=Source1[Name],
        SheetNum={0..List.Count(SheetName)-1},
        DataN= List.Transform(SheetNum, (i) =>
        let
            Data0 = (SourceData{i}),
            DataFName = Table.AddColumn(Table.PromoteHeaders(Data0), "File", each FileNameList{f}),
            Datai = Table.AlternateRows(DataFName,0,1,10000)
        in Datai),
        List1 =  Table.FromList(DataN, Splitter.SplitByNothing()),
        ListColumns = Table.ColumnNames(List1{0}[Column1]),
        Ketqua1 = Table.ExpandTableColumn(List1,"Column1",ListColumns)
    in Ketqua1),
    List2 =Table.FromList(DataF,Splitter.SplitByNothing()),
    ListColumns2 = Table.ColumnNames(DataF{0}),
    Ketqua = Table.ExpandTableColumn(List2, "Column1", ListColumns2)
  
in Ketqua

 

[maily mai]

Nếu dùng bộ M-code này thì chỉ cần sửa tên folder ở dòng 1

let
 
    FolderName ="D:\MyPham\GPE\th corona - Copy\CORONA",
    FileNameList= Folder.Files(FolderName)[Name],
    FileNum={0..List.Count(FileNameList)-1},
    DataF= List.Transform(FileNum, (f) =>
    let
        FFullName =FolderName & "\" & FileNameList{f},
        Source1 = Table.SelectRows(Excel.Workbook(File.Contents(FFullName), null, true),each ([Kind] = "Sheet")),
        SourceData=Source1[Data],
        SheetName=Source1[Name],
        SheetNum={0..List.Count(SheetName)-1},
        DataN= List.Transform(SheetNum, (i) =>
        let
            Data0 = (SourceData{i}),
            DataFName = Table.AddColumn(Table.PromoteHeaders(Data0), "File", each FileNameList{f}),
            Datai = Table.AlternateRows(DataFName,0,1,10000)
        in Datai),
        List1 =  Table.FromList(DataN, Splitter.SplitByNothing()),
        ListColumns = Table.ColumnNames(List1{0}[Column1]),
        Ketqua1 = Table.ExpandTableColumn(List1,"Column1",ListColumns)
    in Ketqua1),
    List2 =Table.FromList(DataF,Splitter.SplitByNothing()),
    ListColumns2 = Table.ColumnNames(DataF{0}),
    Ketqua = Table.ExpandTableColumn(List2, "Column1", ListColumns2)
 
in Ketqua

e cảm ơn anh ạ,
"Không thầy đố mà làm nên"

Bài đã được tự động gộp: 16/9/21

Step Add column bạn trùng add 2 tầng:

View attachment 266146

Nếu làm đúng thì chỉ như vầy:

View attachment 266147

Kết quả step Expand phải lấy thêm cột Kind để lọc chỉ lấy sheet, vì có những name được tạo ra do filter

View attachment 266150

Của bạn lại 2 step Expand?

View attachment 266149

Chỉ expand 1 lần ở trên, them step filter lấy sheet

View attachment 266151

Expand lần nữa là ra kết quả

ôi, e cảm ơn ạ, đúng là lỗi nhỏ mà e lại không biết

 

[maily mai]

Step Add column bạn trùng add 2 tầng:

View attachment 266146

Nếu làm đúng thì chỉ như vầy:

View attachment 266147

Kết quả step Expand phải lấy thêm cột Kind để lọc chỉ lấy sheet, vì có những name được tạo ra do filter

View attachment 266150

Của bạn lại 2 step Expand?

View attachment 266149

Chỉ expand 1 lần ở trên, them step filter lấy sheet

View attachment 266151

Expand lần nữa là ra kết quả.

anh cho e hỏi thêm với ạ, e muốn làm tiêu đề như ảnh mà e chưa biết cách làm như nào ạ

 

[ptm0412]

Cho vào dòng đầu của dữ liệu. Trong code thì xóa 2 dòng 2 và 3

 

[ptm0412]

Nếu thay FolderName bằng 1 Name thì bị lỗi ngay dòng này thầy Mỹ.

FolderName = Excel.CurrentWorkbook(){[Name="Source"]}[Content]{0}[Column1],

-> lỗi dòng: DataF= List.Transform(FileNum, (f) =>

Vào query option, mục Privacy, đánh dấu Always Ignore