同一文件夹下的多个excel文件的同一位置的批量修改工具
vbs語言
Option Explicit
Dim bk, ex, f, gf, sh, so, sheet
Set so = CreateObject("scr ipting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ex = Wscr ipt.CreateObject("Excel.Application")
ex.Application.DisplayAlerts = Fal