qq_40777681的博客

**excel标红单元格**Dim info,allfile,setColorCell,setColorCellList,sheetNameallfile = WScript.Arguments(0)setColorCell = WScript.Arguments(1)sheetName = WScript.Arguments(2)setColorCellList = split(setColorCell,“,”)'MsgBox allfile&" “&setColorCel

**获取文件的创建时间修改时间**Dim SetTimefilePath = WScript.Arguments(0)'filePath = “***”set fso=createobject(“Scripting.FileSystemObject”)set fn=fso.GetFile(filePath)'MsgBox “文件创建时间：”&fn.DateCreated'MsgBox “文件最后访问时间：”&fn.DateLastAccessedSetTime=fn.Da

**excel格式的设置**Dim allfile, sheetName, Status'allfile=“C:\Users***\Desktop\模板.xlsx”'sheetName = “4.14N-82105090”allfile = WScript.Arguments(0)sheetName = WScript.Arguments(1)Set allExcel= CreateObject(“Excel.Application”)allExcel.Visible = FalseSe

**获取excel最大列数对应的列名**Dim columnMax,WriteColumnNameexcelPath = WScript.Arguments(0)'excelPath = “C:\Users***\Desktop\test.xlsx”Set allExcel = CreateObject(“Excel.Application”)allExcel.Visible = FalseSet all = allExcel.Workbooks.Open(excelPath)Set al

**删除excel行**Dim excelPath'excelPath=“C:\Users****\Desktop\test.xlsx”'接收外部调用vbs的参数excelPath=WScript.Arguments(0)Set allExcel= CreateObject(“Excel.Application”)allExcel.Visible = FalseSet all = allExcel.Workbooks.Open(excelPath)Set allSheet = allEx