代碼解讀
1、library(gdata)和library(WriteXLS)這兩句代碼用來引入第三方函數包，這兩個包具有read.xls和WriteXLS函數，可以分別執行讀取和寫入Excel的動作。
2、fileList<-dir()這句代碼列出了目錄內的所有文件，之后的for語句則是循環讀取文件，并將數據拼合到數據框orders中。如果目錄內有其他文件，則應當用通配符來過濾。
3、result<-aggregate(orders[,4], orders[c(2)],sum)，這句代碼用來執行分組匯總，其中orders[,4]代表匯總列（即Amount），orders[c(2)]代表分組列（即Client）。
4、read.xls和WriteXLS雖然來自于不同的包，但都支持data.frame數據類型，因此可以很好的配合起來。另外，read.xls函數可以自動識別Excel2003和Excel2007格式，使用起來非常方便。
5整段代碼都很簡潔，初學者可以輕松掌握。

注意事項：
1.版本
gdata和WriteXLS不是R語言自帶的庫函數，而是第三方包，因此需要額外下載安裝。另外，這兩個函數包都會用到Perl環境，因此挑選合適版本的Perl尤為重要。經過嘗試，當R語言的版本是2.15.0時，gdata最匹配的版本是2.13.3，WriteXLS的版本號則是3.5.0，但用最新的Perl環境與之配合時會出問題，需要使用舊一點的5.14.2版本才行，否則會報以下錯誤：
Error in xls2sep(xls, sheet, verbose = verbose, ..., method = method,  : 
 Intermediate file 'C:\Users\Thim\AppData\Local\Temp\RtmpMHvLZS\file224060624738.csv' missing!
2.性能
讀寫小文件沒問題，但讀寫稍大些的文件時會發現gdata和WriteXLS的性能極差（這也許是Perl的原因）,比如讀一個8列20萬行的Excel就需要8到10分鐘。如果特別關注性能，可以使用xlsx函數包。當然，這樣一來就無法支持Excel2003了。事實上，xlsx的性能并不比gdata強太多，真正要解決性能問題，還是應當將所有的Excel文件都轉為2007格式，并解壓出里面的xml文件，通過解析xml文件來讀取數據。
替代方案
對于R語言中存在的版本沖突和性能問題，我們也可以使用Python、集算器、Perl等語言來解決。和R語言一樣，它們都可以讀寫Excel文件并進行數據計算。下面簡單介紹集算器和Python的解決方案。
集算器已將訪問EXCEL的功能打入安裝包，無需單獨下載第三方包，支持讀寫Excel2003和Excel2007，對更老的版本以及Excel2010也支持。代碼如下：

集算器的性能也不錯，讀一個8列20萬行的Excel只需20到30秒。
Python的性能相當優異，但和R類似的是也要用第三方包。本來使用pandas包應當能很簡單地完成xls文件的讀寫任務，但在windows下一直沒有安裝成功（畢竟xls文件主要在windows下產生），最后用xlrd和xlwt3這兩個包配合才實現本算法，這兩個包只支持Excel2003，代碼也復雜了許多：
import xlwt3
import xlrd
from itertools import groupby
from operator import itemgetter
import os
dir="E:/ ordersData/"
fileList =os.listdir(dir)
rowList = []
for f in fileList:
    book=xlrd.open_workbook(dir+f)#循環打開只讀的workbook
    sheet=book.sheet_by_index(0)
    nrows = sheet.nrows
    ncols = sheet.ncols
    for i in range(1,nrows):
        row_data = sheet.row_values(i)
        rowList.append(row_data)#所有的記錄都追加到rowList里
rowList=sorted(rowList,key=lambda x:(x[1]))#分組前的排序
result=[]
for key, items in groupby(rowList, itemgetter(1)):#使用groupby函數分組
    value1=0
    for subItem in items:value1+=subItem[3]
    result.append([key,value1])#最后把匯總結果拼成二維數組
wBook=xlwt3.Workbook()#新建可寫的workbook
wSheet=wBook.add_sheet("sheet 1")
wSheet.write(0,0,"Client")
wSheet.write(0,1,"Sum")
for row in range(len(result)):#循環寫入數據
    wSheet.write(row+1,0,result[row][0])
   wSheet.write(row+1,1,result[row][1])
wBook.save(dir+"result.xls")#保存文件