【文件属性】：
文件名称：同一文件夹下的多个excel文件的同一位置的批量修改工具
文件大小：696B
文件格式：VBS
更新时间：2020-07-20 12:57:37
vbs
同一文件夹下的多个excel文件的同一位置的批量修改工具
vbs語言
Option Explicit
Dim bk, ex, f, gf, sh, so, sheet
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ex = WScript.CreateObject("Excel.Application")
ex.Application.DisplayAlerts = False
ex.Visible = False
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "xls" Then