Lưu 1 WorkBook thành 1 WorkBook mới ( tên mặc đinh + hiển thị thêm ngày giờ tự động)

[truongtu_1988]

Em chào Thầy, Cô và Anh Chị trên diễn đàn em là thành viên mới. Em đang tìm hiểu về VBA trong Excel.
Em có đoạn code muốn mỗi lần lưu Save As sẽ tự động lưu tên File mặc định ( theo đường dẫn mình đặt ) với ngày giờ hiện tại.
Bởi nếu lưu nhiều lần 1 File Excel sẽ lưu đè lên file củ.
Với thêm trường hợp mình không lưu file đó, chương trình sẽ thoát, trở về file chính.
Em đã tìm hiểu trên google và bài viết trên diễn đàn Giải Pháp Excel mà không có

Tạo đường dẫn chọn nơi lưu file và đặt tên file

Em chào thầy, cô và anh chị trên diễn đàn Em có tham khảo đoạn Code VBA của thầy Ndu trên diễn đàn về xuất nhiều Sheets ra một file Excel mới tuy nhiên với chương trình của thầy thì chưa cho phép chọn nơi lưu và đặt tên file. Do vậy em sửa code của thầy để tạo một đường dẫn và tên file cần đặt...

www.giaiphapexcel.com

Cách lưu 1 WorkBook thành 1 WorkBook mới

Chào các anh/chị/em Hiện giờ tôi có 1 WorkBook gồm 5 Sheet từ sheet1 đến Sheet5 ( Các sheets này có chưa công thức). Bây giờ tôi muốn lưu thành 1 WorkBook mới, chỉ có 2 Sheet( Sheet2 và Sheet5) và không còn công thức( chỉ còn giá trị). Vậy Code như thế nào, mong anh/chị chỉ giúp. Xin cảm ơn.

www.giaiphapexcel.com

Code save as sheet hiện hành

Các thầy cho e hỏi về đoanj code để saveas sheet hiện hành với ah. Cụ thể e có 1 file có khoảng 10 sheet, giờ e muốn tạo 1 code saveas để khi chạy code này thì sẽ saveas file dưới dạng .xls nhưng chỉ save sheet hiện hành thui.E có viết code nhưng nó save cả file tìm mãi ma không ra.mong các thầy...

www.giaiphapexcel.com

Dear Các Anh Chị Admin, nếu em có sai sót gì hướng dẫn em!
Em xin chân thành cảm ơn

 

[truongtu_1988]

Thầy, Cô và Anh Chị, mọi người trên diễn đàn giúp e với.
Bài của em đăng, mất gần 2 ngày mới được phê duyệt.
Em là thành viên mới, có thiếu xót gì mọi người giúp em.

 

[Maika8008]

Thức khuya thế! Bạn chịu khó chờ thêm vậy. Mấy thành viên bận xem đá bóng hết rồi.

 

[truongtu_1988]

Thức khuya thế! Bạn chịu khó chờ thêm vậy. Mấy thành viên bận xem đá bóng hết rồi.

Anh Maika8080, có thể giúp em với, em cám ơn anh!

 

[befaint]

Sub vidu()
const extFile = ".xlsx"
const folderPath = "C:\Users\Administrator\Desktop\"
const newNameWb = "NewName_"
Dim strTime as string, strFilePath as string
strTime = format(now, "yyyymmdd_hhMMss")
strFilePath = folderPath & newNameWb & strTime  & extFile 
application.DisplayAlerts=False
application.AskToUpdateLinks=False
Thisworkbook.saveas fileName:=strFilePath 
application.DisplayAlerts=True
application.AskToUpdateLinks=True
End sub

 

[ongke0711]

Bởi nếu lưu nhiều lần 1 File Excel sẽ lưu đè lên file củ.

Muốn không bị lưu đè, bạn phải Format ngày + giờ: phút : giây cho tên file mới không bị trùng.

 

[truongtu_1988]

Sub vidu()
const extFile = ".xlsx"
const folderPath = "C:\Users\Administrator\Desktop\"
const newNameWb = "NewName_"
Dim strTime as string, strFilePath as string
strTime = format(now, "yyyymmdd_hhMMss")
strFilePath = folderPath & newNameWb & strTime  & extFile
application.DisplayAlerts=False
application.AskToUpdateLinks=False
Thisworkbook.saveas fileName:=strFilePath
application.DisplayAlerts=True
application.AskToUpdateLinks=True
End sub

