主题：如何导入不规则的电子表数据

 删除头两行这样写

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\2.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作
ws.rows("1:2").delete(MSExcel.XlDirection.xlUp)
wb.Save
app.quit