从提取的 .zip 文件中读取 xls 文件时出错[重复]

Question

这个问题在这里已经有了答案：

readxl::read_xls 返回“libxls 错误：无法打开文件” （7 个回答）

上个月关闭。

我正在尝试从 url 下载 .zip 文件并提取 .xls 以读取它。

虽然下载 zip 文件并解压缩它是一项简单的任务，但我无法读取它，每次尝试读取 .xls 文件时，我都会收到以下错误消息：

错误：文件路径：.\\RtmpwNCJdK/Tab_Compl_CNT_1T21.xls libxls 错误：无法打开文件

# if(!require(readxl)){ install.packages("readxl") }

url <- "https://ftp.ibge.gov.br/Contas_Nacionais/Contas_Nacionais_Trimestrais/Tabelas_Completas/Tab_Compl_CNT.zip"

temp_ <- tempdir()

download.file( url = url,
               destfile = paste0(temp_,"/Tab_Compl_CNT.zip"),
               mode = "wb" )

unzip( zipfile=paste0(temp_,"/Tab_Compl_CNT.zip"), exdir = temp_ )

file <- readxl::read_excel( path = paste0(temp_,"/Tab_Compl_CNT_1T21.xls"), 
                            sheet = "Base Móvel", 
                            skip = 3 )  

为了确保该文件确实是一个 xls 文件，我运行：

readxl:::format_from_signature( paste0(temp_,"/Tab_Compl_CNT_1T21.xls") )

[1] "xls"

谢谢你的帮助！

Answer 1

我想我可以确认@r2evan 的诊断。 我解压缩文件，打开它并使用 OpenOffice 重新保存到另一个文件，然后能够使用readxl::read_excel()读取文件。

请注意，该文件在开头也有“有趣”的结构 - 分层/合并标签 - 您也必须处理，最简单的解决方案是跳过前 4 行并手动添加您自己的列名，尽管如果您愿意努力工作，所有这些问题 [除了您最初提出的不可读的问题] 都可以通过编程解决。

这个问题列出了相关的问题和潜在的解决方案，虽然简单的似乎不起作用：那里有一个程序化的解决方案（使用 OpenOffice 命令行工具），其他一切都是“打开它并用 Excel/OpenOffice 重新保存它”。

• gdata::read.xls()成功打开原始文件，然后点击“无效的多字节字符串”
• XLConnect::readWorksheetFromFile("Tab_Compl_CNT_1T21.xls") ：

(function (classes, fdef, mtable) 中的错误：无法为签名“workbook”、“missing”的函数“readWorksheet”找到继承的方法