老师帮忙看看哪里不对，报错“索引超出了数组界限”
Dim path As String = args(0)
Dim app As new MsExcel.Application
Dim dic As new Dictionary(of String,String)
Dim dicfile As String = Forms("窗口1").Controls("TextBox2").value
Dim Book As New XLS.Book(dicfile) '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 0 To Sheet.Rows.Count-1
If dic.ContainsKey(Sheet(i, 0).Text.ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) = False Then
dic.add(Sheet(i, 0).Text.ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""),Sheet(i, 1).Text)
End If
Next
'//开始
For Each file As String In FileSys.GetFiles(path)
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim wb=app.WorkBooks.Open(file)
For k As Integer = 1 To wb.worksheets.count '//多个sheet的处理
Dim ws As msexcel.worksheet=wb.worksheets(k)
Dim rg As msexcel.range=ws.usedrange
Dim ary =rg.value
'Dim Sheet1 = Book1.Sheets(k)
For i As Integer = 1 To rg.Rows.Count
For j As Integer = 1 To rg.Columns.Count
If ary(i+1,j+1) > "" AndAlso dic.ContainsKey(ary(i+1,j+1).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) Then
If Forms("窗口1").Controls("RBt1").checked Then
ws.Cells(i+1, j+1).Value = ary(i+1,j+1) & "|" & dic(ary(i+1,j+1).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))
msgbox(ws.Cells(i+1, j+1).Value )
End If
End If
Next
Next
Next
wb.save()
app.quit()
End If
Next
For Each p As String In FileSys.GetDirectories(path)
Functions.Execute("对比函数", p)
Next
加好友 
发短信
Post By：2016/8/29 12:05:00 [只看该作者]
