如何使用 RODBC 或 RCurl 从 R 中受密码保护的 Sharepoint 2007 站点打开 Excel 2007 文件？

Question

我有兴趣使用 RODBC 在 R 2.11.1 中打开 Excel 2007 文件。 Excel 文件位于 MOSS2007 网站的共享文档页面中。我当前将 .xlsx 文件下载到我的硬盘，然后使用以下代码导入到 R：

library(RODBC)
con<-odbcConnectExcel2007("C:/file location/file.xlsx")
data<-sqlFetch(con, "worksheet name")
close(con)

当我在 中输入文档的 Web url 时odbcConnectExcel2007 连接时，会弹出一条错误消息：

ODBC Excel Driver Login Failed: Invalid internet Address.

后跟我的 R 控制台中的以下消息：

 ERROR: Could not SQLDriverConnect

您可以提供的任何见解将不胜感激。

谢谢！

---

**更新**

我尝试下载的网站受密码保护。我尝试了另一种方法，使用包 RCurl 中的方法“getUrl”：

x = getURL("http://website.com/file.xlsx", userpwd = "uname:pw" ）

我收到的错误是：

curlPerform(curl = curl, .opts = opts, .encoding = .encoding) 中的错误： 字符串中嵌入 nul: 'PK\003\004\024\0\006\0\b\0\0\0!\0dA»ï\001\0\0O\n\0\0\023\0Ò\001 [Content_Types].xml ∨\001(\0\002\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\

我不知道这是什么意思。任何帮助将不胜感激。谢谢！

Answer 1

两种解决方案对我有用。

1. 如果您不需要自动执行提取数据的脚本，您可以映射网络驱动器，指向要从中提取 Excel 文档的共享点文件夹。

2. 如果您需要自动化脚本以每隔几分钟提取 Excel 文件，我建议您在请求中发送身份验证凭据，以自动将文件保存到本地驱动器。从那里您可以将其读入 R 中以进行进一步的数据整理。

library("httr")   
library("openxlsx")
 
user <- <USERNAME>
password <- <PASSWORD>

url <- "https://sharepoint.company/file_to_obtain.xlsx"

httr::GET(url,
 authenticate(user, password, type="ntlm"),
 write_disk("C:/tempfile.xlsx", overwrite = TRUE))

df <- openxlsx::read.xlsx("C:/tempfile.xlsx")

您可以通过单击共享点位置并在文件结尾（xlsx、xlsb、xls...）后删除“?Web=1”来获取文件的正确 URL。用户名和密码通常是 Windows 凭据。它有助于将它们存储在密钥管理器中（例如：

library("keyring")
keyring::key_set_with_value(service = "Windows", username = "Key", password = <PASSWORD>) 

然后通过在某些情况下进行身份验证

authenticate(user, kreyring::key_get("Windows", "Key"), type="ntlm")

则可能足以通过。

authenticate(":", ":", type="ntlm")

，如果只需要您的 Windows 凭据并且代码从您的计算机运行，