vbs-实现模拟打开excel和强制计算和保存

原因是excel里面包含了许多的计算公式，而且是跨sheet的，java代码不好处理

' Excel Batch Processor - Double-Click Compatible
' 使用脚本所在目录作为目标路径
targetFolder = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\") - 1)

' Check if running with WScript (GUI mode)
If InStr(1, WScript.FullName, "wscript.exe", vbTextCompare) > 0 Then
' Relaunch with CScript
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd /c cscript.exe //nologo """ & WScript.ScriptFullName & """ & pause", 1, True
WScript.Quit
End If

Set fso = CreateObject("Scripting.FileSystemObject")

' Verify target folder exists
If Not fso.FolderExists(targetFolder) Then
WScript.Echo "ERROR: Target folder not found: " & targetFolder
WScript.Quit 1
End If

Set folder = fso.GetFolder(targetFolder)

' --- START PROCESSING ---
startTime = Timer
WScript.Echo "================================================================="
WScript.Echo " STARTING EXCEL FILE PROCESSING"
WScript.Echo " Directory: " & targetFolder
WScript.Echo " Start Time: " & Now()
WScript.Echo "================================================================="

On Error Resume Next
Set excel = CreateObject("Excel.Application")
If Err.Number <> 0 Then
WScript.Echo "ERROR: Excel not installed or access denied"
WScript.Quit 2
End If

excel.Visible = False
excel.DisplayAlerts = False
excel.AskToUpdateLinks = False
excel.EnableEvents = False
excel.Calculation = -4105  ' xlCalculationAutomatic

fileCount = 0
successCount = 0
errorCount = 0
skippedCount = 0  ' 新增跳过计数

' 获取Excel文件列表
Dim excelFiles
Set excelFiles = CreateObject("System.Collections.ArrayList")

For Each file In folder.Files
ext = LCase(fso.GetExtensionName(file.Path))
If ext = "xlsx" Or ext = "xlsm" Or ext = "xls" Then
fileCount = fileCount + 1
excelFiles.Add file.Path
End If
Next

If fileCount = 0 Then
WScript.Echo "No Excel files found in target directory"
excel.Quit
WScript.Quit 0
End If

WScript.Echo "Found " & fileCount & " Excel files to process"
WScript.Echo String(60, "-")

' Process files
current = 0
For Each filePath In excelFiles
current = current + 1
fileName = fso.GetFileName(filePath)
WScript.Echo "PROCESSING [" & current & "/" & fileCount & "]: " & fileName

' 跳过已打开的Excel文件
On Error Resume Next
Set workbook = excel.Workbooks.Open(filePath, 0, False)

If Err.Number = 0 Then
' 跳过只读文件
If workbook.ReadOnly Then
WScript.Echo "  SKIPPED: File is read-only"
workbook.Close False
skippedCount = skippedCount + 1
Else
workbook.ForceFullCalculation = True
excel.CalculateFullRebuild

workbook.Save
workbook.Close False
successCount = successCount + 1
WScript.Echo "  STATUS: SUCCESS"
End If
Set workbook = Nothing
Else
errorMsg = "  ERROR: " & Err.Description
Select Case Err.Number
Case -2146827284: errorMsg = "  ERROR: File not found or access denied"
Case 1004: errorMsg = "  ERROR: File is already open or locked"
End Select
WScript.Echo errorMsg
errorCount = errorCount + 1
Err.Clear
End If

WScript.Echo String(60, "-")
Next

' Cleanup
excel.Quit
Set excel = Nothing

' --- END PROCESSING ---
endTime = Timer
processingTime = Round(endTime - startTime, 2)

WScript.Echo "================================================================="
WScript.Echo " PROCESSING COMPLETE"
WScript.Echo " Finish Time: " & Now()
WScript.Echo " Processing Duration: " & processingTime & " seconds"
WScript.Echo "-----------------------------------------------------------------"
WScript.Echo " Excel files found: " & fileCount
WScript.Echo " Successfully processed: " & successCount
WScript.Echo " Failed: " & errorCount
WScript.Echo " Skipped (read-only): " & skippedCount
WScript.Echo " Success Rate: " & Round((successCount/(fileCount - skippedCount))*100, 2) & "%" & _
" (excluding skipped)"
WScript.Echo "================================================================="

' ===== 新增：创建成功标记文件 =====
successFilePath = targetFolder & "\success.txt"
Set successFile = fso.CreateTextFile(successFilePath, True)  ' True表示覆盖现有文件
successFile.WriteLine "Excel Batch Processing Completed Successfully"
successFile.WriteLine "Completion Time: " & Now()
successFile.WriteLine "Total Files Processed: " & fileCount
successFile.WriteLine "Success Count: " & successCount
successFile.WriteLine "Error Count: " & errorCount
successFile.WriteLine "Skipped Count: " & skippedCount
successFile.Close
Set successFile = Nothing

WScript.Echo "Success marker file created: " & successFilePath
WScript.Echo "Processing complete. Excel processes have exited."
WScript.Echo "Files are unlocked and ready for other applications."
WScript.Echo "Press any key to close this window..."
Set fso = Nothing
WScript.StdIn.Read(1)