怎么用VB删除EXCEL里对应内容的行
如何用VB删除EXCEL里对应内容的行
如何用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
-------------------------------------------------------
或者用别的方法也行，请各位老师帮助，谢谢！
------解决方案--------------------
表结构（列名）应该固定吧，直接删除即可。
------解决方案--------------------
查了一下，不支持删除，参考 http://blog.****.net/tennychen/article/details/6332042
改用操作 Excel 对象的方式删除，见 7楼。
如何用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
-------------------------------------------------------
或者用别的方法也行，请各位老师帮助，谢谢！
Excel
VB
删除
------解决方案--------------------
表结构（列名）应该固定吧，直接删除即可。
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 & "'"
------解决方案--------------------
查了一下，不支持删除，参考 http://blog.****.net/tennychen/article/details/6332042
改用操作 Excel 对象的方式删除，见 7楼。