Access VBA实现文件上传至指定SharePoint文件夹及权限相关问题

1. 创建Timesheets文件夹是否正确？ #

• 完全正确。在SharePoint文档库中创建专门的Timesheets文件夹来统一存储工时表，是合理的分类管理方式，也方便后续针对该文件夹单独配置权限。

2. 按钮点击实现文件上传的修正方案 #

你提供的代码存在几个关键问题（比如仅获取文件名而非完整路径、缺乏错误处理），以下是修正后的可运行版本：

Sub SharePointUploader_Click()
    Const msoFileDialogFilePicker As Long = 3
    Dim fd As FileDialog
    Dim selectedFilePath As String
    Dim destinationFolderURL As String
    Dim webDAVURL As String
    Dim fs As Object
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "工时表文件", "*.xlsx;*.xls;*.pdf" ' 根据你的工时表实际格式调整
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "未选择任何文件。", vbExclamation
            Set fd = Nothing
            Exit Sub
        Else
            selectedFilePath = .SelectedItems(1) ' 获取完整文件路径
        End If
    End With
    
    destinationFolderURL = "https://mysite365.sharepoint.com/sites/Science-Department/Documents/Timesheets/"
    ' 构造符合WebDAV规范的上传路径，替换空格为URL编码
    webDAVURL = destinationFolderURL & Replace(Mid(selectedFilePath, InStrRev(selectedFilePath, "\") + 1), " ", "%20")
    
    On Error Resume Next
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(selectedFilePath) Then
        ' 上传文件，True表示覆盖已存在的同名文件
        fs.CopyFile selectedFilePath, webDAVURL, True
        If Err.Number <> 0 Then
            MsgBox "上传失败：" & Err.Description, vbCritical
        Else
            Dim fileAccessURL As String
            fileAccessURL = destinationFolderURL & Replace(Mid(selectedFilePath, InStrRev(selectedFilePath, "\") + 1), " ", "%20")
            MsgBox "文件上传成功！" & vbCrLf & "访问链接：" & fileAccessURL, vbInformation
        End If
    Else
        MsgBox "所选文件不存在。", vbExclamation
    End If
    
    Set fd = Nothing
    Set fs = Nothing
    On Error GoTo 0
End Sub

代码修正要点： #

• 保留完整文件路径，避免因仅取文件名导致找不到文件的问题
• 添加文件类型过滤，限制用户选择符合要求的工时表文件
• 增加错误处理，捕获上传失败的具体原因并提示
• 自动生成并显示上传后的文件访问链接

3. 能否分享URL给只读权限用户？ #

• 可以。只要用户对该SharePoint站点或Timesheets文件夹拥有只读权限，直接分享生成的文件URL链接即可让他们查看内容。注意：
  • 确保分享的是文件的普通访问链接（而非代码中的WebDAV路径）
  • 内部只读用户直接点击链接即可打开，外部用户需先确认站点的外部共享设置是否允许

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