如何将XLS.Book改成MSEXCEL？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

看4楼，不用+1，如：ary(i,j)

如果按标红处的代码手动输入一个数值（如：输入10）则报错“索引超出了数组界限”，如果采用标蓝处的代码则正常，但不是我想要的。我想把列数通过输入固定而不是表格中有多少列就处理多少列，应该如何修改？

For Each file As String In FileSys.GetFiles(path)

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

Dim wb=app.WorkBooks.Open(file)

'Dim Book1 As New XLS.Book(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

For j As Integer = 1 To val.value

If ary(i,j) > "" AndAlso dic.ContainsKey(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) Then

If Forms("窗口1").Controls("RBt1").checked Then

ws.Cells(i, j).Value = ary(i,j) & "|" & dic(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))

msgbox(ws.Cells(i, j).Value )

End If

wb.save()

app.quit()

End If

For j As Integer = 1 To 10

这里的10必须小于rg.Columns.Count

标红的地方执行是报错：未找到类型Double的公共成员“ToLower"是怎么回事？

Dim path As String = args(0)

Dim val As WinForm.NumericComboBox = Forms("窗口1").Controls("NumericComboBox1")

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

msgbox(1)

'For Each k As String In dic.Keys '显示所有键及其对应的值

'Output.Show(K & "|" & dic(k))

'Next

'Dim file As object

'//开始

For Each file As String In FileSys.GetFiles(path)

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

Dim wb=app.WorkBooks.Open(file)

'Dim Book1 As New XLS.Book(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

For i As Integer = 1 To rg.Rows.Count

For j As Integer = 1 To rg.Columns.count

'If i= 2 Then

'Continue For

If ary(i,j) > "" AndAlso dic.ContainsKey(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) Then

If Forms("窗口1").Controls("RBt1").checked Then

ws.Cells(i, j).Value = ary(i,j) & "|" & dic(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))

msgbox(3)

End If

'End If

wb.save()

app.quit()

End If

For Each p As String In FileSys.GetDirectories(path)

Functions.Execute("对比函数", p)

麻烦老师再给看看吧

提示什么错误？

标红的地方执行是报错：未找到类型Double的公共成员“ToLower"是怎么回事？

因为部分单元格是数字型的，试试

If ary(i,j) > "" AndAlso Typeof ary(i,j) Is String AndAlso dic.ContainsKey(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), "")) Then

有的时候报上面的错误有的时候报如下截图中的错误，我找不到规律啊。

此主题相关图片如下：111111111111.jpg

主题：如何将XLS.Book改成MSEXCEL？