Tự động lưu file : Tên file lưu trùng với tên sheet

Liên hệ QC

hoalv1985

Thành viên hoạt động
Tham gia
27/11/17
Bài viết
130
Được thích
20
Giới tính
Nam
Em nhờ các Anh chị giúp em với ạ. giờ em tạo ra 1 file có 1 sheet. em muốn tự động lưu file sao cho tên file trùng với tên sheet. Anh chị cho em xin code tự động với ạ: Ví dụ sheet1 của em có tên là abc, thì file tự động lưu theo tên của sheet1 là abc ạ. Em cảm ơn ạ
 

File đính kèm

  • abc.xlsm
    7.5 KB · Đọc: 2
Mã:
Sub Luu()
Dim Ten_File As String
Dim path As String

path = "Ten_Duong_Dan_Luu_File"
Ten_File = ActiveSheet.Name
ActiveWorkbook.SaveAs path & Ten_File & ".xlsx"
End Sub
Chưa xem file nhưng đại khái nó là vầy
 
Thì thực ra lưu thủ công cũng có tốn bao nhiêu thời gian đâu nhỉ
 
Mã:
Sub Luu()
Dim Ten_File As String
Dim path As String

path = "Ten_Duong_Dan_Luu_File"
Ten_File = ActiveSheet.Name
ActiveWorkbook.SaveAs path & Ten_File & ".xlsx"
End Sub
Chưa xem file nhưng đại khái nó là vầy
Em cảm ơn bác, em xử lý được rồi.
 
Web KT
Back
Top Bottom