vba代码封装DLL 出错
vclzy 2015-06-17 11:48:56 arr = Sheets("学生表").Range("A1").CurrentRegion
For x = 2 To UBound(arr)
If arr(x, 1) <> 1 Then
strSQL = "insert into cp values(" & "'" & arr(x, 2) & "'" & "," & "'" & arr(x, 3) & "'" & ")"
cn.Execute strSQL
Cells(x, 1) = 1
End If
Next
上面的代码,在VBA中运行正常,我把代码复制到VB中封装成DLL,执行到arr 这就报错,
谁知道上述代码在VB 中要怎么改