Trong bài này mình sẽ đưa ra 20 cách lưu file (Save File) bằng lệnh VBA, phương pháp này thường dùng để thay thế cho cách làm thủ công, đó là nhấn phím tắt Ctrt + S hoặc click File -> Save.
Đang xem: Tạo nút lệnh save trong excel
Để tránh trường hợp người dùng quên lưu lại nội dung các file Excel đã mở thì ta sẽ sử dụng hai lệnh Save và SaveAs trong VBA để lưu tự động.
Cũng có một số trường hợp bạn code VBA và cần mở một file nào đó để lấy nội dung, sau đó sửa nội dung và lưu file lại. Nếu để người dùng làm bằng tay thì có khả năng bị sai, vì vậy ta dùng code sẽ an toàn và chính xác hơn.
Lệnh Save trong VBA sẽ lưu file Excel tương tự như cách nhấp vào biểu tượng Save hoặc sử dụng phím tắt Lưu (CTRL + S).
Bài viết được đăng tại lingocard.vn
Đây là cách lưu đơn giản và thường được sử dụng nhất. Ta sẽ truyền vào tên của file cần lưu.
Workbooks(“savefile.xlsm”).save
Dành cho trường hợp bạn đang mở nhiều file.
ActiveWorkbook.save
Dim wb as workbook For Each wb In Application.Workbookswb.SaveNext wb
File ở trạng thái ReadOnly là những file bạn đã mở nhưng không làm việc.
Dim wb as workbookFor Each wb In Application.WorkbooksIf not wb ReadOnly thenwb.SaveEnd ifNext wb
Dim wb as workbookset wb = workbooks(“savefile.xlsm”)wb.save
Dim wbstring as stringwbstring = “savefile.xlsm”workbooks(wbstring).save
workbooks(1).save
Dim wbstring as stringwbstring = activeworkbook.sheets(“sheet1”).range(“wb_save”).valueworkbooks(wbstring).save
Save As là tính năng lưu vào một file mới, còn Save là lưu ghi đè trên file đã lưu.
Xem thêm: Hướng Dẫn Sử Dụng Hàm Đếm Số Lần Xuất Hiện Trong Excel, Đếm Tần Suất Xuất Hiện Của Một Giá Trị
Lệnh này có công dụng giống như việc thao tác trên menu File -> Save As của Excel.
Cách dùng thì không khác gì so với lệnh Save, có điều bạn phải truyền thêm tham số tên file cần lưu.
Cú pháp như sau:
Object.SaveAs(FileName, FileFormat, Password, WriteResPassword, _ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, _AddToMru,TextCodepage, TextVisualLayout, Local)
Mình sẽ không giải thích các tham số, thay vào đó sẽ tìm hiểu thông qua những ví dụ dưới đây.
ActiveWorkbook.SaveAs Filename:= “new”” HoặcActiveWorkbook.SaveAs “new”” HoặcDim wbstring as stringwbstring = “new”ActiveWorkbook.SaveAs Filename:= wbstring
ActiveWorkbook.SaveAs Filename:= “C:
ew”” HoặcDim wbstring as stringwbstring = “C:
ew”ActiveWorkbook.SaveAs Filename:= wbstring=
ActiveWorkbook.SaveAs Filename:= “C:
ew.xlsx”” HoặcDim wbstring as stringwbstring = “C:
ew.xlsx”ActiveWorkbook.SaveAs Filename:= wbstring
Bạn cũng có thể sử dụng kết hợp File Format để chỉ định dạng của file.
.xlsx = 51 “(52 for Mac).xlsm = 52 “(53 for Mac).xlsb = 50 “(51 for Mac).xls = 56 “(57 for Mac)
Ví dụ: Lưu dưới dạng mở rộng .xlsx trên Windows
ActiveWorkbook.SaveAs Filename:= “C:
ew”, FileFormat:= 51
ActiveWorkbook.SaveAs Filename:= “C:
ew.xlsx”, Password:= “password”
Nếu mật khẩu bạn nhập để mở file không đúng thì nó sẽ chuyển sang chế độ Read Only.
ActiveWorkbook.SaveAs Filename:= “C:
ew.xlsx”, WriteRes:= “password”
ActiveWorkbook.SaveAs Filename:= “C:
ew.xlsx”, ReadOnlyRecommended:= TRUE
Application.GetSaveAsFilename
Application.GetSaveAsFilename InitialFilename:=”test.xlsx”
Dim wb As WorkbookSet wb = Workbooks.AddApplication.DisplayAlerts = Falsewb.SaveAs Filename:=”c:Test1.xlsx”Application.DisplayAlerts = True
Khi bạn làm việc với tính năng Save trong VBA, bạn có thể gặp nhiều cảnh báo hoặc Lời nhắc khi lưu. Để tắt những điều này thì hãy thêm dòng mã này:
Application.DisplayAlerts=False
Mở lại sẽ là:
Application.DisplayAlerts=True
Trên là tập hợp hơn 20 trường hợp Save File Excel bằng VBA code. Đây là nội dung mình sưu tầm lại ở các trang nước ngoài trên mạng.
Bình luận đã đóng, nếu có thắc mắc hãy đặt câu hỏi tại hoicode.com để admin trả lời.
Xem thêm: Cách Kết Nối Camera Với Máy Tính Bằng 3 Thủ Thuật Đơn Giản, Cách Kết Nối Camera Với Máy Tính
Bài sau Bài tiếp
——————-#####——————-
Khóa học Excel VBA:
Trong bài này mình sẽ tổng hợp những bài tập VBA căn bản có lời giải và hướng dẫn chi…
Application đại diện cho ứng dụng Excel, vì vậy bạn có thể truy cập đến bất …
Có hai trường hợp làm việc với vùng chọn, thứ nhất là lấy một ô đầu tiên và …
Khi bạn click vào tab menu Insert trong Visual Basic Editor thì sẽ thấy một dãy …
Chắc chắn bạn đã từng sử dụng những ứng dụng trên Windows như, phần mềm gõ văn bản, phần mềm…
Trong bài này mình sẽ hướng dẫn cách sử dụng Command Button trong VBA, đây là một đối tượng thuộc…
Có một số ngôn ngữ sẽ gom hai loại này thành một, nhưng với một số ngôn ngữ khác như…
Vì các bạn không chuyên về lập trình nên mình sẽ giải thích thật đơn sơ nhất có thể nhé.
Spin Button là loại button dùng để tăng hoặc giảm giá trị của một số trong một khoảng MIN -…
Nếu bạn cần thiết kế form dữ liệu có nhiều tùy chọn nhưng người dùng chỉ được phép …
Macro Excel Object VBA Basic VBA Form Bài tập
Danh sách chủ đề
MÃ GIẢM GIÁ | ||
Unica | 50% | Lấy Mã |
TinoHost | 30% | Lấy Mã |
INET | 30% | Lấy Mã |
Admin Cường, quản lý chính của website.
2020 – lingocard.vn. All Right Reserved Theme GoodNews, nền tảng Codeigniter, VPS mua tại Tinohost
BÀI VIẾT
Nếu bạn phát hiện lỗi sai link, nội dung sai, hay một lỗi bất kì nào đó trên trang này thì hãy cho mình biết nhé. Cám ơn bạn!