用于更改文件夹中所有文件的Excel宏的VBScript

Sub ChangeFilesInFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim filePath As String
    Dim excelApp As Object
    Dim wb As Object
    
    ' 设置文件夹路径
    folderPath = "C:\Folder\Path"
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 禁用屏幕更新和警告信息
    excelApp.ScreenUpdating = False
    excelApp.DisplayAlerts = False
    
    ' 循环处理文件夹中的每个文件
    fileName = Dir(folderPath & "\*.*")
    Do While fileName <> ""
        ' 构建文件路径
        filePath = folderPath & "\" & fileName
        
        ' 打开文件
        Set wb = excelApp.Workbooks.Open(filePath)
        
        ' 在这里编写对文件的更改操作，可以使用Excel的各种功能和方法
        
        ' 保存并关闭文件
        wb.Save
        wb.Close
        
        ' 继续处理下一个文件
        fileName = Dir
    Loop
    
    ' 关闭Excel应用程序
    excelApp.Quit
    
    ' 释放对象
    Set wb = Nothing
    Set excelApp = Nothing
    
    ' 恢复屏幕更新和警告信息
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub