在导入Excel表时，希望实现当Excel表中某指定列的单元格内容不是“已通过”时，终止运行。我的代码如下：
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel2007文件|*.xlsx" '设置Excel文件筛选器 'Excel2003文件|*.xls|
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName) '获取用户选择的工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '工作簿中第一个表
'------检查审批记录表是否存在非已通过的记录------------
For n As Integer = 1 To Sheet.Rows.Count -1 'n为循环到的行数
If sheet(n,26).Text <> "已通过" Then
MessageBox.Show("差旅费列表中存在没有审批通过的记录,请处理!")
Exit For
Return
End If
Next
但是没有达到目的，这是为何？
加好友 
发短信
Post By：2020/5/11 11:14:00 [显示全部帖子]
