delete and clear the data by vba

[roger@]

vba code to delete 1.xls file
and delete all the data of 1..csv file
both file are loacted in desktop
vba code is placed in seperate file

[HansV]

Please study the code carefully.

Code: Select all

Sub DeleteAndClear()
    Dim strDesktop As String
    Dim wbk As Workbook

    Application.ScreenUpdating = False

    ' Path of the user's desktop
    strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"

    On Error Resume Next
    ' Try to delete 1.xls
    Kill strDesktop & "1.xls"
    If Err Then
        MsgBox "Couldn't find or delete 1.xls", vbExclamation
    End If
    On Error GoTo ErrHandler

    ' Open 1..csv
    Set wbk = Workbooks.Open(strDesktop & "1..csv")
    ' Clear the entire sheet
    wbk.Worksheets(1).Cells.Clear
    ' Save the file without displaying a prompt
    Application.DisplayAlerts = False
    wbk.Close SaveChanges:=True
    
ExitHandler:
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Exit Sub

ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub

[roger@]

Thnx HansV Sir for giving ur precious time and great support to this post