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 Online 機能の利用

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. 「最終更新日」などの他の SharePoint フィールドを Excel フッターに含めることはできますか?
8. はい、スクリプトを拡張して、SharePoint の API を使用して複数のメタデータ フィールドを取得し、それらを Excel に含めるようにフォーマットすることができます。 PageSetup。
9. 複数のテンプレートに対してこのプロセスを自動化することは可能ですか?
10. 絶対に。 SharePoint に保存されている複数のテンプレートをループして、各テンプレートのフッターをユーザー固有のデータで更新するスクリプトを設計できます。

動的なフッターのカスタマイズに関する最終的な考え

SharePoint テンプレートを完成させた人のユーザー名が Excel フッターに正確に表示されるようにすることで、説明責任と追跡可能性の両方が向上します。 VBA スクリプトを活用したソリューションは、このニーズに対処するためのカスタマイズ可能でスケーラブルなアプローチを提供します。

API などの高度なメタデータ取得方法を統合するか、組み込みのドキュメント プロパティを使用することにより、組織はワークフローを効果的に自動化できます。これにより、時間が節約されるだけでなく、コンプライアンスを重視する業界では不可欠な正確な監査が保証されます。 🚀