excel - 使用 rst.Fields 将多个单元格发送到我的 SharePoint

Question

请原谅我的 VBA 技能不是很好的任何错误。

因此，我尝试将 Excel 数据上传到 SharePoint 列表，并按照一些教程来了解如何在宏中完成此操作，并且我正在使用 ADO 和 SQL 来实现此目的。我得到了连接，因为在一个单独的宏中我能够提取我的数据并发送单行数据，但我想在 excel 中发送几行数据，我尝试了一个通用循环，但它不起作用。理想情况下，如果我可以使用宏将第 2 行上传到第 X 行(LastRow)，我会喜欢它。

Option Explicit
Sub AddNew_SP()
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim mySQL As String
Dim i As Integer
Dim LastRow As Integer

Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
mySQL = "SELECT * FROM [1];"

'open connection

With cnt
    .ConnectionString = _
    "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=MySite;LIST=MyGUID;"
    .Open
End With

rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic
'For i = 2 To LastRow
rst.AddNew
    'rst.Fields("Department")=["A" + "i"]
    'rst.Fields("Section#") = ["B" + "i"]
    'rst.Fields("Operation#") = ["C" + "i"]
    'rst.Fields("Job") = ["D" + "i"]
    'rst.Fields("Program") = ["L" + "i"]
rst.Update
'Next i
If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing

End Sub

Answer 1

["B" + "2"] (例如) 与 [B2] 不同- 最好避免使用方括号来引用 VBA 中的范围:在 Range() 上保存几个字符是不值得的, Cells() ETC

尝试这个:

Dim rw As Range
'...
'...

rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic
For i = 2 To LastRow
     With ActiveSheet.Rows(i)
         rst.AddNew
         rst.Fields("Department")=.Parent.Range("A2").value
         rst.Fields("Section#") = .Cells(2).Value
         rst.Fields("Operation#") = .Cells(3).Value
         rst.Fields("Job") = .Cells(4).Value
         rst.Fields("Program") = .Cells(12).Value
     End with
     rst.UpdateBatch
Next i