将文件拖入Excel表格，以便在Sharepoint中加载。

要将文件拖入Excel表格并在Sharepoint中加载，您可以使用VBA代码来实现。下面是一个示例代码：

Sub LoadFilesFromSharepoint()
    Dim SharePointUrl As String
    Dim FilePath As String
    Dim wb As Workbook
    
    ' 设置Sharepoint URL和文件路径
    SharePointUrl = "https://your-sharepoint-url.com"
    FilePath = "C:\path\to\your\file.xlsx"
    
    ' 创建一个新的工作簿并打开文件
    Set wb = Workbooks.Add
    wb.SaveAs FilePath
    
    ' 将文件拖入Excel表格
    With wb.Sheets(1).QueryTables.Add(Connection:="TEXT;" & SharePointUrl & "/your-file.xlsx", Destination:=wb.Sheets(1).Range("A1"))
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .Refresh BackgroundQuery:=False
    End With
    
    ' 关闭查询表
    wb.Sheets(1).QueryTables(1).Delete
    
    ' 保存并关闭工作簿
    wb.Close SaveChanges:=True
    
    ' 释放对象
    Set wb = Nothing
End Sub

您需要将示例代码中的 SharePointUrl 和 FilePath 替换为您自己的Sharepoint URL和文件路径。

这段代码将创建一个新的工作簿，并将其保存到指定的文件路径。然后，它会使用 QueryTables.Add 方法将Sharepoint中的文件拖入Excel表格中。最后，它会保存并关闭工作簿。

请确保在运行代码之前已启用Microsoft Excel中的开发人员选项，并在“可信任的位置”中添加了Sharepoint URL。