我看了帮助文件中Excel与VBA这一章,没有找到 Find 这类的方法,我如何定位到 某一行的第一列内容是 “304 小计”呢,用遍历查找吗?下面是我用的方法,才200条数据就用了近8秒,效率不行啊!
Dim t As Table = e.Form.Controls("Table1").Table
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.FileName = "测试"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
t.SaveExcel(dlg.FileName, "测试") '保存文件
End If
Dim n As Integer = t.Rows.Count(True)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
Dim Rg1 As MSExcel.Range
For i As Integer = 1 To n
Rg = Ws.Cells(i,1)
If Rg.value = "SUS304 小计"
Rg1 = Ws.Rows(i & ":" & i)
Rg1.Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移
End If
Next
App.Visible = True
[此贴子已经被作者于2019/4/15 14:05:18编辑过]