Dạ file dữ liệu cần muốn lấy anh (File A).
Vậy file B đâu bạn?
Dạ tạo file bất kỳ được anh. Nhờ anh giúp đỡ
Nếu lấy cả các sheet thì chỉ cần đổi tên file là xong.
mình không hểu ý anh lám
Sub DONVE1FILE() 'L?y d? li?u t? 1 Workbook khác
Dim wb As Workbook
Dim sh As Worksheet, ws As Worksheet
Dim sPat As String, swb As String
Dim lr&, col&, d&
Application.DisplayAlerts = False
Set sh = Sheets("TONGHOP") ' ten sh cân dôn du lieu vê
sh.Range("A1: F100000").ClearContents
sPat = "C:\Users\Admin\Downloads\" ' lây duong dan neu o v? trí khác thì thay dôi
swb = "Don gia.xlsx" ' láy file cân don vê 1 sh o 1 file khác
Set wb = Workbooks.Open(sPat & swb)
t = 1
For Each ws In wb.Worksheets
If ws.Cells(2, 1) <> Empty Then
If t = 1 Then
ws.UsedRange.Copy ThisWorkbook.Sheets("TONGHOP").Range("A1")
Else
lr = ThisWorkbook.Sheets("TONGHOP").Range("A" & Rows.Count).End(3).Row
d = ws.UsedRange.Rows.Count
col = ws.UsedRange.Columns.Count
ws.Range(ws.Cells(2, 1), ws.Cells(d, col)).Copy ThisWorkbook.Sheets("TONGHOP").Range("A" & lr + 1)
End If
End If
t = t + 1
Next ws
wb.Close False
MsgBox " Xong"
End Sub
[code]Dạ, file B anh tạo file mới anh. Anh làm giúp bằng ADO giúp em với. Em cảm ơn
Cám ơn bạn đã nhắc đến tôi, nhưng loại bài thế này tôi chưa từng viết code nên không dám nhận.
let
FName= "E:\Data\ThanhMy\DOWNLOAD\Don gia.xlsx",
Source = Table.Combine({Table.PromoteHeaders(Excel.Workbook(File.Contents(FName), null, true){[Item="GIA CAY",Kind="Sheet"]}[Data],
[PromoteAllScalars=true]),
Table.PromoteHeaders(Excel.Workbook(File.Contents(FName), null, true) {[Item="GIA DAT",Kind="Sheet"]}[Data],
[PromoteAllScalars=true]),
Table.PromoteHeaders(Excel.Workbook(File.Contents(FName), null, true){[Item="GIA NHA",Kind="Sheet"]}[Data],
[PromoteAllScalars=true]),
Table.PromoteHeaders(Excel.Workbook(File.Contents(FName), null, true){[Item="HO TRO KHAC",Kind="Sheet"]}[Data],
[PromoteAllScalars=true])})
in SourceEm biết là trong code chắc có mở file, nhưng khi gán code trên một Button gì đó thì chắc không thấy file mở. Nhờ anh giúp đỡ em. Cảm ơn anh
let
FName="D:\MyPham\MY BOOK\MCode-PowerQuery\Don gia.xlsx",
Source = Table.SelectRows(Excel.Workbook(File.Contents(FName), null, true),each ([Kind] = "Sheet"))[Data],
List1 = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
ListColumns = Table.ColumnNames(List1{0}[Column1]),
List2 = Table.PromoteHeaders(Table.ExpandTableColumn(List1,"Column1",ListColumns)),
Ketqua = Table.SelectRows(List2, each ([MA] <> "MA"))
in
Ketqua
Thêm 1 trường dữ liệu của Sheet nào nữa thì đẹp ạ.
Để thử xem sao,
Phải dùng vòng lặp để mỗi table con add 1 column
let
FName="D:\MyPham\MY BOOK\MCode-PowerQuery\Don gia.xlsx",
Source = Table.SelectRows(Excel.Workbook(File.Contents(FName), null, true),each ([Kind] = "Sheet")),
SourceData=Source[Data],
SheetName=Source[Item],
SheetNum={0..List.Count(SheetName)-1},
DataN= List.Transform(SheetNum, (i) =>
let
Data0 = Source[Data]{i},
Datai = Table.AddColumn(Data0, "Sheet", each SheetName{i})
in Datai),
List1 = Table.FromList(DataN, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
ListColumns = Table.ColumnNames(List1{0}[Column1]),
List2 = Table.PromoteHeaders(Table.ExpandTableColumn(List1,"Column1",ListColumns)),
Ketqua = Table.SelectRows(List2, each ([MA] <> "MA"))
in
Ketqualet
FName="D:\MyPham\MY BOOK\MCode-PowerQuery\Don gia.xlsx",
Source = Table.SelectRows(Excel.Workbook(File.Contents(FName), null, true),each ([Kind] = "Sheet")),
SourceData=Source[Data],
SheetName=Source[Item],
SheetNum={0..List.Count(SheetName)-1},
DataN= List.Transform(SheetNum, (i) =>
let
Data0 = Source[Data]{i},
Datai = Table.AddColumn(Table.PromoteHeaders(Data0), "SheetName", each SheetName{i})
in Datai),
List1 = Table.FromList(DataN, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
ListColumns = Table.ColumnNames(List1{0}[Column1]),
List2 = Table.ExpandTableColumn(List1,"Column1",ListColumns)
in
List2
