lấy dữ liệu từ file đang đóng sang file đang mở theo phạm vi, và giữ nguyên định dang.

Liên hệ QC
T

tranhoainam9701

Thành viên chính thức
Tham gia
15/11/11
Bài viết
67
Được thích
5
Xin nhờ các Anh/ chị trên diễn đàn viết giúp cho một sub vba lấy dữ liệu từ file sheetdong_1.( trong sheet này có một số ô được tô màu đánh dấu). lấy dữ liệu theo phạm vi mong muốn tuỳ ý sang sheetmo_1.( mong muốn khi chuyển dữ liệu từ sheetdong_1 sang sheetmo_1 giữ nguyên được cả phần ô đã được tô màu tại sheetdong_1 để chuyển nguyên trạng qua sheetmo_1.
Xin chân thành cám ơn!
Trân trọng/
 

File đính kèm

  • sheetdong_1.xlsm
    10.9 KB · Đọc: 7
  • sheetmo_1.xlsm
    11.2 KB · Đọc: 5
tranhoainam9701 đã viết:
Xin nhờ các Anh/ chị trên diễn đàn viết giúp cho một sub vba lấy dữ liệu từ file sheetdong_1.( trong sheet này có một số ô được tô màu đánh dấu). lấy dữ liệu theo phạm vi mong muốn tuỳ ý sang sheetmo_1.( mong muốn khi chuyển dữ liệu từ sheetdong_1 sang sheetmo_1 giữ nguyên được cả phần ô đã được tô màu tại sheetdong_1 để chuyển nguyên trạng qua sheetmo_1.
Xin chân thành cám ơn!
Trân trọng/
Nhấp chuột vào đây để mở rộng...
Đưa nguyên cả sheet sang là được rồi anh
 
tranhoainam9701 đã viết:
Xin nhờ các Anh/ chị trên diễn đàn viết giúp cho một sub vba lấy dữ liệu từ file sheetdong_1.( trong sheet này có một số ô được tô màu đánh dấu). lấy dữ liệu theo phạm vi mong muốn tuỳ ý sang sheetmo_1.( mong muốn khi chuyển dữ liệu từ sheetdong_1 sang sheetmo_1 giữ nguyên được cả phần ô đã được tô màu tại sheetdong_1 để chuyển nguyên trạng qua sheetmo_1.
Xin chân thành cám ơn!
Trân trọng
Nhấp chuột vào đây để mở rộng...
Bạn thử xem file. Đường dẫn của tôi có thể khác bạn.
 

File đính kèm

  • sheetmo_1.xlsm
    22.3 KB · Đọc: 13
HUONGHCKT đã viết:
Bạn thử xem file. Đường dẫn của tôi có thể khác bạn.
Nhấp chuột vào đây để mở rộng...
Cám ơn Anh nhiều ạ! em đã xem file thấy code của anh lấy tất cả dữ liệu trong file đang đóng về file đang mở rất ổn. Nhưng giờ e muốn lấy một phần dữ liệu theo phạm vi mong muốn của sheet, sheet 2trong file sheetdong_1 sang sheetmo_1(giữ nguyên màu sắc và định dạng) và sắp xếp theo trình tự lần lượt theo hàng. Nội dung mong muốn Anh xem trong hai file em gửi lại ạ!
Cám ơn Anh nhiều
Mong tin anh
Bài đã được tự động gộp:

tranhoainam9701 đã viết:
Cám ơn Anh nhiều ạ! em đã xem file thấy code của anh lấy tất cả dữ liệu trong file đang đóng về file đang mở rất ổn. Nhưng giờ e muốn lấy một phần dữ liệu theo phạm vi mong muốn của sheet, sheet 2trong file sheetdong_1 sang sheetmo_1(giữ nguyên màu sắc và định dạng) và sắp xếp theo trình tự lần lượt theo hàng. Nội dung mong muốn Anh xem trong hai file em gửi lại ạ!
Cám ơn Anh nhiều
Mong tin anh
Nhấp chuột vào đây để mở rộng...
 

File đính kèm

  • sheetdong_1.xlsx
    12.1 KB · Đọc: 3
  • sheetmo_1.xlsm
    19.4 KB · Đọc: 4
tranhoainam9701 đã viết:
Cám ơn Anh nhiều ạ! em đã xem file thấy code của anh lấy tất cả dữ liệu trong file đang đóng về file đang mở rất ổn. Nhưng giờ e muốn lấy một phần dữ liệu theo phạm vi mong muốn của sheet, sheet 2trong file sheetdong_1 sang sheetmo_1(giữ nguyên màu sắc và định dạng) và sắp xếp theo trình tự lần lượt theo hàng. Nội dung mong muốn Anh xem trong hai file em gửi lại ạ!
Cám ơn Anh nhiều
Mong tin anh
Bài đã được tự động gộp:
Nhấp chuột vào đây để mở rộng...
Tôi đã nói ở một bài nào đó tôi không phải tuýp người tinh anh như người ta, nên không có khả năng đoán ý người khác, Do vậy ở bài này: bạn viết "....lấy một phần dữ liệu theo phạm vi mong muốn..." tôi hiểu là lấy dữ liệu ở 1 vùng nào đó, theo điều kiện cho trước (điều này VBA hoàn toàn có thể làm được). Nhưng đến đoạn "...sắp xếp theo trình tự lần lượt theo hàng. Nội dung mong muốn Anh xem trong hai file em gửi ...." Thì tôi thực sự căng não ra để tìm ý bạn muốn gì. 2 file bạn gửi gồm :file sheetdong_1 gồm những sheet có tô màu vàng vàng, ở 1 số cột (không đều nhau về số dòng); file sheetmo_1 gồm 1 sheet trong đó là nội dung của Sheet2/file sheetdong_1 được dán liên tiếp nhau.
Vậy thì "...sắp xếp theo trình tự lần lượt theo hàng..." ở đây là gì?. Chẳng phải là bản thân dữ liệu nguồn đã được sắp xếp theo hàng rồi còn gì?
Tôi gửi lại file SheetMo_1 để bạn tham khảo code (ở Modul 1) trong đó tôi đã nêu các trường hợp cần lấy dữ liệu và code có diễn giải từng dòng code. bạn ngâm cứu để thực hành cho quen nhé. Cũng là 1 lần tự mình viết code -sau quen rồi -khỏi phải đi hỏi, đúng không bạn?
Chúc thành công.
 

File đính kèm

  • sheetmo_1 (1).xlsm
    21.8 KB · Đọc: 10
HUONGHCKT đã viết:
Tôi đã nói ở một bài nào đó tôi không phải tuýp người tinh anh như người ta, nên không có khả năng đoán ý người khác, Do vậy ở bài này: bạn viết "....lấy một phần dữ liệu theo phạm vi mong muốn..." tôi hiểu là lấy dữ liệu ở 1 vùng nào đó, theo điều kiện cho trước (điều này VBA hoàn toàn có thể làm được). Nhưng đến đoạn "...sắp xếp theo trình tự lần lượt theo hàng. Nội dung mong muốn Anh xem trong hai file em gửi ...." Thì tôi thực sự căng não ra để tìm ý bạn muốn gì. 2 file bạn gửi gồm :file sheetdong_1 gồm những sheet có tô màu vàng vàng, ở 1 số cột (không đều nhau về số dòng); file sheetmo_1 gồm 1 sheet trong đó là nội dung của Sheet2/file sheetdong_1 được dán liên tiếp nhau.
Vậy thì "...sắp xếp theo trình tự lần lượt theo hàng..." ở đây là gì?. Chẳng phải là bản thân dữ liệu nguồn đã được sắp xếp theo hàng rồi còn gì?
Tôi gửi lại file SheetMo_1 để bạn tham khảo code (ở Modul 1) trong đó tôi đã nêu các trường hợp cần lấy dữ liệu và code có diễn giải từng dòng code. bạn ngâm cứu để thực hành cho quen nhé. Cũng là 1 lần tự mình viết code -sau quen rồi -khỏi phải đi hỏi, đúng không bạn?
Chúc thành công.
Nhấp chuột vào đây để mở rộng...
Thực sự cám ơn Anh rất nhiều ạ! em cũng đàn vỡ lòng về VBA thôi ạ, còn gà mờ lắm Anh ơi, trên diễn đàn có Anh và các Anh/ Chị nhiệt tình giúp đỡ, thật lòng rất ngưỡng mộ và cảm kích tấm lòng của mọi người. Anh thông cảm vì văn phạm lủng củng quá. lần sau em sẽ rút kinh nghiệm hơn, trình bày mong muốn cụ thể trong file hơn tránh tình trạng các Anh lại phải đoán ý. Một lần nữa thực sự cám ơn Anh. Chúc Anh và các Anh chị trong diễn đàn luôn mạnh khoẻ, hạnh phúc và thành công!
Trân trọng/
 
HUONGHCKT đã viết:
Tôi đã nói ở một bài nào đó tôi không phải tuýp người tinh anh như người ta, nên không có khả năng đoán ý người khác, Do vậy ở bài này: bạn viết "....lấy một phần dữ liệu theo phạm vi mong muốn..." tôi hiểu là lấy dữ liệu ở 1 vùng nào đó, theo điều kiện cho trước (điều này VBA hoàn toàn có thể làm được). Nhưng đến đoạn "...sắp xếp theo trình tự lần lượt theo hàng. Nội dung mong muốn Anh xem trong hai file em gửi ...." Thì tôi thực sự căng não ra để tìm ý bạn muốn gì. 2 file bạn gửi gồm :file sheetdong_1 gồm những sheet có tô màu vàng vàng, ở 1 số cột (không đều nhau về số dòng); file sheetmo_1 gồm 1 sheet trong đó là nội dung của Sheet2/file sheetdong_1 được dán liên tiếp nhau.
Vậy thì "...sắp xếp theo trình tự lần lượt theo hàng..." ở đây là gì?. Chẳng phải là bản thân dữ liệu nguồn đã được sắp xếp theo hàng rồi còn gì?
Tôi gửi lại file SheetMo_1 để bạn tham khảo code (ở Modul 1) trong đó tôi đã nêu các trường hợp cần lấy dữ liệu và code có diễn giải từng dòng code. bạn ngâm cứu để thực hành cho quen nhé. Cũng là 1 lần tự mình viết code -sau quen rồi -khỏi phải đi hỏi, đúng không bạn?
Chúc thành công.
Nhấp chuột vào đây để mở rộng...
Sub COPYSHEET()



Dim Arr()

Dim NWs As Worksheet, WbMoi As Workbook, Ws As Worksheet

Dim file As Variant



Application.ScreenUpdating = False

Application.DisplayAlerts = False



'For Each file In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Users\Admin\Downloads\").Files( đường dẫn đến file chứa dữ liệu cần lấy.)

' If file.Name Like "sheetdong_*.xlsm" Then (tên file cần lấy dữ liệu)

' Set WbMoi = Workbooks.Open(file)

' For Each Ws In WbMoi.Sheets

I.1/====== ----Nêu là lây theo ðiêu kiên (co thê 1, 3 ... ðk

' If Ws.Name = "Ten Sheet muon lây du liêu" Then( tên sheet trong file cần lấy dữ liệu)

' Arr=Ten sh muôn lay dý lieu.range(" Vùng cân lây dý liêu"). value 'Gán vùng cân lây du liêu vào mang( tên sheet muốn lấy dữ liệu trường hợp tên sheet ở đây là b1 hoặc b2 thì ghi như nào ak?

' Redim KQ(1 to ubound(arr),1 to Ubound(arr,2) ' khai bao kich thuoc mang ket qua

' For i = 1 to Ubound(arr) ' duyet tung dong cua mang

' If Arr(i,côt cân so sanh)= "dieu kien ðê lay dý lieu" then ' so sanh du lieu voiDieu kien neu thoa man thi( cột cần so sánh ở đây được hiểu như nào ak? có phải là cột chứa dữ liệu trong sheet cần lấy hay là sao ak? cái này em gà quá.

' t=t+1

' For j = 1 To UBound(Arr, 2)

' KQ(t, j) = Arr(i, j) 'lay du lieu ðua vao mang kêt qua

' Next j

' End If

' Next i



'II/=======NÊU là Copy 1 vùng cua sheet nguon=========='

' Ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

'2.1/ 'Ws.Cells.Copy '------ neu copy ca sheet

'2.2/ 'Ws.Range("vung ðinh copy") '--------neu Copy vung ðinh lay

'III/========= Phân paste xuông Sheet============'

'3.1/======= neu copy ca sheet

' Windows("sheetmo_1.xlsm").Activate

' Sheets.Add After:=ActiveSheet

' ActiveSheet.Paste

' Set NWs = ActiveSheet

' NWs.Name = "Gigido" dãt ten cho shett moi ðýõc tao ra

'3.2/======neu copy 1 vung

' Sheet Ðích.Range("ô cân dán kêt qua ").Paste

' Next Ws ' kêt thuc vong lap tim sheet nguôn

' WbMoi.Close ' dong Workbook

' End If

'Next file ' kêt thuc vong lãp tim file



'I.2/===Gán ket qua xuong sheet ðích

'If t Then

'Sheet Ðích .range("vùng kêt qua tra vê"). clearcontents ' lam sach vung ðinh gan ket qua

'Sheet Ðích .range("Ô ðãt kêt qua"). resize(t,Ubound(arr,2)=KQ ' Gán ket qua xuong sheet ðích

'End If







Application.ScreenUpdating = True

Application.DisplayAlerts = True



MsgBox " Ða xong", vbInformation, "THÔNG BÁO"
Bài đã được tự động gộp:

tranhoainam9701 đã viết:
Sub COPYSHEET()



Dim Arr()

Dim NWs As Worksheet, WbMoi As Workbook, Ws As Worksheet

Dim file As Variant



Application.ScreenUpdating = False

Application.DisplayAlerts = False



'For Each file In CreateObject("Scripting.FileSystemObject").GetFolder("C:\Users\Admin\Downloads\").Files( đường dẫn đến file chứa dữ liệu cần lấy.)

' If file.Name Like "sheetdong_*.xlsm" Then (tên file cần lấy dữ liệu)

' Set WbMoi = Workbooks.Open(file)

' For Each Ws In WbMoi.Sheets

I.1/====== ----Nêu là lây theo ðiêu kiên (co thê 1, 3 ... ðk

' If Ws.Name = "Ten Sheet muon lây du liêu" Then( tên sheet trong file cần lấy dữ liệu)

' Arr=Ten sh muôn lay dý lieu.range(" Vùng cân lây dý liêu"). value 'Gán vùng cân lây du liêu vào mang( tên sheet muốn lấy dữ liệu trường hợp tên sheet ở đây là b1 hoặc b2 thì ghi như nào ak?

' Redim KQ(1 to ubound(arr),1 to Ubound(arr,2) ' khai bao kich thuoc mang ket qua

' For i = 1 to Ubound(arr) ' duyet tung dong cua mang

' If Arr(i,côt cân so sanh)= "dieu kien ðê lay dý lieu" then ' so sanh du lieu voiDieu kien neu thoa man thi( cột cần so sánh ở đây được hiểu như nào ak? có phải là cột chứa dữ liệu trong sheet cần lấy hay là sao ak? cái này em gà quá.

' t=t+1

' For j = 1 To UBound(Arr, 2)

' KQ(t, j) = Arr(i, j) 'lay du lieu ðua vao mang kêt qua

' Next j

' End If

' Next i



'II/=======NÊU là Copy 1 vùng cua sheet nguon=========='

' Ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

'2.1/ 'Ws.Cells.Copy '------ neu copy ca sheet

'2.2/ 'Ws.Range("vung ðinh copy") '--------neu Copy vung ðinh lay

'III/========= Phân paste xuông Sheet============'

'3.1/======= neu copy ca sheet

' Windows("sheetmo_1.xlsm").Activate

' Sheets.Add After:=ActiveSheet

' ActiveSheet.Paste

' Set NWs = ActiveSheet

' NWs.Name = "Gigido" dãt ten cho shett moi ðýõc tao ra

'3.2/======neu copy 1 vung

' Sheet Ðích.Range("ô cân dán kêt qua ").Paste

' Next Ws ' kêt thuc vong lap tim sheet nguôn

' WbMoi.Close ' dong Workbook

' End If

'Next file ' kêt thuc vong lãp tim file



'I.2/===Gán ket qua xuong sheet ðích

'If t Then

'Sheet Ðích .range("vùng kêt qua tra vê"). clearcontents ' lam sach vung ðinh gan ket qua

'Sheet Ðích .range("Ô ðãt kêt qua"). resize(t,Ubound(arr,2)=KQ ' Gán ket qua xuong sheet ðích

'End If







Application.ScreenUpdating = True

Application.DisplayAlerts = True



MsgBox " Ða xong", vbInformation, "THÔNG BÁO"
Nhấp chuột vào đây để mở rộng...
Mong Anh HUONG chỉ bảo thêm giúp cho, có mấy chỗ trong code của anh mà em không hiểu gì ak. cái phần em bôi màu xanh cho chữ trong code đó. Mong được Anh hướng dẫn chỉ dạy thêm cho.
Trân trọng/
 
tranhoainam9701 đã viết:
I.1/====== ----Nêu là lây theo ðiêu kiên (co thê 1, 3 ... ðk
' If Ws.Name = "Ten Sheet muon lây du liêu" Then( tên sheet trong file cần lấy dữ liệu)
1/***' Arr=Ten sh muôn lay dý lieu.range(" Vùng cân lây dý liêu"). value 'Gán vùng cân lây du liêu vào mang( tên sheet muốn lấy dữ liệu trường hợp tên sheet ở đây là b1 hoặc b2 thì ghi như nào ak?
' Redim KQ(1 to ubound(arr),1 to Ubound(arr,2) ' khai bao kich thuoc mang ket qua
' For i = 1 to Ubound(arr) ' duyet tung dong cua mang
2/****' If Arr(i,côt cân so sanh)= "dieu kien ðê lay dý lieu" then ' so sanh du lieu voiDieu kien neu thoa man thi( cột cần so sánh ở đây được hiểu như nào ak? có phải là cột chứa dữ liệu trong sheet cần lấy hay là sao ak? cái này em gà quá.

Mong Anh HUONG chỉ bảo thêm giúp cho, có mấy chỗ trong code của anh mà em không hiểu gì ak. cái phần em bôi màu xanh cho chữ trong code đó. Mong được Anh hướng dẫn chỉ dạy thêm cho.
Trân trọng/
Nhấp chuột vào đây để mở rộng...
Tôi tạm dịch nôm na thế này nhé:
Dòng code : If Ws.Name = "Ten Sheet muon lây du liêu" Then '( tên sheet trong file cần lấy dữ liệu)
<=> Khi duyệt qua từng sheet của file cần lấy dữ liệu thấy tên sheet thỏa (trùng ) với tên sheets cần lấy dữ liệu thì
1/*** Arr=Tên sheet muốn lấy dữ liệu . Range(Vùng cần lấy dữ liệu)
<=>Arr=Ws.Range("B5:Z200") ===> tức là ta gán vùng B5:Z200 của sheet vừa tìm thấy là mảng Arr
"...trường hợp tên sheet ở đây là b1 hoặc b2 thì..." với b1 và b2 là tên sheet trong file cần lấy dữ liệu( hay nói cách khác là cần lấy dữ liệu trong 2 sheet có tên là b1 và b2 của file muốn lấy) Thì code sẽ là
Mã: 
If Ws.name="B1" and Ws.name="B2" then
 Arr=Ws.Range("B5:Z200")
......
2/*** Dòng code: For i = 1 to Ubound(arr) ' duyet tung dong cua mang
If Arr(i,côt cân so sanh)= "dieu kien để lay dữ lieu" then
<=> duyệt qua từng dòng của mảng nếu thấy phần tử thứ i của cột cần so sánh trùng vói điều kiện để lấy dữ liệu thì làm gì đó...
Ví dụ: ta đã có mảng Arr=Sheets("b1").range("B5:Z200") trong đó cột 1 của mảng= cột B của sheet (có trường là ngày tháng), Điều kiện cần lấy dữ liệu là chọn ra các bản ghi có ngày tháng >= 1/2/2022 và <=28/20/2022. (tu=B1=1/2/2022; den=B2=28/2/2022)
Vậy code sẽ là:
Mã: 
tu=Sh.[B1]: den=Sh.[B2]
For i = 1 to Ubound(arr)
 if Arr(i,1)>= tu and Arr(i,1)=< den then
t=t+1
'...lấy dữ liệu gán vào mảng kết quả
KQ(t,1)=Arr(i,1)
KQ(t,2)=Arr(i,2)
.........
 
HUONGHCKT đã viết:
Tôi tạm dịch nôm na thế này nhé:
Dòng code : If Ws.Name = "Ten Sheet muon lây du liêu" Then '( tên sheet trong file cần lấy dữ liệu)
<=> Khi duyệt qua từng sheet của file cần lấy dữ liệu thấy tên sheet thỏa (trùng ) với tên sheets cần lấy dữ liệu thì
1/*** Arr=Tên sheet muốn lấy dữ liệu . Range(Vùng cần lấy dữ liệu)
<=>Arr=Ws.Range("B5:Z200") ===> tức là ta gán vùng B5:Z200 của sheet vừa tìm thấy là mảng Arr
"...trường hợp tên sheet ở đây là b1 hoặc b2 thì..." với b1 và b2 là tên sheet trong file cần lấy dữ liệu( hay nói cách khác là cần lấy dữ liệu trong 2 sheet có tên là b1 và b2 của file muốn lấy) Thì code sẽ là
Mã: 
If Ws.name="B1" and Ws.name="B2" then
 Arr=Ws.Range("B5:Z200")
......
2/*** Dòng code: For i = 1 to Ubound(arr) ' duyet tung dong cua mang
If Arr(i,côt cân so sanh)= "dieu kien để lay dữ lieu" then
<=> duyệt qua từng dòng của mảng nếu thấy phần tử thứ i của cột cần so sánh trùng vói điều kiện để lấy dữ liệu thì làm gì đó...
Ví dụ: ta đã có mảng Arr=Sheets("b1").range("B5:Z200") trong đó cột 1 của mảng= cột B của sheet (có trường là ngày tháng), Điều kiện cần lấy dữ liệu là chọn ra các bản ghi có ngày tháng >= 1/2/2022 và <=28/20/2022. (tu=B1=1/2/2022; den=B2=28/2/2022)
Vậy code sẽ là:
Mã: 
tu=Sh.[B1]: den=Sh.[B2]
For i = 1 to Ubound(arr)
 if Arr(i,1)>= tu and Arr(i,1)=< den then
t=t+1
'...lấy dữ liệu gán vào mảng kết quả
KQ(t,1)=Arr(i,1)
KQ(t,2)=Arr(i,2)
.........
Nhấp chuột vào đây để mở rộng...
Em không biết nói gi hơn ngoài lời Cám Ơn Anh nhiều ạ!.
 
tranhoainam9701 đã viết:
Em không biết nói gi hơn ngoài lời Cám Ơn Anh nhiều ạ!.
Nhấp chuột vào đây để mở rộng...
Kính gửi Anh HUONGTCKT!
Mặc dù được Anh giải thích thế nhưng em gà mờ quá không thể sửa cũng như chỉnh code sao cho chạy được nên mạo muội gửi file lên mong anh code giúp cho. Mong muốn lấy dữ liệu từ file sheetnguon sang sheetdich. kết quả trong sheetdich e đã được giả định nội dung kết quả sau khi chạy code (lưu ý: lấy dữ liệu từ file nguồn trả kết quả trong file dich không được mất màu( màu vàng) đánh dấu. Mong Anh chiếu cố giúp cho!
Trân trọng/
 

File đính kèm

  • sheetnguon.xlsb
    15.7 KB · Đọc: 6
  • sheetdich.xlsb
    15.7 KB · Đọc: 2
tranhoainam9701 đã viết:
Kính gửi Anh HUONGTCKT!
Mặc dù được Anh giải thích thế nhưng em gà mờ quá không thể sửa cũng như chỉnh code sao cho chạy được nên mạo muội gửi file lên mong anh code giúp cho. Mong muốn lấy dữ liệu từ file sheetnguon sang sheetdich. kết quả trong sheetdich e đã được giả định nội dung kết quả sau khi chạy code (lưu ý: lấy dữ liệu từ file nguồn trả kết quả trong file dich không được mất màu( màu vàng) đánh dấu. Mong Anh chiếu cố giúp cho!
Trân trọng/
Nhấp chuột vào đây để mở rộng...
vấn đề chính ở đây là em chỉ muốn lấy một vài sheet trong file nguon sang file dich mà thôi chứ không muốn lấy tất cả như code mà anh đã viết gửi em có tên là copy dữ liệu nhiều sheet ssang sheet khác. ở code đó thì nó lại lấy tất cả các sheet có trong file nguồn anh ak
Mong nhận được sự quan tâm giúp đỡ từ Anh
 
tranhoainam9701 đã viết:
vấn đề chính ở đây là em chỉ muốn lấy một vài sheet trong file nguon sang file dich mà thôi chứ không muốn lấy tất cả như code mà anh đã viết gửi em có tên là copy dữ liệu nhiều sheet ssang sheet khác. ở code đó thì nó lại lấy tất cả các sheet có trong file nguồn anh ak
Mong nhận được sự quan tâm giúp đỡ từ Anh
Nhấp chuột vào đây để mở rộng...
Bạn xem file. Trong đó có 2 modul copy cả sheet và copy 1 vùng chỉ định. Còn các loại copy theo điều kiện thì tính sau.
 

File đính kèm

  • sheetdich.xlsb
    19.6 KB · Đọc: 7
baobao87 đã viết:
cái này dạng giống như e đang tìm. Nhưng e chỉ muốn copy riêng 1 sheet của file đó vào và Có thể gộp chung nhiều file vào 1 sheet được không ạ
Nhấp chuột vào đây để mở rộng...
"e" là gì vậy bạn? Bạn không thể viết đầy đủ đại từ nhân xưng của tiếng mẹ đẻ à? Viết tắt như vậy nhiều người sẽ nghĩ là bạn thiếu tôn trọng người khác và thiếu trân trọng chính bản thân mình đấy.
Còn về code để lấy dữ liệu của nguyên 1 sh hay chỉ lấy một số dòng, và một số cột (thỏa mãn theo điều kiện nào đó) của chỉ 1 sh hay nhiều sh trong 1 workbook có nhiều sh, hoặc trong nhiều Workbook (nhiều file), hay gộp nhiều file vào 1 Sheet đều được mà. tất nhiên là nhanh chậm tùy thuộc vào dữ liệu có chuẩn hay không, có nhiều dữ liệu hay không.
Bạn tìm trên diễn đàn này có rất nhiều bài về gộp Sh. gộp file ... bằng nhiều giải pháp (Pivot table, Power Bi, ADO,....) để lựa chọn nhé.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

S
  • Question
Không lấy đủ dữ liệu bằng kết nối ADO
2
Trả lời
27
Đọc
445
befaint
befaint
LuuAnh980
  • Question
Code lấy dữ liệu từ 3 file con.
2 3
Trả lời
54
Đọc
720
ptm0412
ptm0412
K
Tính tổng có điều kiện
Trả lời
3
Đọc
67
HieuCD
H
kyo
  • Suggestion
Bài viết: SAP Scripting – Excel và SAP (P2)
    • Thích
Trả lời
11
Đọc
8K
Tình nghĩa giang hồ
Tình nghĩa giang hồ
H
Kết nối vba với Database host (hiện tại đang làm host web)
Trả lời
4
Đọc
176
ongke0711
ongke0711
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom