Board logo

标题: [文本处理] 批处理如何删除excel指定行? [打印本页]

作者: lijiehao    时间: 2014-3-3 18:44     标题: 批处理如何删除excel指定行?

单位一个报表系统里面导出来的是一个excel,如何实现删除指定行?该行是空的。

如下图,将1、2、7、8、9、10、11、13、14等行删掉。
作者: lijiehao    时间: 2014-3-3 19:11

用vbs基本上可以实现
  1. Dim Ex, Wb, Sht
  2. Set Ex = CreateObject("Excel.Application")
  3. Set Wb = Ex.Workbooks.Open("F:\test.xls")
  4. Set Sht = Wb.Sheets("Sheet1")
  5. '删除第2到第5行
  6. Sht.Rows("2:5").Delete
  7. Ex.ActiveWorkbook.Save
  8. MsgBox "操作完成"
  9. Ex.Quit
复制代码

作者: DAIC    时间: 2014-3-3 20:39

BAT无法直接操作Excel文件
作者: zhanglei1371    时间: 2014-3-3 22:35

用VBA:
  1. Sub DeleteEmptyRows()
  2. Dim LastRow As Long, r As Long
  3.     LastRow = ActiveSheet.UsedRange.Rows.Count
  4.     LastRow = LastRow + ActiveSheet.UsedRange.Row -1
  5.     For r = LastRow To 1 Step -1
  6.         If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
  7.     Next r
  8. End Sub
复制代码
参考:http://www.jb51.net/office/excel/62172.html




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2