xlsNm,xlsBookSetWshShell=WScript.CreateObject("WScript.Shell")Setfso=CreateObject("Scripting.FileSystemObject")Setdic=CreateObject("Scripting.Dictionary")Setexcel=WScript.CreateObject("Excel.Application")ConstxlSheetVisible=-1'引数取得SetobjArgs=WScript.ArgumentsDimres,f,sheet,actCell,vStateIfStrComp(fso.Ge...