数据库(包含打印，安装，报表)
如何用VB删除EXCEL里对应内容的行
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区如何用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
-------------------------------------------------------------------------------------------
或者用别的方法也行，请各位老师帮助，谢谢！
试过用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
-------------------------------------------------------------------------------------------
或者用别的方法也行，请各位老师帮助，谢谢！
...全文
