从Windows Scripting Host中删除Excel文件

从Windows Scripting Host中删除Excel文件，可以使用VBScript编写一个脚本来实现。以下是一个简单的示例脚本，用于删除指定路径下的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

该脚本首先定义了一些常量，用于指定Excel文件的格式。然后，它使用FileSystemObject对象遍历指定路径下的所有文件，如果文件扩展名为.xls、.xlsx或.xlsm，则将其打开并将其保存为Excel 2007格式，然后关闭文件并将其删除。最后，该脚本退出Excel应用程序并释放相关对象。

请注意，该脚本仅适用于Windows操作系统，并且需要在Windows Scripting Host环境中运行。