lijiehao 当前离线
列兵
Dim Ex, Wb, Sht Set Ex = CreateObject("Excel.Application") Set Wb = Ex.Workbooks.Open("F:\test.xls") Set Sht = Wb.Sheets("Sheet1") '删除第2到第5行 Sht.Rows("2:5").Delete Ex.ActiveWorkbook.Save MsgBox "操作完成" Ex.Quit复制代码
TOP