Đoạn code như sau nhé: Sub copyfile() Path = "" Filename = Dir(Path & "*.xls*") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy after:=ThisWorkbook.Sheets(1) Next Workbooks(Filename).Close Filename = Dir() Loop End Sub
E chào a Gà. Nhờ a hướng dẫn em làm một chương trình với công việc như sau ạ: Hiện tại cv của mình phải tạo và theo dõi thay đổi danh sách các vật liệu có trong một thiết bị. Hàng ngày mình phải tạo bảng record các thay đổi. Mình muốn khi nhập thông tin mới hoặc thay đổi mã vật liệu trong cả danh sách vật liệu như tên, số lượng, mô tả, nhà sản xuất thì dữ liệu thay đổi sẽ tự cập nhật sang sheet record thay đổi ạ. Mình cảm ơn rất nhiều ạ.
@ mình có lời khuyên nho nhỏ.. bạn nên bảo với mọi người lúc đầu luôn là ko áp dụng đc khi tên file có dấu nhé.. đúng là add mấy chục file thì code này siêu hiệu quả ạ..
cảm ơn ad, mình có làm theo thứ tự như vậy nhưng sau đó hiện lên dòng thông báo và dòng chứ bôi vàng sun copyfile , như thế này thì mình phải sử gì hả ad? mình cảm ơn ạ.
anh ơi, có cách nào để copy dữ liệu từ sheet1 của file con vào sheet1 của file tổng; sheet2 của file con vào sheet2 của file tổng..... không ạ. Tức là các lấy dữ liệu từ các sheet của file con cóp sang sheet có tên tương ứng của file tổng ạ
mình làm theo hướng dẫn, sau khi bấm Run thì xuất hiện bảng thông báo và bôi vàng dòng lện này: Workbooks.Open Filename:=Path & Filename, ReadOnly:=True mong ad chỉ dẫn thêm
Anh cho em hỏi em muốn hỏi: Em muốn cop một sheet đặc biệt từ nhiều file khác nhau (sheet có tên giống nhau ở nhiều file ) vào một file và tên sheet cop vào được đổi theo tên của file chứa sheet đó thì có thể dùng code nào ạ
4 ปีที่แล้ว
Thực ra cái này cũng ko khó lắm. Bạn cần tìm lệnh lấy tên file, rồi khi copy thì đặt tên là tên file lấy ở trên là được. Chúc bạn thành công nha
Gà cho hỏi chút. Mình có nhiều File Excel tờ khai Hải Quan (mỗi tờ khai có khoảng 3-400 dòng, các dòng trắng sen kẽ dòng có chữ). Mình có thực hiện như Video bạn hướng dẫn mà chỉ gom các File lại với nhau có 7 dòng đầu tiên. Có cách nào lấy số dòng theo ý muốn (kể cả dòng trắng) không bạn? Mình cảm ơn.
AD ơi do file dữ liệu tương đương và có vài dòng bị trùng lập Khi chạy lệnh Excel liên tục hỏi mình có muốn đổi tên này nọ ko mình bấm Yes To All mà nó cứ liên tục hỏi có cách nào disable ko Ad ơi. Help!
A ơi chỉ e làm này với file excel nhe...vd: e có 1 file excel , sheet1 với dử liệu là các cột là các ngày trong tháng của năm 2020( 01/01/2020, 02/01/2020......30/12/2020) . Dữ liệu các dòng của các cột là số liệu ... Làm sao để code VBA để lấy dư liệu vd: hôm nay là 02/02/2020 thì nó sẽ tự động lấy dữ liệu các cột ngày như sau: 02/02/2020, 03/02/2020, 04/02/2020 ( tức là lấy thêm 2 ngày tiep theo của ngày hiện tại nhưng loại trừ ngày thứ 7 và chủ nhật) copy dữ liệu đó vào 1sheet khác của 1 file excel đã tạo rỗng sẵn trong 1 thư mục sẵn có..??????
4 ปีที่แล้ว
Bạn dùng vòng lặp FOR Next, rồi kết hợp với các hàm IF thôi ạ. Chúc bạn sớm làm được nha
Mình chạy thử thì 1 số file OK, riêng 1 gói 4 file thì bị báo lỗi Run Time Error 1004. Debug thì nó báo màu vàng ở dòng Sheet.Copy after:=ThisWorkbook.Sheets(1). Bạn chỉ mình cách sửa với. Thanks bạn
4 ปีที่แล้ว +1
Hic hic vậy ạ. Bạn theo dõi kỹ xem có thừa thiếu bước nào ko nha.
@ Mình có những file kiểu như thế này cần Ghép lại thành 1 file. Nhưng bị lỗi, bạn check giúp mình được không? drive.google.com/drive/folders/1YYHY0unLc0M8mw6y1Ya6xfzLQah3ajd4?usp=sharing
mình gõ tiếng Việt không được nó hiện ra như này Sub copyfile() Path = "" Filename = Dir(Path & "*.xls*") Do While Filename _m? đóng ngo?c nh?n_ "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy after:=ThisWorkbook.Sheets(1) Next Workbooks(Filename).Close Filename = Dir() Loop End Sub Rồi bấm nút play nó báo lỗi. Chỉ giúp mình cách khắc phục nhé
Add pro ơi mình đang mò mẫm chức năng reco maccro để copy bảng từ file này sang file khác (mình chỉ biết chon A1 file này =A1 ở file khác) nhưng khi không mở file nguồn thì những ô có dữ liệu tex đều bị lỗi "NAME" bạn có thể làm video hướng dẫn mình được không. Thank add
4 ปีที่แล้ว +1
Đấy ko phải là lỗi đâu ạ. Bạn ko mở file nguồn thì nó báo như thế thôi mà. Bạn có thể thêm hàm iferror nếu ko muốn xuất hiện cái kia khi mà ko mở file nguồn nhé
@ thank bạn. công việc của mình là chỉnh sửa và in biểu của các đơn vị. Mỗi đơn vị có 13 file và mình có 23 đơn vị (tên các file như nhau, cùng cấu trúc biểu bảng) 😂 mình muốn tạo ra file đã được căn chỉnh và cập nhập thông tin các file nguồn để mỗi lần chỉ pase vào từng foder chứa file gốc là in. Vậy có cách nào dễ làm không add mà không cần mở file nguồn cho đỡ mất thời gian. 🙂 Thank bạn vì đã phản hồi!
anh Gà chỉ thêm giùm cái, sau khi run Sub copyfile() Path = "G:\2021\BÁO CÁO\BÁO CÁO NGÀY\Báo cáo ho?t dông và KPI\Báo cáo ho?t d?ng DV ngày\Báo cáo VBA\T12\" Filename = Dir(Path & "*.xls*") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy after:=ThisWorkbook.Sheets(1) Next Workbooks(Filename).Close Filename = Dir() Loop End Sub phần Filename = Dir(Path báo lổi anh ơi
Đoạn code như sau nhé:
Sub copyfile()
Path = ""
Filename = Dir(Path & "*.xls*")
Do While Filename ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy after:=ThisWorkbook.Sheets(1)
Next
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
thank Gà excel. Các video thật tuyệt
Đỉnh cao về Excel đấy. Cái tên Gà Excel là từ đâu vậy bạn?
Thấy hay hay, dễ nhớ, gần gũi và phù hợp với tiêu chí nên mình chọn thôi ạ
Phải học gì để có thể viết đc các đoạn code vậy bạn?
@@manhtranvan5575 lập trình VBA for excel. Nhà sách có bán đó bạn
Thay đổi địa chỉ thì bấm altr 11 thay đổi lại hay sao ad
Hello Gà, Mong bạn ra video giải thích ý nghĩa của đoạn code này nha. Tks bạn
Bạn theo dõi thêm các video về VBA sẽ hiểu ạ
File của e đuôi xls thì code sửa ntn ạ
mình muốn chọn file cần gộp làm ntn ạ? có thể thay đổi foder chọn file ko cố định vào vba?
Cảm ơn a đã chia sẻ quá hay
E chào a Gà. Nhờ a hướng dẫn em làm một chương trình với công việc như sau ạ:
Hiện tại cv của mình phải tạo và theo dõi thay đổi danh sách các vật liệu có trong một thiết bị. Hàng ngày mình phải tạo bảng record các thay đổi. Mình muốn khi nhập thông tin mới hoặc thay đổi mã vật liệu trong cả danh sách vật liệu như tên, số lượng, mô tả, nhà sản xuất thì dữ liệu thay đổi sẽ tự cập nhật sang sheet record thay đổi ạ.
Mình cảm ơn rất nhiều ạ.
nếu file gốc copy có nhiều sheer, nhưng mình chỉ cần copy sheet đầu tiên thì phải chỉnh code thế nào ạ
Hay vậy mà giờ mới biết
Cho mình hỏi file 1, 2, 3 của bạn sao k có đuôi ".xlsx"...mình làm theo video mà k dc
Tks a nhé. E thích học Excel lắm.
tôi cũng ko sỏi excel mà vẫn thích học
Thank bạn đã chia sẻ
quá hay ạ..thank ad
Hihi, Gà cảm ơn và chúc bạn học tốt nha
@ mình có lời khuyên nho nhỏ.. bạn nên bảo với mọi người lúc đầu luôn là ko áp dụng đc khi tên file có dấu nhé.. đúng là add mấy chục file thì code này siêu hiệu quả ạ..
@@nguyenthevu8164 anh chạy được rồi ạ? em bị lỗi Sheet.Copy after:=ThisWorkbook.Sheets(1) ko biết ntn
cảm ơn ad, mình có làm theo thứ tự như vậy nhưng sau đó hiện lên dòng thông báo và dòng chứ bôi vàng sun copyfile , như thế này thì mình phải sử gì hả ad? mình cảm ơn ạ.
mình cũng bị có ai biết chỉ cách với ạ
Làm sao để sắp xếp các sheet theo tên vậy a
cho em hỏi, nếu các file lưu ở các thư mục khác nhau thì làm sao để gộp ạ
trường hợp em chỉ muốn copy value thôi thì thêm code như thế nào ạ?
Cảm ơn bạn
anh ơi, có cách nào để copy dữ liệu từ sheet1 của file con vào sheet1 của file tổng; sheet2 của file con vào sheet2 của file tổng..... không ạ. Tức là các lấy dữ liệu từ các sheet của file con cóp sang sheet có tên tương ứng của file tổng ạ
làm đc chưa bạn ơii
mình làm theo như bạn rồi nhưng bấm run ko chạy gì là tại sao bạn
Giỏi quá a ơi
Bạn hướng dẫn giúp cách gom vào 1 sheet duy nhất với. Cám ơn bạn.
Trên kênh mình có bài copy nhiều file vào 1 file dùng VBA đó ạ, sẽ copy nhiều file vào 1 sheet duy nhất. Bạn tìm trên kênh nha
Xin chào! Xin cho tôi hỏi một chút làm sao để sau khi copi vẫn giữ được thuộc tính của nó!
mình làm theo hướng dẫn, sau khi bấm Run thì xuất hiện bảng thông báo và bôi vàng dòng lện này: Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
mong ad chỉ dẫn thêm
và chỉ copy đc 2/5 file trong địa chỉ folder của mình
à tên file excel của mình để dấu tiếng việt nên ko đc hết
OK, chúc bạn học tốt nha
@ tên file em k có dấu nhưng cũng bị lỗi ở dòng giống bạn
Anh cho em hỏi em muốn hỏi: Em muốn cop một sheet đặc biệt từ nhiều file khác nhau (sheet có tên giống nhau ở nhiều file ) vào một file và tên sheet cop vào được đổi theo tên của file chứa sheet đó thì có thể dùng code nào ạ
Thực ra cái này cũng ko khó lắm. Bạn cần tìm lệnh lấy tên file, rồi khi copy thì đặt tên là tên file lấy ở trên là được. Chúc bạn thành công nha
Gà cho hỏi chút. Mình có nhiều File Excel tờ khai Hải Quan (mỗi tờ khai có khoảng 3-400 dòng, các dòng trắng sen kẽ dòng có chữ). Mình có thực hiện như Video bạn hướng dẫn mà chỉ gom các File lại với nhau có 7 dòng đầu tiên. Có cách nào lấy số dòng theo ý muốn (kể cả dòng trắng) không bạn? Mình cảm ơn.
em co 30 file excel em muốn gộp vô 1 file mà file kia có 30 sheet em để tên trùng vs 30 file kia vậy code nhảy đúng dữ liệu vào từng sheet không ạ
gộp lại có bi mất hàm trông file không ???
em copy rồi nhưng thứ tự sheet ko được như lúc đầu em đã sắp. có cách nào khắc phục ko ad
Hic hic vậy ạ. Bạn xem kỹ lại xem có thừa thiếu bước nào ko nha
Đoạn code mình copy vào nó bị lỗi font chữ không cho chạy. giờ sửa sao đây ạ
Code này nếu sau nay mình bỏ file exel khác vào thư mục đó , nó có chạy được ko ạ bạn
Hay quá Gà ơi!
AD ơi do file dữ liệu tương đương và có vài dòng bị trùng lập Khi chạy lệnh Excel liên tục hỏi mình có muốn đổi tên này nọ ko mình bấm Yes To All mà nó cứ liên tục hỏi có cách nào disable ko Ad ơi. Help!
Hic hic, Gà ko hiểu ý bạn lắm ạ
có thể gộp dữ liệu từ sheet 1 của 2 file về 1 file và hiển thị trong cùng 1 sheet ko ạ?
A ơi chỉ e làm này với file excel nhe...vd: e có 1 file excel , sheet1 với dử liệu là các cột là các ngày trong tháng của năm 2020( 01/01/2020, 02/01/2020......30/12/2020) . Dữ liệu các dòng của các cột là số liệu ... Làm sao để code VBA để lấy dư liệu vd: hôm nay là 02/02/2020 thì nó sẽ tự động lấy dữ liệu các cột ngày như sau: 02/02/2020, 03/02/2020, 04/02/2020 ( tức là lấy thêm 2 ngày tiep theo của ngày hiện tại nhưng loại trừ ngày thứ 7 và chủ nhật) copy dữ liệu đó vào 1sheet khác của 1 file excel đã tạo rỗng sẵn trong 1 thư mục sẵn có..??????
Bạn dùng vòng lặp FOR Next, rồi kết hợp với các hàm IF thôi ạ. Chúc bạn sớm làm được nha
file excel của e là định dạng web page. e dán đoạn code vào chạy nó báo nỗi Run-time error '1004' là sao vậy a
E đang rắc rối vì lưu nhiều file mà không biết cách nào để gọp lại cho ổn. Mong anh ib chỉ giúp
Mình chạy thử thì 1 số file OK, riêng 1 gói 4 file thì bị báo lỗi Run Time Error 1004. Debug thì nó báo màu vàng ở dòng Sheet.Copy after:=ThisWorkbook.Sheets(1). Bạn chỉ mình cách sửa với. Thanks bạn
Hic hic vậy ạ. Bạn theo dõi kỹ xem có thừa thiếu bước nào ko nha.
@ Mình có những file kiểu như thế này cần Ghép lại thành 1 file. Nhưng bị lỗi, bạn check giúp mình được không?
drive.google.com/drive/folders/1YYHY0unLc0M8mw6y1Ya6xfzLQah3ajd4?usp=sharing
Mình cũng bị tương tự vậy, có cách nào sửa không bạn ơi ? , cho mình hỏi cái
@ Mình làm theo đủ bước rất cẩn thận, mà vẫn lỗi : Run Time Error 1004. Debug thì nó báo màu vàng ở dòng Sheet.Copy after:=ThisWorkbook.Sheets(1)
Mình cũng bị như bạn, làm sao sửa lỗi vậy
Em làm theo cách như trong video hướng dẫn mà các sheet nó nhảy lung tung thì có cách nào sắp xếp theo thứ tự ko ạ?
Mình làm theo mà nó hiện lỗi ở dòng t3 Filename, nó hiện lỗi Bad file name or number. Mình lưu ở file Downloads
Có bắt buộc phải lưu ở ổ đĩa C ko vậy add ?1
sao mình copy code làm như b mà ko được nhỉ
Hic hic, bạn xem kỹ lại xem sai khác ở đâu nha
sao mình làm y như vậy mà không được ạ, và file mình đến trên 20 file excel ạ, nhờ gà excel hỗ trợ giúp ạ. Cảm ơn bạn.
mình gõ tiếng Việt không được nó hiện ra như này
Sub copyfile()
Path = ""
Filename = Dir(Path & "*.xls*")
Do While Filename _m? đóng ngo?c nh?n_ ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy after:=ThisWorkbook.Sheets(1)
Next
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
Rồi bấm nút play nó báo lỗi. Chỉ giúp mình cách khắc phục nhé
ko chạy được
hệ thống báo lỗi Filename = Dir(Path & "*.xls*") thì xử lý như thế nào
Hic hic, Bạn xem kỹ có thừa thiếu phần j so với hướng dẫn ko nha. Chúc bạn thành công ạ
Sao mình làm giống bạn mà nó k chạy vậy ạ ?
Hic hic, bạn thử xem kỹ lại xem có gì sai khác với video hướng dẫn ko nha.
Quá hay, nhưng mà mình làm thủ công tức copy từng sheet của từng file rồi dán vào file chung được không bạn
Được chứ bạn, làm như vậy cũng ko lâu mà ko phải dùng code
Đc chứ. Làm thủ công cũng ko lâu mà ko phải dùng code
Được bạn ạ. Nhưng sẽ mất các định dạng. Nếu nhiều file hoặc nhiều sheet thì hơi lâu ạ.
@Gà excel Copy sheet sao mấy định dạng được bạn
Add pro ơi mình đang mò mẫm chức năng reco maccro để copy bảng từ file này sang file khác (mình chỉ biết chon A1 file này =A1 ở file khác) nhưng khi không mở file nguồn thì những ô có dữ liệu tex đều bị lỗi "NAME" bạn có thể làm video hướng dẫn mình được không. Thank add
Đấy ko phải là lỗi đâu ạ. Bạn ko mở file nguồn thì nó báo như thế thôi mà. Bạn có thể thêm hàm iferror nếu ko muốn xuất hiện cái kia khi mà ko mở file nguồn nhé
@ thank bạn. công việc của mình là chỉnh sửa và in biểu của các đơn vị. Mỗi đơn vị có 13 file và mình có 23 đơn vị (tên các file như nhau, cùng cấu trúc biểu bảng) 😂 mình muốn tạo ra file đã được căn chỉnh và cập nhập thông tin các file nguồn để mỗi lần chỉ pase vào từng foder chứa file gốc là in. Vậy có cách nào dễ làm không add mà không cần mở file nguồn cho đỡ mất thời gian. 🙂 Thank bạn vì đã phản hồi!
mình chạy nó bị lỗi ạ , nó chỉ dòng này bôi vàng
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
Hic hic. Bạn xem làm đủ các bước như hướng dẫn chưa ạ? Xem đường dẫn đặt đúng chưa nữa ạ. Chúc bạn thành công nha
pro ơi em bị vàng phần đầu sub coppyfile
khắc phục ntn ạ
Bạn xem có sót phần nào so với hướng dẫn ko ạ.
Anh ơi em làm được như anh rồi, nhưng cứ Save As lưu file thành công nó hiện đuôi *.xlsm - mở file thì nó ko chạy được nữa
E đã làm được thành công, nhưng muốn nối 2 sheets excel thành 1 thì như thế nào anh nhỉ
Em k có gộp dc
Trên kênh có 2 3 bài gộp kiểu này ạ. Bạn thử cách khác ở video khác nha. Chúc bạn thành công ạ
Gà Excel phải lưu file ở ổ C à ad. Các ổ khác không chạy dc ạ
Mình bấm run mà nó k chạy, add chỉ giúp mình
Hic hic, Bạn xem kỹ có thừa thiếu bước nào ko nha
em làm bị lỗi ạ ahu, nhờ anh Gà xem giúp ạ
Bạn tham khảo thêm các video khác trên kênh để áp dụng ạ
anh Gà chỉ thêm giùm cái, sau khi run
Sub copyfile()
Path = "G:\2021\BÁO CÁO\BÁO CÁO NGÀY\Báo cáo ho?t dông và KPI\Báo cáo ho?t d?ng DV ngày\Báo cáo VBA\T12\"
Filename = Dir(Path & "*.xls*")
Do While Filename ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy after:=ThisWorkbook.Sheets(1)
Next
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
phần Filename = Dir(Path
báo lổi anh ơi
Gớm! Đầu mất công taon đoạn code vậy làm gì!
Bạn có cách nào hay hơn share cho mọi người cùng học với nha. thanks bạn
ko làm đc bạn ơi
Thank
Nó hiện lỗi "Compile error
Syntax error" thì làm sao ạ :((
Hay
Mình làm nó trộn được nhưng nó lại theo thứ tự từ dưới lên trên, lại phải kéo lại. Mất thời gian thật :)
like
trên máy của mình cũng sử dụng Alt+ F11 mà sao n k hiện ra hợp thoại như của b nhỉ??? Mong được chỉ giáo ạ.