Excel VBA: Lưu dưới dạng hoặc sao chép dưới dạng với tên tệp mới (lần nữa)
Khai báo path, filename1 là String
path = ThisWorkbook.Path & "\" 'Cùng đường dẫn với dự án hiện tại mà Người dùng đã mở.
filename1 = Range("X27").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs FileName:=path & filename1 & ".xlsm" 'macro dừng tại đây
Application.DisplayAlerts = True
End Sub
Tôi đã viết đoạn mã này trong cửa sổ mã "ThisWorkbook". Tôi đã thử các cách tiếp cận khác để định nghĩa tên đường dẫn. Tôi đã thử chỉ sử dụng tên tệp mà không có đường dẫn, giả định rằng người dùng muốn lưu tệp ở cùng vị trí với mẫu. Tôi đã thử với các biến thể là path và filename1. Tôi rất mong nhận được sự giúp đỡ. Tôi đang sử dụng Windows 11. Tôi cũng muốn tìm giải pháp cho Mac OS nhưng có vẻ như điều đó là không thể.
Comments
Post a Comment