求助,如何用VB删除某一行记录

如题所述

Private Sub Command2_Click()
Dim xlApp As New Excel.Application '定义EXCEL类
Dim xlBook As New Excel.Workbook '定义工件簿类
Dim xlsheet As New Excel.Worksheet '定义工作表类
xlApp.Visible = True '设置EXCEL可见

Set xlBook = xlApp.Workbooks.Open("d:\book1.xls")
Set xlsheet = xlBook.Worksheets(1)
For i = 1 To 9700
For j = 2 To 4
xlsheet.Rows(i).Delete 'Shift:=xlUp '删除第2行就是"2:2",删除1-3行就是"1:3"
Next
Next
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-02-03
DELETE FROM 表名称 WHERE 列名称 = 值
第2个回答  2017-02-03
是数据库的吧?
相似回答