尝试从 SharePoint URL 下载文件并打开它时出错

如何解决尝试从 SharePoint URL 下载文件并打开它时出错

我有一个半紧急的问题。

在工作中，我正在写一个宏。宏的功能总结如下：

1. 用户输入 SharePoint 链接
2. 宏从链接下载文件
3. 宏打开文件
4. 宏从下载的文件中复制数据，粘贴到原始文件中，并在原始文件中设置公式、格式等

问题出在第 2 步。宏尝试打开下载的文件后，出现以下错误：

“Excel 无法打开文件 'temp.xlsx'，因为文件格式或扩展名无效。请确认文件没有损坏并且文件扩展名与文件格式匹配。”

当我结束宏并尝试手动打开文件时，我得到同样的错误，所以问题出在文件本身上。

我尝试以不同的格式保存文件。当我下载为 .xlsm 时，Excel 会抛出相同的错误。当下载为 .xls 时，文件变为空白。如果下载为 .txt，文本只是我下载的文件的信息，而不是数据。

如果有人有其他方法可以从 Sharepoint 文件中获取数据而不是修复错误，那也太棒了！

以下是我的代码的第 1-3 步：

'Input Box + declarations
    Dim myValue As String
    myValue = InputBox("Enter Sharepoint Link")
    
'Declarations
    Dim i As Integer
    Dim strURL As String
    strURL = myValue
    Dim strSavePath As String
    Dim returnValue As Long
'userName is entered in a cell because different users may be running the macro,but we do not want to have to prompt the user to enter their username every time
    Dim userName As String
    userName = Sheets("Reference").Range("B4").Text
    Dim Path As String
    Dim R As Range
    Dim R2 As Range

'Set dynamic path and save
    strSavePath = "C:\Users\" & userName & "\OneDrive - Ingredion\Desktop\temp.xlsx"
    returnValue = URLDownloadToFile(0,strURL,strSavePath,0)

'open workbook and copy cells
    Workbooks.Open strSavePath```