用vb删除<em>excel</em>的某一行具体程序

已经百先打度开的知excel文档，每道删版3行保留权1行

Private Sub Command1_Click()
    Dim i, j As Integer
    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlBook = xlApp.Workbooks.Open("d:\book1.xls")
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = True
For i = 1 To 100
 For j = 1 To  3
 xlSheet.Rows(i).Delete ' Shift:=xlUp
 Next
    Next
end

'菜单“工程/引用”，勾选e69da5e887aae799bee5baa6e997aee7ad94361Microsoft Excel 11库，必须的
Private Sub Command1_Click()

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Set xlApp = CreateObject("Excel.Application")
On Error GoTo prcERR
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开你的EXCEL文件
Set xlSheet = xlBook.Worksheets(1)'第一个表格
xlSheet.Application.Visible = True '设置Excel 可见
xlSheet.Rows("1:1").Delete Shift:=xlUp'假如要删除第1行。删除第2行就是"2:2"，删除1-3行就是"1:3"
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Exit Sub
prcERR:
Debug.Print Err.Number & ":" & Err.Description
End Sub
代码百及注释如下：
sub main()
Dim ap As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet Set wb = ap.Workbooks.Open(“D:\123.xls”)'打开度工作簿
Set ws = wb.Worksheets(“Sheet1”)'赋值工作表
ws.Activatews.Cells(2, 4).Select '选中D2所在单元格问
Selection.EntireRow.Delete '选中D2所在的行，答然后执行删除行
wb.save‘保存版工作表
wb.close'关闭工作表
ap.Quit'退出Excel程序权
Set ws = Nothing
Set wb = Nothing
end sub

如果您用的是Excel2007以上的版本，可以试试这个方法：
将工作簿另存为一个普通的不开启宏的工作簿，然后直接关闭此工作簿。
再次打开这个另存的工作簿，会发现所有的VBA代码都消失了……