Giúp đỡ đặt tên file theo ngày tháng (3 người xem)

[consauluoi]

Mình muốn copy 1 sheet từ file active file sang 1 file mới, sau đó đổi tên sheet và tên file, với tên sheet và tên file là ngày hiện hành. Mình chỉ mới đổi được tên sheet, còn tên file ko đổi được, có ai biết chỉ dùm với

Cám ơn nhiều


Sheet3.Copy
ActiveSheet.Name = Day(Date) & " - " & Month(Date) & " - " & Year(Date)
ActiveWorkbook.SaveAs Filename:="E:\work in process\Day(Date) & " - " & Month(Date) & " - " & Year(Date).xlsx", _
FileFormat:=xlOpenXMLWorkbook

 

[huuthang_bd]

Mình muốn copy 1 sheet từ file active file sang 1 file mới, sau đó đổi tên sheet và tên file, với tên sheet và tên file là ngày hiện hành. Mình chỉ mới đổi được tên sheet, còn tên file ko đổi được, có ai biết chỉ dùm với

Cám ơn nhiều


Sheet3.Copy
ActiveSheet.Name = Day(Date) & " - " & Month(Date) & " - " & Year(Date)
ActiveWorkbook.SaveAs Filename:="E:\work in process\Day(Date) & " - " & Month(Date) & " - " & Year(Date).xlsx", _
FileFormat:=xlOpenXMLWorkbook

Bạn thử sửa dòng lệnh save lại như vầy thử xem sao:

ActiveWorkbook.SaveAs Filename:="E:\work in process\" & Day(Date) & " - " & Month(Date) & " - " & Year(Date) & ".xlsx", FileFormat:=xlOpenXMLWorkbook

 

[consauluoi]

Cám ơn anh Thắng nhé

Có cách nào thay chỗ "E:\work in process\" = nơi lưu file hiện hành của file chứa macro không vậy

VD : file chứa macro đang được save "E:\thang 11", qua tháng 12 user chỉ cần copy file chứa marco qua "E:\thang 12" thì file mới sẽ đc lưu trong "E:\thang 12"

 

[huuthang_bd]

Cám ơn anh Thắng nhé

Có cách nào thay chỗ "E:\work in process\" = nơi lưu file hiện hành của file chứa macro không vậy

VD : file chứa macro đang được save "E:\thang 11", qua tháng 12 user chỉ cần copy file chứa marco qua "E:\thang 12" thì file mới sẽ đc lưu trong "E:\thang 12"

Bạn sửa

 "E:\work in process\"

Thành

ThisWorkbook.Path & "\"