Tạo form để nhập tên File khi lưu số liệu

[thivantan]

Do tính chất công việc tôi phải làm việc vơi rất nhiều khách hàng có tên và địa chỉ khác nhau, trong bảng tính của tôi tôi muốn chỉ copy một sheet xa ra các file riêng lẻ đối với từng khách hàng và khi lưu sẽ hiện form nhập tên file muốn lưu, nếu không nhập tên file thì sẽ tự động lưu file theo mã khách hàng, khi nhập nếu tên file đã có sẽ báo trùng.
Rất mong được các bạn giúp đỡ. Xin chân thành cảm ơn.

 

[Hai Lúa Miền Tây]

Do tính chất công việc tôi phải làm việc vơi rất nhiều khách hàng có tên và địa chỉ khác nhau, trong bảng tính của tôi tôi muốn chỉ copy một sheet xa ra các file riêng lẻ đối với từng khách hàng và khi lưu sẽ hiện form nhập tên file muốn lưu, nếu không nhập tên file thì sẽ tự động lưu file theo mã khách hàng, khi nhập nếu tên file đã có sẽ báo trùng.
Rất mong được các bạn giúp đỡ. Xin chân thành cảm ơn.

Ý Bạn là muốn tách mỗi 1 khách thành 1 sheet riêng hay là tách 1 khách thành 1 file riêng vào cùng chung 1 folder ?

 

[thivantan]

Ý Bạn là muốn tách mỗi 1 khách thành 1 sheet riêng hay là tách 1 khách thành 1 file riêng vào cùng chung 1 folder ?

Ý tôi là muốn thành một file vào chung một Folder. Mong bạn giúp đỡ.

 

[hoa35ktxd]

Trời, sao bạn phải làm như thế, thông tin mỗi khách hàng lưu trên 1 file, như thế trong thư mục của bạn sẽ dày đặc tên khách hàng.
Với 1 bảng tính Excel thì bạn có thể lưu được tới 65536 khách hàng, mỗi khách hàng có thể lưu được 256 thông tin, tôi nghĩ như thế là quá đủ để bạn làm rồi.
Còn muốn kiểm tra xem tên file vừa nhập vào có trùng hay không thì bạn có thể kiểm tra bằng hàm Dir như sau
If dir(ThisWorkbook.Path & "\" & TenFile) <> "" then Msgbox "Trùng tên"

 

[thivantan]

Trời, sao bạn phải làm như thế, thông tin mỗi khách hàng lưu trên 1 file, như thế trong thư mục của bạn sẽ dày đặc tên khách hàng.
Với 1 bảng tính Excel thì bạn có thể lưu được tới 65536 khách hàng, mỗi khách hàng có thể lưu được 256 thông tin, tôi nghĩ như thế là quá đủ để bạn làm rồi.
Còn muốn kiểm tra xem tên file vừa nhập vào có trùng hay không thì bạn có thể kiểm tra bằng hàm Dir như sau
If dir(ThisWorkbook.Path & "\" & TenFile) <> "" then Msgbox "Trùng tên"

Cảm ơn bạn, nhưng thực sự tôi muốn lưu thành nhiều file, lý do là với mỗi khách hàng tôi đều có những ghi chú riêng ở dưới, nếu lưu lại bằng cách làm thủ công rất mất thời gian. Sử dụng bằng form để lưu sẽ giảm tải được thời gian khi cần tra cứu in ấn, mặt khác do file lưu trữ đặt theo mã khách hàng, cũng rất tiện cho việc tìm kiếm.

 

[kellyfe]

co phai y ban muon copy sheet xa ra thanh nhieu file rieng phai khong? neu vay ban hay lam cac buyoc sau:
1. nhan chuot phai vao Sheet xa roi nhan vao move or copy
2. tai Bang to book chon (new book) va chon dau check cua create a copy va enter
thi sheet xa se thanh 1 file khac.
neu dung nhu y ban thi ok, con neu sai thi ban hay noi ro hon y ban nhe, neu giup duoc gi thi minh se giup

 

[hoa35ktxd]

Cảm ơn bạn, nhưng thực sự tôi muốn lưu thành nhiều file, lý do là với mỗi khách hàng tôi đều có những ghi chú riêng ở dưới, nếu lưu lại bằng cách làm thủ công rất mất thời gian. Sử dụng bằng form để lưu sẽ giảm tải được thời gian khi cần tra cứu in ấn, mặt khác do file lưu trữ đặt theo mã khách hàng, cũng rất tiện cho việc tìm kiếm.

Vấn đề lưu thành file thì không có gì khó, vấn đề là bạn lưu những thông tin gì, dữ liệu nguồn lấy ở đâu, hãy đưa file ví dụ cụ thể lên.
Còn nếu bạn nói là để tiện tra cứu và in ấn thì lại không phải vì việc thao tác với file trở thành một vấn đề phức tạp, mỗi lần bạn muốn tra cứu 1 khách hàng thì bạn lại phải mở 1 file lên hoặc phải truy vấn tới file đó.
Thật sự tôi chưa hình dung ra được công việc của bạn.