如果只把标红处放到异步函数执行的话,那RowsMax和ColsMax的值是在上面的代码中取到的,怎么代到函数中去?
dim ws = args(0)
dim wb = args(1)
dim RowsMax as integer
dim ColsMax as integer
For k As Integer=1 To wb.worksheets.Count
If Wb.WorkSheets(k).Visible <> 0 Then
Dim Ws As MSExcel.WorkSheet=Wb.WorkSheets(k)
If Numcb1.Text = Nothing And Numcb2.Text = Nothing Then
RowsMax = 0
ColsMax = ws.UsedRange.columns.count
For i As Integer = 1 To ColsMax
Dim r = ws.cells(excelrows,i).End(MsExcel.XlDirection.xlUp).Row
If r > RowsMax Then
RowsMax = r
End If
Next
For i As Integer = 1 To RowsMax
Dim r = ws.cells(i,excelcol).End(MsExcel.XlDirection.xlToLeft).Column
If r > ColsMax Then
ColsMax = r
End If
Next
Else
RowsMax = Numcb1.Value
ColsMax = Numcb2.Value
End If
Dim rg As MSExcel.Range = Ws.Range(Ws.Cells(1,1), Ws.Cells(RowsMax,ColsMax))
Dim ary = rg.value
For i As Integer=1 To RowsMax
For j As Integer = 1 To ColsMax
rg(i, j).Value= dic(ary(i,j).ToLower.Replace(" ","").Replace(chr(10), "").Replace(chr(13), ""))
Next
Next
End If
Next