Chương trình VBA trong Excel lưu bản sao của tệp vào cùng thư mục với tệp gốc.

Tôi đã tạo được đoạn mã để lưu bản sao vào vị trí cần thiết trên máy tính của mình, nhưng chương trình này được nhiều người sử dụng và đường dẫn tệp sẽ khác nhau trên mỗi thiết lập. Tôi muốn đoạn mã lưu bản sao vào cùng thư mục với tài liệu gốc, trong một thư mục có tên "Pay Calculator Pro1". Làm thế nào tôi có thể thiết lập đường dẫn để lưu vào thư mục này mà không cần phải thiết lập lại toàn bộ đường dẫn?

Dưới đây là mã nguồn của tôi.

Sub save_file()

Dim path As String

Dim filename1 As String

đường dẫn = "c:\Users\user\desktop\Pay Calculator Pro1\"

filename1 = Range("W36").Text

Application.DisplayAlerts = False

ActiveWorkbook.SaveCopyAs Filename:=path & filename1 & ".xlsm"

Application.DisplayAlerts = True

End Sub

Trả lời:

Tôi không chắc mình đã hiểu đúng. Ý bạn là mỗi người dùng có một bản sao riêng của sổ làm việc dự án và bạn muốn họ lưu một bản sao vào cùng đường dẫn với tài liệu mà họ đã mở? Nếu vậy, đoạn mã sau sẽ trả về đường dẫn của sổ làm việc dự án hiện tại.

Sub save_file()

Dim path As String

Dim filename1 As 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("W36").Text

Application.DisplayAlerts = False

ActiveWorkbook.SaveCopyAs Filename:=path & filename1 & ".xlsm"

Application.DisplayAlerts = True

End Sub