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

[kof97_wwf]

如何用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
-------------------------------------------------------------------------------------------
或者用别的方法也行，请各位老师帮助，谢谢！

[cqq_chen]

录宏，看代码..... 应该是需要先选中，然后再删除！！

[kof97_wwf]

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

[专注VB编程开发20年]

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

[kof97_wwf]

引用 3 楼 xiaoyao961 的回复:

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

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 ------------------------ 请补充代码谢谢

[赵4老师]

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

[kof97_wwf]

老师都去了那了，快来吧

[Tiger_Zhao]

表结构（列名）应该固定吧，直接删除即可。

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 & "'"

[kof97_wwf]

引用 6 楼 Tiger_Zhao 的回复:

表结构（列名）应该固定吧，直接删除即可。

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]='" & Text1.Text & "'"

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

[Tiger_Zhao]

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