问题描述
“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```
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)