然后我打開結(jié)算統(tǒng)計表格,發(fā)現(xiàn)是這個樣子的。 也就是說需要你一條條的點擊下載。 當(dāng)然我首先還是很聰明的,給網(wǎng)易云打電話,要總表。 然后 ,沒人接。 打了半天,沒人接。 暫時不吐槽,事情還是要做。 于是我開始一個個的下載。 這么多表格,其實其表頭是一樣的,如果能夠合并,就真萬幸了。 然后我開始找方法,有人說可以利用excel的宏編程,可惜,我這是wps。 還有別人開發(fā)好的工具,下載了幾個軟件,再被強制修改網(wǎng)頁,添加插件,強行安裝軟件之后,終于,我按照好了這個工具。 然后發(fā)現(xiàn),不能用。 最后,實在是沒招了,我想到了R語言中專門處理Excel數(shù)據(jù)的包。 然后終于順利的讀取全部的表格,并進(jìn)行了合并。 如果你也有需要合并excel表格的需求,不妨試一試這個包。 最后,貼上我的代碼,希望對大家有所幫助。 install.packages('xlsx') library('xlsx') filelist<>
MergeTable<> for(i in 2:length(filelist)) { data<> MergeTable<> } write.xlsx(MergeTable,'M.xls', sheetName='Sheet1', col.names=TRUE, row.names=TRUE, append=FALSE, showNA=TRUE, password=NULL) 如有任何問題歡迎大家加入WeGAP討論社區(qū) 掃描二維碼即可加入
|
|