怎样用VB实现删除Excel表中的数据

[lesonly]

Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open(App.Path & "\11.xls")
Set xlsheet = xlbook.Worksheets(1) '创建工作表

我想删除11.xls表中的数据 请问向下该怎么写

我想达到的目的是 每次报表都向11.xls中写 每次报表前都把上次的数据清空 请达人指点
或者有别的办法（不是只向一个表中写）实现也行

[SYSSZ]

ExcelID.ActiveSheet.Rows[2].Delete;'删除行
ExcelID.ActiveSheet.Columns[1].Delete;'删除列

[lesonly]

能做到删除所有数据的行和列吗

[szyezaoshu]

Selection.Delete Shift:=xlUp
Selection.ClearContents

[zuoxingyu]

以下是EXCEL的删除数据的宏

    Range("A1:F4").Select
    Range("F4").Activate
    Selection.Delete Shift:=xlToLeft

复制到VB的代码里去，稍微修改下就可以实现了

[AppleII]

VB删除EXCEL表格指定列：http://www.okbase.net/doc/details/2488

VB删除EXCEL表格指定行：
http://www.okbase.net/doc/details/2486