从 SharePoint 模板将动态用户名添加到 Excel 页脚

解决方案 1：通过 SharePoint 元数据提取用户名

使用 VBA 从 SharePoint 元数据动态获取“创建者”字段并将其添加到 Excel 页脚。

Sub AddUsernameFromSharePoint()
    Dim ws As Worksheet
    Dim sharePointUsername As String
    Dim listObj As Object
    Dim spURL As String
    Dim row As Object
    On Error Resume Next
    ' Set your SharePoint site and library path here
    spURL = "https://your-sharepoint-site/documents/"
    Set ws = ActiveSheet
    ' Access metadata of the current workbook in SharePoint
    Set listObj = ws.ListObjects.Add(
        SourceType:=xlSrcExternal,
        Source:=spURL,
        Destination:=Range("A1")
    )
    ' Loop through rows to find "creator"
    For Each row In listObj.ListRows
        If row.Range(1, 1).Value = "creator" Then
            sharePointUsername = row.Range(1, 2).Value
            Exit For
        End If
    Next row
    ' Update footer with username
    ws.PageSetup.LeftFooter = "SUBMITTED BY: " & sharePointUsername & " on " & Date
    On Error GoTo 0
End Sub

解决方案 2：使用 SharePoint REST API 获取用户名

将 Excel VBA 与 SharePoint 的 REST API 集成，以从“创建者”字段检索用户名。

Sub FetchUsernameWithAPI()
    Dim http As Object
    Dim jsonResponse As String
    Dim username As String
    Dim ws As Worksheet
    Set http = CreateObject("MSXML2.XMLHTTP")
    Set ws = ActiveSheet
    ' API endpoint to fetch metadata
    apiURL = "https://your-sharepoint-site/_api/web/lists/getbytitle('Documents')/items"
    ' Make GET request
    http.Open "GET", apiURL, False
    http.setRequestHeader "Accept", "application/json;odata=verbose"
    http.Send
    ' Parse response for "creator" field
    jsonResponse = http.responseText
    username = ParseJSONForCreator(jsonResponse)
    ' Add username to footer
    ws.PageSetup.LeftFooter = "SUBMITTED BY: " & username & " on " & Date
End Sub

Function ParseJSONForCreator(jsonResponse As String) As String
    ' Basic parsing logic to extract "creator" value
    Dim pos As Integer
    Dim creatorValue As String
    pos = InStr(jsonResponse, """creator"":")
    creatorValue = Mid(jsonResponse, pos + 10, InStr(pos + 10, jsonResponse, ",") - pos - 10)
    ParseJSONForCreator = creatorValue
End Function

解决方案 3：通过 VBA 集成利用 Office 365 在线功能

将 Excel 的 VBA 功能与 Office 365 在线功能相结合，实现无缝 SharePoint 集成。

Sub AddFooterFromO365()
    Dim ws As Worksheet
    Dim o365User As String
    Set ws = ActiveSheet
    ' Assume user is logged in to Office 365
    o365User = Application.UserName
    ' Fetch creator data from workbook properties
    If ActiveWorkbook.BuiltinDocumentProperties("Creator") <> "" Then
        o365User = ActiveWorkbook.BuiltinDocumentProperties("Creator")
    End If
    ' Add to footer
    ws.PageSetup.LeftFooter = "SUBMITTED BY: " & o365User & " on " & Date
End Sub

有关 SharePoint 和 VBA 集成的常见问题

1. 如何使用 VBA 在 Excel 中动态获取用户名？
2. 通过使用 CreateObject("MSXML2.XMLHTTP")，您可以调用 SharePoint REST API 并解析 "creator" 元数据字段。
3. 为什么会 Application.UserName 返回原始创建者的名字？
4. 此命令检索与本地 Excel 安装关联的用户名，该用户名可能与访问 SharePoint 模板的用户不对应。
5. 在 VBA 中解析 JSON 响应的最佳方法是什么？
6. 使用组合 InStr 和 Mid，您可以从 JSON 响应中提取特定的数据字段，例如“创建者”。
7. 我可以在 Excel 页脚中包含其他 SharePoint 字段（例如“上次修改时间”）吗？
8. 是的，您可以扩展脚本以使用 SharePoint 的 API 获取多个元数据字段，并将它们格式化以包含在 Excel 中 PageSetup。
9. 是否可以针对多个模板自动执行此过程？
10. 绝对地。您可以设计一个脚本，循环访问 SharePoint 中存储的多个模板，并使用特定于用户的数据更新每个模板的页脚。

关于动态页脚定制的最终想法

确保完成 SharePoint 模板的人员的用户名准确显示在 Excel 页脚中，从而提高责任性和可追溯性。利用 VBA 脚本的解决方案提供了可定制和可扩展的方法来满足这一需求。

通过集成高级元数据检索方法（例如 API）或使用内置文档属性，组织可以有效地自动化工作流程。这不仅节省了时间，还确保了精确的审核，这对于合规性较高的行业至关重要。 🚀