请求：Excel 2013宏实现数据存入SharePoint列表的替代方案

没问题，针对你Excel 2013宏按钮存数据到SharePoint列表的需求，我给你三个不需要SQL权限的实用方案，都是在VBA里就能实现的：

方案1：使用SharePoint REST API（最通用） #

REST API是SharePoint提供的标准接口，通过HTTP请求就能读写列表数据，不需要额外安装组件，适合大多数场景。

VBA代码示例 #

Sub SaveToSPList_UsingREST()
    Dim spSiteUrl As String
    Dim listName As String
    Dim xmlHttp As Object
    Dim postData As String
    Dim userName As String
    
    ' 配置参数
    spSiteUrl = "https://your-sharepoint-site-url" ' 替换为你的SharePoint站点URL
    listName = "YourListName" ' 替换为你的列表名称
    userName = Environ("USERNAME") ' 当前Windows域账号，NTLM自动认证
    
    ' 构造要发送的JSON数据（注意用列表的内部名称，不是显示名称）
    postData = "{""__metadata"": {""type"": ""SP.Data." & listName & "ListItem""}, " & _
               """Title"": """ & Range("A2").Value & """, " & _ ' 对应Excel列和列表Title列
               """YourSecondColumn"": """ & Range("B2").Value & """}" ' 替换为你的第二列内部名称
    
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    On Error GoTo Cleanup
    
    ' 设置请求
    xmlHttp.Open "POST", spSiteUrl & "/_api/web/lists/getbytitle('" & listName & "')/items", False, userName, ""
    xmlHttp.setRequestHeader "Accept", "application/json;odata=verbose"
    xmlHttp.setRequestHeader "Content-Type", "application/json;odata=verbose"
    xmlHttp.setRequestHeader "X-RequestDigest", GetRequestDigest(spSiteUrl) ' 获取请求摘要
    
    ' 发送请求
    xmlHttp.Send postData
    
    ' 处理响应
    If xmlHttp.Status = 201 Then
        MsgBox "数据保存成功！"
        Range("A2:B2").ClearContents ' 清空录入区域
    Else
        MsgBox "保存失败：" & xmlHttp.responseText
    End If
    
Cleanup:
    Set xmlHttp = Nothing
End Sub

' 辅助函数：获取SharePoint请求摘要（POST/PUT/DELETE请求必需）
Function GetRequestDigest(spSiteUrl As String) As String
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    
    xmlHttp.Open "POST", spSiteUrl & "/_api/contextinfo", False
    xmlHttp.setRequestHeader "Accept", "application/json;odata=verbose"
    xmlHttp.Send ""
    
    GetRequestDigest = Split(Split(xmlHttp.responseText, """FormDigestValue"":""")(1), """")(0)
    Set xmlHttp = Nothing
End Function

注意事项 #

• 列表列要使用内部名称，可以通过SharePoint列表设置→列属性查看
• 非域环境可能需要调整认证方式，但Excel 2013搭配企业SharePoint通常用NTLM即可

方案2：使用Excel ListObject（表格）同步 #

Excel自带的表格功能可以直接连接SharePoint列表，宏代码非常简洁，适合对代码不太熟悉的用户。

步骤&代码 #

1. 把Excel录入区域转成表格：选中区域→插入→表格
2. 连接SharePoint列表：表格工具→设计→外部表数据→链接到SharePoint列表，按向导完成配置
3. 宏里用以下代码添加行并同步：

Sub SaveToSPList_UsingListObject()
    Dim lo As ListObject
    Dim newRow As ListRow
    
    ' 获取表格对象（替换为你的表格名称）
    Set lo = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
    
    ' 添加新行并赋值
    Set newRow = lo.ListRows.Add(AlwaysInsert:=True)
    newRow.Range(1).Value = Range("A2").Value ' Excel录入列1
    newRow.Range(2).Value = Range("B2").Value ' Excel录入列2
    
    ' 同步到SharePoint
    lo.QueryTable.Refresh BackgroundQuery:=False
    
    MsgBox "数据保存成功！"
    Range("A2:B2").ClearContents
End Sub

优点 #

• 代码简单，不需要处理复杂的HTTP请求
• 自带同步校验，出错概率低

方案3：使用SharePoint Client Object Model（CSOM） #

CSOM是SharePoint的客户端对象模型，通过引用官方库可以更面向对象地操作列表，适合需要复杂逻辑的场景。

准备工作 #

打开Excel VBA编辑器→工具→引用→勾选Microsoft SharePoint Client Runtime和Microsoft SharePoint Client Runtime Utilities（Office 2013通常自带这些组件）

VBA代码示例 #

Sub SaveToSPList_UsingCSOM()
    Dim ctx As SharePoint.Client.ClientContext
    Dim web As SharePoint.Client.Web
    Dim list As SharePoint.Client.List
    Dim newItem As SharePoint.Client.ListItemCreationInformation
    Dim listItem As SharePoint.Client.ListItem
    
    ' 配置参数
    Dim spSiteUrl As String
    spSiteUrl = "https://your-sharepoint-site-url"
    
    ' 创建客户端上下文，自动使用当前域账号认证
    Set ctx = New SharePoint.Client.ClientContext(spSiteUrl)
    ctx.Credentials = SharePoint.Client.CredentialCache.DefaultCredentials
    
    On Error GoTo Cleanup
    
    ' 获取目标列表
    Set web = ctx.Web
    Set list = web.Lists.GetByTitle("YourListName") ' 替换为列表名称
    
    ' 创建新列表项并赋值
    Set newItem = New SharePoint.Client.ListItemCreationInformation
    Set listItem = list.AddItem(newItem)
    listItem("Title") = Range("A2").Value
    listItem("YourSecondColumn") = Range("B2").Value
    
    ' 提交到SharePoint
    listItem.Update()
    ctx.ExecuteQuery()
    
    MsgBox "数据保存成功！"
    Range("A2:B2").ClearContents
    
Cleanup:
    If Err.Number <> 0 Then
        MsgBox "保存失败：" & Err.Description
    End If
    Set ctx = Nothing
End Sub

注意事项 #

• 确保客户端库版本和SharePoint服务器版本兼容
• 若为SharePoint Online，需调整认证方式为OAuth

内容的提问来源于stack exchange，提问作者Sweety