解决OneDrive共享链接下载的.xlsx文件无法在R中打开的问题

问题根源 #

你下载的167KB文件并非真实Excel文件，而是OneDrive分享页面的跳转网页——直接用分享链接发起GET请求，只会获取到网页内容，而非目标文件本身。

解决步骤 #

• 获取真实下载链接
  打开同事分享的OneDrive文件页面，右键点击「下载」按钮，选择「复制链接地址」。确保链接末尾带有?download=1参数，这才是触发直接下载的真实地址，格式类似：

  https://xxx-my.sharepoint.com/personal/xxx/Documents/file.xlsx?download=1
  

• 修改R下载代码
  替换为真实下载链接，若文件需要企业账号权限，需添加NTLM认证（适合企业版OneDrive）：

  library(httr)
  # 替换为带?download=1的真实链接
  url <- "https://real_download_link_with_download_param.xlsx"
  # 企业账号认证下载
  response <- GET(url, 
                 write_disk("TEST_TEL.xlsx", overwrite = TRUE),
                 authenticate("你的企业账号", "密码", type = "ntlm"))
  

  若为公开共享文件，直接使用带?download=1的链接即可，无需认证。

• 验证文件并读取
  下载完成后确认文件大小与原文件一致，再用readxl包读取：

  library(readxl)
  df <- read_excel("TEST_TEL.xlsx")
  

• 长期自动化备选方案
  若需稳定长期自动化，可使用Microsoft Graph API获取文件，需先注册应用获取访问token：

  library(httr)
  token <- "你的访问令牌"
  file_id <- "目标文件的OneDrive ID"
  url <- paste0("https://graph.microsoft.com/v1.0/me/drive/items/", file_id, "/content")
  response <- GET(url, 
                 add_headers(Authorization = paste("Bearer", token)),
                 write_disk("TEST_TEL.xlsx", overwrite = TRUE))
  

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