首先使用excel打开表格,按excel定位快捷键Ctrl+G。
在excel定位窗口中选择定位条件。
在excel定位条件中选择常量,然后只勾选数字。
此时excel会自动定位在数字上。
此时excel数字就删除了,文字和公式还在。
因为你说的太笼统了,所以只能这样了Sub ss()
'access
'Db = "d:\zcgl.mdb"
' connstr = "DBQ=" + Db + "DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"
' Set conn = CreateObject("ADODB.Connection")
' conn.Open connstr
'删除sql对应的行
'conn.Execute "delete from grjbxx00 where 订单编号=" &Cells(1, 1) &"and 产品编号=" &Cells(2, 1)
'sql2000,你需要修改 数据库名,用户名,密码,数据表名
ConnectionString = "Driver={SQL Server}Server=(local)Datebase=dbefanUid=efanPwd=123456"
Set cnn = server.CreateObject("ADODB.Connection")
cnn.Open ConnectionString
'删除sql对应的行,grjbxx00要修改
cnn.Execute "delete from grjbxx00 where 订单编号=" &Cells(1, 1) &"and 产品编号=" &Cells(2, 1)
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)