将单元格复制到SharePoint上的其他工作簿

Question

我有一个多选项卡工作簿。每个选项卡仅对基于用户名的用户可见。他们的输入使用以下代码复制到“主”标签：

Set tbl = Sheets("Master").ListObjects("Table6")

If tbl.ListRows.Count > 0 Then

    Set lrow = tbl.ListRows(tbl.ListRows.Count).Range
    For col = 1 To lrow.Columns.Count
        If Trim(CStr(lrow.Cells(1, col).Value)) <> "" Then
            tbl.ListRows.Add
            Exit For
        End If
    Next
End If

lrow2 = tbl.ListRows.Count
    tbl.DataBodyRange(lrow2, 1).Value = DateBox.Value
    tbl.DataBodyRange(lrow2, 2).Value = txtDIR.Value

由于“主”表格位于同一电子表格上，因此我仅设置表格。现在我们要移动它，我尝试设置工作簿和工作表，但它会在这些分配中停下来，

当前，我的工作簿位于SharePoint的外部访问文件夹中。我想将母版表移到其他用户无权访问的SharePoint中其他位置的受保护的文件夹中。

我看到了类似的问题，但是该解决方案建议映射到网络驱动器-我们没有网络驱动器。有没有不映射到网络驱动器的解决方案？