见如下代码，是用XLS.BOOK实现的，如何改成MSEXCEL，并且ary(i,j)数组的形式
For j As Integer = 0 To val.Value
If Sheet1(i, j).Text > "" AndAlso dic.ContainsKey(Sheet1(i, j).Text.ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) Then
If Forms("窗口1").Controls("RBt5").checked =True Then
Sheet1(i, j).Value = dic(Sheet1(i, j).Text.ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))
Else If Forms("窗口1").Controls("RBt6").checked =True Then
If Forms("窗口1").Controls("RBt1").checked =True Then
Sheet1(i, j).Value = Sheet1(i, j).Text & "|" & dic(Sheet1(i, j).Text.ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))
Else If Forms("窗口1").Controls("RBt2").checked=True Then
Sheet1(i, j).value = Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text.ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))
Else If Forms("窗口1").Controls("RBt4").checked=True Then
Sheet1(i, j).Value = Sheet1(i, j).Text
Sheet1(i, j+1).Value = dic(Sheet1(i, j).Text.ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))
End If
End If
End If
Next
加好友 
发短信
Post By：2016/8/29 12:05:00 [只看该作者]
