For Each objFile In objFolder.Files
If LCase(Right(objFile.Name, 4)) = ".xls" Or LCase(Right(objFile.Name, 5)) = ".xlsx" Then
Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)
For Each objWorksheet In objWorkbook.Worksheets
objWorksheet.PageSetup.LeftFooter = ""
objWorksheet.PageSetup.CenterFooter = ""
objWorksheet.PageSetup.RightFooter = ""
Next
objWorkbook.Save
objWorkbook.Close False '??工作簿并不保存更改
End If
Next
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False objExcel.DisplayAlerts = False
strScriptPath = WScript.ScriptFullName '?取?本文件的完整路? strFolderPath = objFSO.GetParentFolderName(strScriptPath) '?取?本文件所在的文件?路? Set objFolder = objFSO.GetFolder(strFolderPath) '使用?取到的文件?路??建 Folder ?象
For Each objFile In objFolder.Files If LCase(Right(objFile.Name, 4)) = ".xls" Or LCase(Right(objFile.Name, 5)) = ".xlsx" Then Set objWorkbook = objExcel.Workbooks.Open(objFile.Path) For Each objWorksheet In objWorkbook.Worksheets objWorksheet.PageSetup.LeftFooter = "" objWorksheet.PageSetup.CenterFooter = "" objWorksheet.PageSetup.RightFooter = "" Next objWorkbook.Save objWorkbook.Close False '??工作簿并不保存更改 End If Next
objExcel.Quit MsgBox "所有 Excel 文件的頁尾已成功清除。"