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 온라인 기능 활용

원활한 SharePoint 통합을 위해 Excel의 VBA 기능과 Office 365 온라인 기능을 결합합니다.

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. 이 명령은 SharePoint 템플릿에 액세스하는 사용자와 일치하지 않을 수 있는 로컬 Excel 설치와 연결된 사용자의 이름을 검색합니다.
5. VBA에서 JSON 응답을 구문 분석하는 가장 좋은 방법은 무엇입니까?
6. 다음의 조합을 사용하여 InStr 그리고 Mid을 사용하면 JSON 응답에서 "creator"와 같은 특정 데이터 필드를 추출할 수 있습니다.
7. Excel 바닥글에 "최종 수정"과 같은 다른 SharePoint 필드를 포함할 수 있나요?
8. 예, 스크립트를 확장하여 SharePoint의 API를 사용하여 여러 메타데이터 필드를 가져오고 Excel에 포함되도록 형식을 지정할 수 있습니다. PageSetup.
9. 여러 템플릿에 대해 이 프로세스를 자동화할 수 있습니까?
10. 전적으로. SharePoint에 저장된 여러 템플릿을 반복하여 각 템플릿의 바닥글을 사용자별 데이터로 업데이트하는 스크립트를 디자인할 수 있습니다.

동적 바닥글 사용자 정의에 대한 최종 생각

SharePoint 템플릿을 작성하는 사람의 사용자 이름이 Excel 바닥글에 정확하게 표시되도록 하면 책임성과 추적성이 모두 향상됩니다. VBA 스크립트를 활용하는 솔루션은 이러한 요구 사항을 해결하기 위해 사용자 정의 가능하고 확장 가능한 접근 방식을 제공합니다.

API와 같은 고급 메타데이터 검색 방법을 통합하거나 내장된 문서 속성을 사용하여 조직은 워크플로를 효과적으로 자동화할 수 있습니다. 이는 시간을 절약할 뿐만 아니라 규정 준수가 중요한 산업에서 중요한 정밀한 감사를 보장합니다. 🚀