Lưu toàn bộ file excel đang mở đến vị trí và theo tên đã được đặt trên ô cell

[hic1802]

Chào các anh chị em trên GPE,
Mình muốn lưu 1 file excel đến vị trí và theo tên được đặt ở ô Cell trong bảng tính của file excel tự động (giống như dạng save as trên excel ấy)
thí dụ : đường dẫn mình để ở ô F2, tên file lưu lại mình để ở ô F3
Mình gửi file thí dụ phía dưới.
Chân thành cảm ơn.

 

[befaint]

Câu đầu tiên đã "a cờ e" Anh Chích Em. Đau bỏ xừ rồi ai mà còn dám xem bài.

lưu 1 file excel

Không biết mình cần lưu file nào?

 

[hic1802]

Câu đầu tiên đã "a cờ e" Anh Chích Em. Đau bỏ xừ rồi ai mà còn dám xem bài.


Không biết mình cần lưu file nào?

View attachment 254499

cần lưu file mà mình đang mở bác ơi, thí dụ ở đây là file mình gửi nhưng lưu thành tên là abc.xlsx và lưu tại thư mục D:\KienThuc

 

[befaint]

Định làm nhưng mình sợ bị chích đau lắm.

 

[hic1802]

Định làm nhưng mình sợ bị chích đau lắm.

:d em xin nhận lỗi và đã chỉnh sửa, nhờ bác giúp đỡ.

 

[hic1802]

Xin được mọi người giúp đỡ

 

[Hoàng Tuấn 868]

không ai có cao kiến gì giúp đỡ mình với

Bạn sửa lại câu nhờ giúp dòng màu xanh đi cho đàng hoàng sẽ được giúp.

 

[hic1802]

Bạn sửa lại câu nhờ giúp dòng màu xanh đi cho đàng hoàng sẽ được giúp.

mình không hiểu câu đó có vi phạm quy định hay văn phong gì đâu?

 

[Hoàng Tuấn 868]

mình không hiểu câu đó có vi phạm quy định hay văn phong gì đâu?

Vậy thì thôi vậy.

 

[hic1802]

Vậy thì thôi vậy.

hài thật, mình đang không hiểu là sai văn phong ở đâu? Bạn nói câu vậy thì thôi vậy thì mình cũng chịu. Bảo người khác sai hỏi lại bảo chịu thì đến thua

 

[Hoàng Tuấn 868]

hài thật, mình đang không hiểu là sai văn phong ở đâu? Bạn nói câu vậy thì thôi vậy thì mình cũng chịu. Bảo người khác sai hỏi lại bảo chịu thì đến thua

Khi nào bạn thực hiện bài #7 thì sẽ có đầy đủ phần ..........................
Sub luu_file_theo_dia_chi_co_san()
ThisWorkbook...............................................
End Sub

 

[hic1802]

Khi nào bạn thực hiện bài #7 thì sẽ có đầy đủ phần ..........................
Sub luu_file_theo_dia_chi_co_san()
ThisWorkbook...............................................
End Sub

Xin cảm ơn, mình không cần bạn bố thí

 

[Phụ Hồ Lên Phú Hộ]

Xin cảm ơn, mình không cần bạn bố thí

Kkk đọc comment của bạn thấy tíu tíu, bạn tìm trên diễn đàn này hình như có đó save hay saveas gì đó, còn không chịu khó google, cái này mình nghĩ cũng đơn giản mà

 

[hic1802]

Kkk đọc comment của bạn thấy tíu tíu, bạn tìm trên diễn đàn này hình như có đó save hay saveas gì đó, còn không chịu khó google, cái này mình nghĩ cũng đơn giản mà

mình có search thì thấy bài nhưng chưa đúng với mình cần

Save As file Excel bằng VBA

Kg các anh chị, Hiện nay tôi đang quản lý một file Excel. Tôi muốn viết 1 đoạn code để có thể sao lưu file này vào cối mỗi năm (31/12). Tôi đã thử 1 file nhưng khi Save As thì nó đóng luôn cả file gốc. Tôi muốn sau khi Save As thì file được đổi tên lưu và đóng lại nhưng file gốc vẫn mở. Mong...

www.giaiphapexcel.com

Sub Luu()

ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\Data" & Format(Date, "yyyy") & ".xls"

End Sub

bây giờ thay vì mình phải nhập ThisWorkbook.Path & "\Data" và tên file thì có thể lấy trực tiếp theo giá trị điền vào ô cell trên bảng tính thì mình gán như thế nào?

 

[Phụ Hồ Lên Phú Hộ]

Mình không rành vba lắm nhưng bạn có thể tìm hiểu bắt đầu bằng cái này
Duongdan=range("A1").value' "C:\"
Tenfileexcel=range("A2").value' "Data.xlsm"
ActiveWorkbook.SaveAs Filename:=Duongdan & Tenfileexcel

Mình đang dùng điện thoại nên chưa giúp được bạn nhiều

 

[hic1802]

Mình không rành vba lắm nhưng bạn có thể tìm hiểu bắt đầu bằng cái này
Duongdan=range("A1").value' "C:\"
Tenfileexcel=range("A2").value' "Data.xlsm"
ActiveWorkbook.SaveAs Filename:=Duongdan & Tenfileexcel

Mình đang dùng điện thoại nên chưa giúp được bạn nhiều

mình thử thấy đúng rồi bạn nhé, cảm ơn bạn
lưu ý : ô đường dẫn phải có dấu \ ở cuối.

 

[befaint]

Mình thêm dấu "\" vào.

"D:\Kienthuc" & "\" & "abc.xlsm"

 

[Phụ Hồ Lên Phú Hộ]

mình thử thấy đúng rồi bạn nhé, cảm ơn bạn
lưu ý : ô đường dẫn phải có dấu \ ở cuối.

Giỏi quá. Mới đây biết làm rồi
you are number one

 

[huhumalu]

Có mấy ý bạn tham khảo:
+ Kiểm tra tính tồn tại của Folder | lỡ bạn nhập sai tên Folder hoặc Folder bị di chuyển thì sẽ hiện thông báo.
+ Bạn lưu ý với việc lựa chọn định dạng là ".xls"; ".xlsx" hay ".xlsm"
Code bạn tham khảo thêm ở bên dưới.

Option Explicit
Sub Luu()
Dim sFolder As String
Dim objFso
Dim FName As String
    Set objFso = CreateObject("Scripting.FileSystemObject")
        With ThisWorkbook
            sFolder = .Sheets("Sheet1").Range("F2")
            If Not objFso.FolderExists(sFolder) Then MsgBox "Folder does not exist": Exit Sub
            FName = .Sheets("Sheet1").Range("F3")
                    .SaveCopyAs sFolder & "\" & FName & ".XLS"
        End With
End Sub

 

[befaint]

Bài #16 trước khi sửa là [ thử thật thì thành công rồi và lưu thẳng tuột vào ổ "D:\", nhưng không được như ý muốn là chui vào thư mục "D:\Kienthuc" ].