我看了一下,改了一下贺老师的代码,条件是,两个表的第一列都是姓名列,第二列都是身份证号,并且两张表的顺序都是一样的,使用这段代码,就可以直接在EXCEL表中比对了Dim Book As New XLS.Book("D:\我的狐表文件\狐表实用编程百例\身份证对比.xls")
Dim fl As String ="D:\我的狐表文件\狐表实用编程百例\身份证对比2.xls"
Dim Sheet1 As XLS.Sheet = Book.Sheets(0)
Dim Sheet2 As XLS.Sheet = Book.Sheets(1) '引用新增加的工作表
For i As Integer = 0 To Sheet1.Rows.Count -1
If Sheet1(i, 0).Text & Sheet1(i, 1).Text <> Sheet2(i, 0).Text & Sheet2(i, 1).Text Then
Sheet2(i, 2).Value = "这个错"
End If
Next
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2011/11/28 11:08:00 [显示全部帖子]
