.Cells VBA参考问题

Question

我在下面有这个VBA,旨在遍历每个WS并插入每个数据集的前4行.

这在with内部工作正常,但只允许我指定一个工作表,而不是全部通过它们.我把它带出来并得到"无效或不合格的参考".在此之后我添加了ActiveSheet.到'细胞'方法.

现在我收到以下错误:

"ODBC驱动程序不支持所请求的属性"

我如何才能获得.Cells资格？还是有替代方案吗？我正在使用excel 2010和mysql.

Public Function InsertData()

Dim rs As ADODB.Recordset
Dim oConn As ADODB.Connection
Dim WS As Worksheet
Dim strsql As String

Set rs = New ADODB.Recordset
  Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
    "SERVER=server.host.com;" & _
    "DATABASE=datatime;" & _
    "USER=boulders;" & _
    "PASSWORD=rocks;" & _
    "Option=3"


For Each WS In ActiveWorkbook.Worksheets

    For rowcursor = 4 To 8
        strsql = "INSERT INTO workflow_metrics (id, code) " & _
            "VALUES (" & (ActiveSheet.Cells(rowcursor, 1)) & "," & _
            "'" & (ActiveSheet.Cells(rowcursor, 2)) & "')"

       rs.Open strsql, oConn, adOpenDynamic, adLockOptimistic

    Next
Next WS


End Function

Answer 1

我想你想要:

Param1.Value = WS.Cells(rowcursor, 1)

等等