如何将SharePoint文件夹图片导入Excel指定单元格并实现自动更新？

方法1：Power Query + IMAGE函数（无需代码） #

适合不想写VBA的场景，能自动同步图片链接：

• 打开Excel的「数据」选项卡，选「获取数据」>「从文件」>「从SharePoint文件夹」
• 输入你的SharePoint站点URL，选中目标文件夹后进入Power Query编辑器
• 保留「名称」和「路径」列，添加自定义列，公式写：=HYPERLINK([路径]&[名称], [名称])，生成图片的权限化访问链接（只要你有权限访问SharePoint，就能加载）
• 把处理好的数据加载到Excel（建议单独建一张「图片链接」工作表）
• 在需要显示图片的指定单元格输入=IMAGE('图片链接'!A2)（替换A2为实际链接单元格），调整单元格大小适配图片
• 设置自动刷新：右键Power Query生成的表格，选「刷新」>「连接属性」，勾选「打开文件时刷新数据」，也可以设置定时刷新

方法2：VBA自动更新指定单元格图片 #

如果需要更灵活的位置控制或自动替换旧图，用VBA：

• 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码（记得修改路径和目标单元格）：

Sub UpdateSharePointImages()
    Dim spFolderPath As String
    Dim targetSheet As Worksheet
    Dim targetRng As Range
    Dim imgFiles As Object
    Dim imgFile As Object
    Dim imgIndex As Integer
    
    ' 修改为你的SharePoint路径：本地同步路径或在线URL
    spFolderPath = "C:\Users\你的用户名\SharePoint\站点名\目标文件夹\" ' 本地同步示例
    ' spFolderPath = "https://你的租户.sharepoint.com/sites/站点名/Shared%20Documents/目标文件夹/" ' 在线路径示例
    
    ' 指定目标工作表和单元格（比如Sheet1的A1、C3、E5）
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetRng = targetSheet.Range("A1,C3,E5")
    
    Set imgFiles = CreateObject("Scripting.FileSystemObject").GetFolder(spFolderPath).Files
    imgIndex = 1
    
    ' 遍历图片并插入到指定单元格
    For Each imgFile In imgFiles
        Dim ext As String
        ext = LCase(Right(imgFile.Name, 5))
        If ext Like ".png" Or ext Like ".jpg" Or ext Like ".jpeg" Then
            If imgIndex > targetRng.Cells.Count Then Exit For
            
            ' 删除单元格内旧图片
            For Each shp In targetSheet.Shapes
                If shp.TopLeftCell.Address = targetRng.Cells(imgIndex).Address Then shp.Delete
            Next shp
            
            ' 插入新图并适配单元格大小
            With targetSheet.Shapes.AddPicture( _
                Filename:=imgFile.Path, LinkToFile:=msoTrue, _
                SaveWithDocument:=msoFalse, Left:=targetRng.Cells(imgIndex).Left, _
                Top:=targetRng.Cells(imgIndex).Top, Width:=targetRng.Cells(imgIndex).Width, _
                Height:=targetRng.Cells(imgIndex).Height _
            )
                .Name = "Img_" & imgIndex
            End With
            
            imgIndex = imgIndex + 1
        End If
    Next imgFile
End Sub

• 要自动触发的话，在ThisWorkbook模块里添加以下代码，实现打开文件时自动更新：

Private Sub Workbook_Open()
    UpdateSharePointImages
End Sub

• 注意：用在线路径要确保Excel已登录有权限的Office账号；用本地路径要保证SharePoint同步了最新图片。

注意事项 #

• 两种方法都要求你对目标SharePoint文件夹有读取权限
• Power Query方法会自动同步文件名变更，重命名SharePoint里的图片后，Excel链接会自动更新
• VBA里的LinkToFile:=msoTrue设置会让图片自动跟随SharePoint里的文件更新（只要路径不变）

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