Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open ("G:\test.xls")
intRow = 1
strDN = ""
Do Until objExcel.Cells(intRow,1).Value = ""
objExcel.Cells(intRow,2).Value = intRow
intRow = intRow + 1
Loop
objExcel.Workbooks(1).Save '保存工作表
objExcel.Workbooks(1).Close '关闭工作表
objExcel.Quit ' 退出
wscript.echo "保存成功"
VBS操作Excel文件的保存
最新推荐文章于 2023-05-13 23:25:15 发布