Xin code lấy ngày tháng năm trong chuỗi.

[HUONGHCKT]

File của bạn xuất từ phần mềm có vấn đề về các dấu phân cách của số liệu (dấu phẩy và chấm). File này mình chỉ tổng hợp dữ liệu từ các file con, còn vấn đề tính toán bạn xem lại nha

Cảm ơn anh nhiều.
File của anh là tìm các file trong folder. Các file con khi tải về lại phải xếp chúng vào 1 folder thì code mới tìm thấy. Khi tìm thấy mới Tạo Sheet mới và thực hiện copy sheet FORM và paste vào sheet mới tạo ra ấy.
tôi đã dồn các file con vào một folder và chạy thì bị lỗi dòng này
MainWb.Worksheets("FORM").Copy after:=MainWb.Worksheets(MainWb.Worksheets.Count)
Tôi hiểu dòng này là copy sheets(FORM) và paste vào Sh mới được thêm (ở cuối cùng), nhưng không tài nào sửa để chạy cho đúng được

Code của tôi thì xuất phát từ thực tế là hàng ngày tải 1 file con xuống, có thể thực hiện thêm bớt bổ xung dữ liệu rồi in , nhưng cũng có khi để đến cuối tuần (hoặc cuối tháng) mới tải xuống lần lượt các file con. do vậy các file con có thể ở nhiều chỗ trong thư mục download. Khi chạy sub Bsung code sẽ đi tìm các file con ấy, mở ra, copy và paste vào Sheet mới tạo ra, đặt tên sheet mới ấy và thực hiện các công đoạn: thêm bớt, xử lý dữ liệu, định dạng,... in ấn.
Một lần nữa trân trọng cảm ơn anh nhiều.

 

[Nhattanktnn]

do vậy các file con có thể ở nhiều chỗ trong thư mục download.

Chào bạn, code mình viết cũng đang chạy như vậy, tất cả file phải để vào cùng 1 folder, tuy nhiên không phải như bạn nói là folder ấy chỉ chứa những file con mà có thể chứa nhiều file, miễn file con có tên bao gồm chữ Excel5 (code mình thiếu một chỗ là nhận diện file .xls*, nếu không phải file excel mà có tên excel5 code sẽ bị lỗi,bạn thêm chỗ này giùm)

Khi tìm thấy mới Tạo Sheet mới và thực hiện copy sheet FORM và paste vào sheet mới tạo ra ấy.
tôi đã dồn các file con vào một folder và chạy thì bị lỗi dòng này
MainWb.Worksheets("FORM").Copy after:=MainWb.Worksheets(MainWb.Worksheets.Count)

Trên máy mình chạy bình thường, máy bạn lỗi thì bạn chụp hình lỗi gì lên mình kiểm tra xem?