如何用VB删除EXCEL里对应内容的行

Question

如何用VBA删除D:\aa.XLS,文件SHEET1表里对应TEXT1查询内容所在的行
试过用Delete Shift:=xlUp不行，不知道是不是格式不对，请老师帮助，谢谢！
   Set cn = CreateObject("ADODB.Connection")
    Set rc = CreateObject("ADODB.Recordset")
    cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes';data source=" & "d:\aa.xls"    
    rc.Open "select * from [sheet1$] where "& rs.Fields(0).Name & "='" & Textbox1.Text & "'", cn, 1, 3
  
请添加代码。           
    rc.Update
-------------------------------------------------------------------------------------------
或者用别的方法也行，请各位老师帮助，谢谢！ExcelVB删除

Answer 1

我这个是查找TEXT1内容，再删除TEXT1内容所在的行，还有是VB不是VBA，还请老师们帮助

Answer 2

先SELECT * FROM　然后ＴＯＰ多少
这样只要删第一条，或最后一条就行了

Answer 3

Set cn = CreateObject("ADODB.Connection")
    Set rc = CreateObject("ADODB.Recordset")
    cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes';data source=" & "d:\aa.xls"    
    rc.Open "select * from [sheet1$] where "& rs.Fields(0).Name & "='" & Textbox1.Text & "'", cn, 1, 3
  
请添加代码。           
    rc.Update------------------------
请补充代码谢谢

Answer 4

表结构（列名）应该固定吧，直接删除即可。
Set cn = CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes';data source=" & "d:\aa.xls"
cn.Execute "DELETE from [sheet1$] where [列名1]='" & Textbox1.Text & "'"

Answer 5

在Excel 2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

Answer 6

对列名的固定的，老师你的代码运行了出错
说“该 ISAM 不支持在链接表中删除数据。”
还请老师再指教，谢了

Answer 7

查了一下，不支持删除，参考 http://blog.csdn.net/tennychen/article/details/6332042
改用操作 Excel 对象的方式删除，见 7楼。