使用VBA更新SharePoint选择字段

Question

我正在尝试编写一个宏，该宏通过Excel工作簿将信息发送到SharePoint列表。但是，我似乎找不到语言来让它选择所需的值。

Public Function addtoSP(refRow As Integer, ws As Worksheet)
    Dim tbl     As ListObject
    Dim newR    As ListRow

    Set tbl = ws.ListObjects(1)
    Set newR = tbl.ListRows.Add

    With newR  
    .Range(6) = ws.Cells(i, 3).Value ' column 6 = choice field in SP. assignment error
    End With

end function