我下面的代码实现了选择文件删除不需要的行，填充必须的数据，请问一下怎么删除 存货编码不包含“（小计）”的行？搞了半天没找到这样的资料，麻烦大神指教一下，谢谢。
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
For Each fl As String In dlg.FileNames
Dim Book As New XLS.Book(fl ) '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim YZD As String = sheet(2,1).Text
sheet.rows.RemoveAt(0)
sheet.rows.RemoveAt(0)
sheet.rows.RemoveAt(0)
sheet.rows.RemoveAt(0)
sheet.rows.RemoveAt(0)
sheet(0,1).value = "生产运作单"
For r As Integer = 1 To SHEET.Rows.Count - 2 '填入数据
sheet(R,1).value = YZD
Next
sheet(1,1).value = YZD
Book.Save("c:\生产运作单\test.xls") '保存工作簿
Next
End If
Dim Proc As New Process '打开工作簿
Proc.File = "C:\生产运作单\test.xls"
Proc.Start()
加好友 
发短信
Post By：2021/1/27 21:19:00 [显示全部帖子]
