Cần viết Code đứng ở A.xls để Lưu, Close, xóa B.xls vào thùng rác rồi đổi tên A => B (2 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có 2 File Excel (Ví dụ: A.xls và B.xls).
=> Có Code nào đang đứng ở File A.xls để Save, Close, Delete File B.xls vào thùng rác => Đổi tên File A.xls thành File B.xls.
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 2 File đính kèm.

 

[Kiều Mạnh]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có 2 File Excel (Ví dụ: A.xls và B.xls).
=> Có Code nào đang đứng ở File A.xls để Save, Close, Delete File B.xls vào thùng rác => Đổi tên File A.xls thành File B.xls.
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 2 File đính kèm.

đơn giản thì thử xoá kiểu sau

Sub XoaFile() 
    Kill "D:\*.xlsx"
End Sub

 

[hung2412]

đơn giản thì thử xoá kiểu sau

Sub XoaFile() 
    Kill "D:\*.xlsx"
End Sub

Kiểu này thì các File Excel ở ổ D die hết.

 

[Kiều Mạnh]

Kiểu này thì các File Excel ở ổ D die hết.

Thì thử test trong folder va ngoài folder xem sao

 

[Quang_Hải]

đơn giản thì thử xoá kiểu sau

Sub XoaFile() 
    Kill "D:\*.xlsx"
End Sub

Không biết có ai thử code chưa? Nếu thử rồi thì vui biết mấy.
....................
Chú ý là lệnh Kill sẽ tiễn file lên tận thiên đàng, không vào thùng rác nhé. Xóa rồi là vô phương phục hồi.

 

[Cá ngừ F1]

Kiểu KILL này chắc là căm thù lắm mới dùng. Đi đủ 9 tầng địa ngục mất, hjk.

 

[Kiều Mạnh]

Kiểu KILL này chắc là căm thù lắm mới dùng. Đi đủ 9 tầng địa ngục mất, hjk.

Thì người ta hỏi thì phải chỉ thôi chứ biết làm sao được

 

[Kiều Mạnh]

Kiểu này thì các File Excel ở ổ D die hết.

Vậy Đổi kiểu này xem sao nha

Sub XoaFile() ''Xoa Chon File
Dim item As Long
With Application.FileDialog(msoFileDialogOpen) 
   .Title = "Chon File de xoa"  
   .AllowMultiSelect = False   
   .Show  
   item = .SelectedItems.Count 
   If item = 0 Then 
        Exit Sub 
   Else  
        Kill .SelectedItems(item) 
   End If
End With
End Sub