同一文件夹下的多个excel文件的同一位置的批量修改工具

时间:2023-08-10 06:44:17
【文件属性】:

文件名称:同一文件夹下的多个excel文件的同一位置的批量修改工具

文件大小:696B

文件格式:VBS

更新时间:2023-08-10 06:44:17

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


网友评论