Xuất file và đặt tên theo ngày tháng

[vongan]

Các bác cho em hỏi, em có 1 sheet dữ liệu
hàng ngày em phải gửi về công ty qua email,
File này của em rất nặng về dugn lượng, mà sheet cần xuất dữ liệu chỉ có khoảng 30kb
Hiện giờ em đã làm xong phần copy chết và tạo file mới.
Em đang vướng không biết sử lý sao sau khi tạo file và lưu lại : thông thường em sẽ lưu theo tên là :
"bao cao ngay-thang-nam"
Bữa nào quên, hoặc ghi nhầm ngày coi như công toi
Các bác giúp em về cách đặt tên cho file theo ngày được không ạ?
Ví dụ hôm này là ngày 21-12-2010 ( cái này lấy ở cell A2 - trong file gốc) thì dữ liệu khi xuất ra có dạng : "bao cao ngay 21-12-2010"
Cảm ơn các bác nhiều
Em có tạo file đính kèm!

 

[ptm0412]

ActiveWorkbook.SaveAs Filename:="D:\bao cao 12-11-2010.xls"

Sửa thành

ActiveWorkbook.SaveAs Filename:="D:\bao cao " & Format(Now, "dd-mm-yyyy") & ".xls"

(Code dài dòng quá.)