从Windows Scripting Host中删除Excel文件

Option Explicit

Const xlExcel8 = 56
Const xlExcel9795 = 103
Const xlExcel12 = 50

Dim objFSO, objExcel, objWB
Dim strPath, strFile, strExt

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")

strPath = "C:\path\to\excel\files" ' 指定要删除的Excel文件所在的文件夹路径

For Each strFile In objFSO.GetFolder(strPath).Files
    strExt = objFSO.GetExtensionName(strFile)
    If strExt = "xls" Or strExt = "xlsx" Or strExt = "xlsm" Then
        Set objWB = objExcel.Workbooks.Open(strFile)
        objWB.SaveAs strFile, xlExcel12 ' 将文件保存为Excel 2007格式
        objWB.Close False ' 关闭文件，不保存更改
        objFSO.DeleteFile strFile ' 删除原始文件
    End If
Next

objExcel.Quit

Set objWB = Nothing
Set objExcel = Nothing
Set objFSO = Nothing