根据需求读取对应的sheet1
综合来看，openxlsx的方法简单粗暴，而且经多名骨灰级玩家证明，罕有bug出现。乃R语言和Excel读取的绝对神器。不过笔者也发现，openxlsx包仅适用于.xlsx格式文件。前期的xls格式文件可能还需要前两种方法来读取。除了以上三种方法，还有类似的包如xlsx、readxl。此处依旧强推神器openxlsx。首先，.xlsx文件存储行数大大提升，从65536行数据提升到了104万条数据。其次，它十分便捷，函数所需参数较少。当然最后的最后，它可能需要的R的版本比较的新。
用 openxlsx包 写入Excel
#64位机下，.xls和.xlsx文件用相同方法library(RODBC)
con <- odbcConnectExcel2007("D:/R/RODBC.xlsx") #64位机下方法
sqlTables(con) #查看该xlsx文件中有哪些表
# TABLE_CAT TABLE_SCHEM TABLE_NAME TABLE_TYPE REMARKS
# 1 D:\\R\\RODBC.xlsx<NA> 商品信息$ SYSTEM TABLE<NA>
# 2 D:\\R\\RODBC.xlsx<NA> 补充说明$ SYSTEM TABLE<NA>
# 3 D:\\R\\RODBC.xlsx<NA> 销售信息$ SYSTEM TABLE<NA>
table_test <- sqlFetch(con,"销售信息")
table_test
odbcClose(con)
首先，导入R语言需要加载xlsx包，没有安装这个包的，请用下面的代码进行在线安装：install.packages("xlsx")选择China的任意一个镜像站点，它会自动安装其他所需的依赖包安装好xlsx包后，接下来导入存放在“C:\Users\HWT\Desktop”路径下的“test.xlsx”文件，导入这个文件的代码如下：library(xlsx)read.xlsx2(file="C:\\Users\\HWT\\Desktop\\test.xlsx",sheetIndex=1)我们上面的代码只是把test.xlsx导入了R语言，并没有把它赋给R语言里的某个对象，用下面的代码把数据赋给对象Mydata:Mydata<-read.xlsx2(file="C:\\Users\\HWT\\Desktop\\test.xlsx",sheetIndex=1)那么如何查看Mydata里面的数据呢？只需要输入“Mydata”即可：接下来教大家导入xls格式的数据，其实这个很简单，只要把前面代码的xlsx改为xls就可以了：read.xlsx2(file="C:\\Users\\HWT\\Desktop\\test.xls",sheetIndex=1)
