vb怎么删除excel表格数据

1.如何用VB清空excel表格

'其他代码不变，只增加三行代码：

Private Sub Command5_Click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim ADOrs As New Recordset

Dim i As Integer

Set xlApp = New Excel.Application

xlApp.Visible = False

Set xlBook = xlApp.Workbooks.Open(App.Path + "\" + "学生报表.xls")

Set xlSheet = xlBook.Worksheets(1)

ADOrs.ActiveConnection = ADOcn

ADOrs.Open "select * from 学生 order by XH"

i = 3

'以下三行为清除excel表格的代码

xlSheet.Cells.Select

xlSheet.Selection.Delete Shift:=-4162

xlSheet.Cells(1, 1).Select

'-----------------------------

Do While Not ADOrs.EOF

xlSheet.Cells(i, 1) = Trim(ADOrs("XH"))

xlSheet.Cells(i, 2) = Trim(ADOrs("XM"))

xlSheet.Cells(i, 3) = Trim(ADOrs("XB"))

ADOrs.MoveNext

i = i + 1

Loop

xlBook.Save

xlBook.Close

xlApp.Quit

MsgBox "报表已生成！"， vbOKOnly， "信息提示"

End Sub