excel - 无法更新 EXCEL VBA 中的 ADO 记录集

Question

我正在使用 Excel 范围作为数据源创建记录集。代码是

    Sub Hello()

    Dim xlXML             As Object
    Dim adoRecordset      As Object
    Dim rng               As Range

    Set rng = Range("A1:C6")
    Set adoRecordset = CreateObject("ADODB.Recordset")
    Set xlXML = CreateObject("MSXML2.DOMDocument")
    xlXML.LoadXML rng.Value(xlRangeValueMSPersistXML)
    adoRecordset.CursorLocation = 3
    adoRecordset.Open xlXML, CursorType:=2, LockType:=3

    adoRecordset.Movefirst

    adoRecordset.Fields(1) = 1000 'this is the error line
    adoRecordset.Update

    Set adoRecordset = Nothing
    Set xlXML = Nothing

    End Sub

我无法更新数据集，并收到错误“多步操作生成错误。检查每个值 (-2147217887)”。我不知道我哪里错了。我使用的是 Excel 2007。

Answer 1

我认为在添加新行或编辑记录集中的现有行之前，您必须输入:

adoRecordset.Edit
' OR
adoRecordset.AddNew