Dạ em cám ơn anh nhiều, nhưng em đang bị báo lổi chổ này, nhờ anh hướng dẫn giúp em, đây là cái file đổi CSV thành file Excel của công ty, em cám ơn anh nhiều!

 

[befaint]

Nhìn ---- thật ----- tinh ----- cái folderPath nhé.

 

[truongtu_1988]

Nhìn ---- thật ----- tinh ----- cái folderPath nhé.

Em, không rành về VBA, anh giúp em hoàn chỉnh cái code với!
Em Cám ơn anh nhiều!

 

[truongtu_1988]

Anh Chị giúp em với

 

[hoanganhvo2612]

cái folderpath bạn thiếu / ở cuối. Bạn làm quen với debug đi. ở dòng bôi vàng đó, bạn trỏ chuột vào strfilepath để biết đường dẫn cụ thể là gì. Kho bạn rê chuột vào chữ đó nó sễ hiện giá trị cho bạn.

 

[truongtu_1988]

cái folderpath bạn thiếu / ở cuối. Bạn làm quen với debug đi. ở dòng bôi vàng đó, bạn trỏ chuột vào strfilepath để biết đường dẫn cụ thể là gì. Kho bạn rê chuột vào chữ đó nó sễ hiện giá trị cho bạn.

Mình đã thêm dấu \ vào đường dẫn, mà vẫn báo lổi đó , bạn có thể giúp mình với, thanks bạn nhiều!

 

[Maika8008]

Mình đã thêm dấu \ vào đường dẫn, mà vẫn báo lổi đó , bạn có thể giúp mình với, thanks bạn nhiều!

File bạn có code VBA, đã lưu với dạng .xlsm. Chừ bảo Excel lưu với dạng .xlsx làm sao nó chịu!? Sửa Const extFile = ".xlsx" lại thành Const extFile = ".xlsm"

 

[Hoàng Tuấn 868]

Mình đã thêm dấu \ vào đường dẫn, mà vẫn báo lổi đó , bạn có thể giúp mình với, thanks bạn nhiều!

"cái folderpath bạn thiếu / ở cuối"
"Mình đã thêm dấu \ vào đường dẫn"
Hai dấu gạch chéo khác hẳn nhau đó bạn.

 

[truongtu_1988]

File bạn có code VBA, đã lưu với dạng .xlsm. Chừ bảo Excel lưu với dạng .xlsx làm sao nó chịu!? Sửa Const extFile = ".xlsx" lại thành Const extFile = ".xlsm"

Dạ em, cám ơn anh!

Bài đã được tự động gộp: 20/6/21

"cái folderpath bạn thiếu / ở cuối"
"Mình đã thêm dấu \ vào đường dẫn"
Hai dấu gạch chéo khác hẳn nhau đó bạn.

Mình cám ơn bạn nhiều!

 

[truongtu_1988]

File bạn có code VBA, đã lưu với dạng .xlsm. Chừ bảo Excel lưu với dạng .xlsx làm sao nó chịu!? Sửa Const extFile = ".xlsx" lại thành Const extFile = ".xlsm"

- Em làm theo anh, chương trình chạy rồi, nhưng nó không chạy như ý em mong muốn ( chắc do lúc đầu em chưa nói rỏ, Sorry Anh Chị trên diễn dàn GPE).
- Là khi chạy code Save -> lưu cái file CSV -> đã chuyển đổi thành Excel -> thành cái tên file...+ ngày giờ, còn file gốc thì mình vẫn giử nguyên.
- Còn chương trình mình bây giờ chạy là -> lưu của file đổi ( file chương trình gốc) -> thành cái tên file...+ ngày giờ, còn file CSV ( chuyển thành Excel) không có lưu .
- Em cám ơn anh befaint , anh Maika8008, bạn Hoàng Tuấn 868 nhiều!

 

[truongtu_1988]

Anh Chị diễn đàn giúp em với
Em cám ơn nhiều !

 

[befaint]

Thay thisworkbook thành activeworkbook là được.

 

[truongtu_1988]

Thay thisworkbook thành activeworkbook là được.

Dạ, em làm được như mong muốn rồi anh, em cám ơn anh, cám ơn diễn đàn nhiều.