Bạn có thể có nhu cầu thường xuyên sao chép sổ làm việc đến nhiều vị trí trên hệ thống của mình. Ví dụ: sổ làm việc đang mở có thể cần được sao chép vào ổ cứng cục bộ và một số ổ đĩa được ánh xạ thực sự nằm trên mạng văn phòng của bạn.

Excel không có khả năng tích hợp để thực hiện việc này, nhưng nếu các vị trí khác nhau được xác định rõ, bạn có thể tạo macro để thực hiện việc tiết kiệm cho bạn. Macro sau đây là một ví dụ về một công cụ như vậy:

Sub SaveToLocations()

Dim OrigName As String

OrigName = ActiveWorkbook.FullName     ActiveWorkbook.SaveAs "G:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "L:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "K:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "S:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs OrigName End Sub

Ví dụ cụ thể về macro lưu sổ làm việc hiện hoạt vào năm vị trí khác nhau, tất cả đều sử dụng cùng một tên sổ làm việc. Macro xác định vị trí hiện tại của sổ làm việc để nó có thể lưu vào vị trí hiện tại sau cùng. Lý do làm điều này là để bạn có thể tiếp tục sử dụng công cụ Lưu thông thường và nhận được kết quả như mong đợi.

Nếu bạn muốn sử dụng macro này trên hệ thống của riêng mình, tất cả những gì bạn cần làm là đảm bảo rằng bạn thay đổi ký tự ổ đĩa của nơi mỗi sổ làm việc sẽ được lưu. Nếu một trong các ổ đĩa bạn chỉ định dành cho vị trí sử dụng phương tiện di động và không có phương tiện nào trong ổ đó, thì macro sẽ tạo ra lỗi và dừng lại. Sau đó, bạn sẽ phải tìm ra vị trí ban đầu sổ làm việc được lưu để bạn có thể lưu lại theo cách thủ công ở đó (sử dụng Save As).

Một điểm đặc biệt khác của macro là vì nó sử dụng phương pháp SaveAs, nếu đã có một sổ làm việc tại mỗi đích có cùng tên với sổ làm việc hiện tại, Excel sẽ hỏi bạn có muốn ghi đè phiên bản hiện có của sổ làm việc hay không. Điều này sẽ luôn xảy ra với lần lưu cuối cùng, vào vị trí ban đầu.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (12495) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: