Chỉ định đường dẫn lưu file theo điều kiện (chạy vằng VBA)

[thuan05]

Chào các cao nhân Excel, em có file excel trong đó có tên khách hàng vd: Nguyễn Văn A
Yêu cầu: khi bấm chạy code thì xem ở ô B1 tên Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A" đã được tạo sẵn ở ổ D:\KhachHang\Nguyễn Văn A\
Mong các cao nhân giúp em. Cảm ơn!

 

[Hoàng Tuấn 868]

Chào các cao nhân Excel, em có file excel trong đó có tên khách hàng vd: Nguyễn Văn A
Yêu cầu: khi bấm chạy code thì xem ở ô B1 tên Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A" đã được tạo sẵn ở ổ D:\KhachHang\Nguyễn Văn A\
Mong các cao nhân giúp em. Cảm ơn!

Tham khảo tại đây nhé.

 

[leonguyenz]

Chào các cao nhân Excel, em có file excel trong đó có tên khách hàng vd: Nguyễn Văn A
Yêu cầu: khi bấm chạy code thì xem ở ô B1 tên Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A" đã được tạo sẵn ở ổ D:\KhachHang\Nguyễn Văn A\
Mong các cao nhân giúp em. Cảm ơn!

Tham khảo code:

Sub LuuFile()
    Dim TenKH As String
    TenKH = Worksheets("Sheet1").Range("B1").Value
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\KhachHang\" & TenKH, FileFormat:=51
End Sub

#2: tôi sẽ xóa các bài trùng lặp.

 

[thuan05]

Tham khảo code:

Sub LuuFile()
    Dim TenKH As String
    TenKH = Worksheets("Sheet1").Range("B1").Value
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\KhachHang\" & TenKH, FileFormat:=51
End Sub

#2: tôi sẽ xóa các bài trùng lặp.

Chào bác nhé, code vẫn này vẫn chưa đúng yêu ý ạ
Dò tên ở ô B1 và nó sẽ lưu vào folder đã tạo sẵn có tên khách hàng đó
vd: Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A"
Nguyễn Văn B sẽ lưu vào folder "Nguyễn Văn B"

 

[VetMini]

Chào bác nhé, code vẫn này vẫn chưa đúng yêu ý ạ
Dò tên ở ô B1 và nó sẽ lưu vào folder đã tạo sẵn có tên khách hàng đó
vd: Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A"
Nguyễn Văn B sẽ lưu vào folder "Nguyễn Văn B"

Tại bạn hỏi "cao nhơn" cho nên chỉ những nam trên 1,70m và nữ trên 1,65m mới dám trả lời. Nếu bạn chỉ hỏi mọi người khác, không kể cao hay thấp thì người ta sẽ hỏi lại:
- Hiện tại code trên chưa đúng chỗ nào:
- Nó có tạo ra file bạn muốn chưa?
- Bạn muốn nó tạo ra tất cả bao nhiêu files?
Và quan trọng hơn hết là:
tên Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A" là thế nào? câu này rất tối nghĩa. Bạn chỉ lưu cái tên "Nguyễn Văn A" vào file dạng nào (excel, word, txt, ...)? hay lưu cái sheet vào một workbook khác? hay lưu cái gì vào cái gì?

 

[leonguyenz]

Chào bác nhé, code vẫn này vẫn chưa đúng yêu ý ạ
Dò tên ở ô B1 và nó sẽ lưu vào folder đã tạo sẵn có tên khách hàng đó
vd: Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A"
Nguyễn Văn B sẽ lưu vào folder "Nguyễn Văn B"

Lưu tên File đang hiện hành hay tên File từ ô B1 vậy bạn?

 

[batman1]

Ý người ta là chuyển tập tin sang nhà mới chứ không phải đổi tên cho nó. Địa chỉ nhà mới lấy từ B1

- Chuyển gì? Chuyển tập tin
- Đi đâu? Đi tới nhà mới mà địa chỉ được ghi ở sổ tay Sheet1, mục B1.

Người ta viết

Yêu cầu: khi bấm chạy code thì xem ở ô B1 tên Nguyễn Văn A sẽ lưu vào folder "Nguyễn Văn A" đã được tạo sẵn ở ổ D:\KhachHang\Nguyễn Văn A\

Lẽ ra phải viết

"Yêu cầu: khi bấm chạy code thì xem ở ô B1 có tên gì thì lưu TẬP TIN vào thư mục có tên đó, vd. B1 = Nguyễn Văn A thì sẽ lưu TẬP TIN vào thư mục đã được tạo sẵn D:\KhachHang\Nguyễn Văn A\"

Sub LuuFile()
Dim TenKH As String
    TenKH = Worksheets("Sheet1").Range("B1").Value
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\KhachHang\" & TenKH & "\" & ActiveWorkbook.Name, FileFormat:=xlOpenXMLWorkbook
End Sub