以R图纸方式读取xlsb文件，并根据条件进行合并

我有许多xlsb文件，看起来像是多张图纸

文件1第1页

NA NA NA NA
NA 3  NA NA
A  B  C  D
23 12 24 23
.......

文件1第2页

NA NA NA 
NA 3  1  
NA 1  NA 
B  C  A   
23 12 21 
.....

每个文件有2个工作表，前2-3行中有些是垃圾，后面是列名A B C D，可以是任意顺序，或者有些列可能缺失，后面是数字数据

我想在R中读取所有xlsb，并希望有一个最终输出，如

file1.A file1.B file1.C file1.D file2.A
43      42       23         42    43
.................................

代码尝试了1个文件和只读工作表1需要1小时，但是我必须从非NA行开始读取，否则会抛出错误

 rm(list=ls())
start.time = Sys.time()
library(excel.link)
setwd("C://Users//LAB//Desktop//data//")
a = dir()
df<-xl.read.file(a[1],header=TRUE, top.left.cell="A4")
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken

rm（list=ls（））
start.time=Sys.time（）
图书馆（excel.link）
setwd（“C://Users//LAB//Desktop///”）
a=dir（）
dfexcel.link libraryxl.read.file函数，80 mb文件大约需要1小时，只能读取工作表1，我必须提到top.left.cell非NA值，否则它将无法工作，因此有时我必须从“A3”或“A4”读取，取决于文件到文件。请添加您迄今为止尝试过的代码。rm（list=ls（））start.time=Sys.time（）库（excel.link）setwd（“C://Users//LAB//Desktop////”）a=dir（）df@RahulKumarVij你应该更新你的帖子，而不是在commentsexcel.link libraryxl.read.file函数中发布，80 mb文件大约需要1小时，只能读取第一页，我必须提到top.left.cell非NA值，否则它将无法工作，因此，有时我必须从“A3”或“A4”中读取，取决于文件到文件。请添加您迄今为止尝试过的代码。rm（list=ls（））start.time=Sys.time（）library（excel.link）setwd（“C://Users//LAB//Desktop///”）a=dir（）df@RahulKumarVij你应该更新你的帖子，而不是在评论中发布