朋友的家人做生意，每日從各地分店處收集報表，然后回去匯總。由于不想用那種復雜的管理軟件，就叫他寫一個小工具。于是他找到了我，讓我想想辦法。
Python是個令人驚奇的工具，而不僅僅是一種語言。對比老牌的Perl，看似Python不是那么的精通 —— 對比Perl超快的文本處理速度和廣泛應用于Cgi程序的編寫歷史，以及目前大紅大紫的Ruby在Web開發上的病毒式蔓延，而比起靜態語言比如C\C++，虛擬機Java和C#來說，速度又成了問題。但是Python的實力可不容小視，NASA都用Python可不是吹的，況且，Python的學習難度比Perl小多了，剛學時讓我找到了以前QBASIC的感覺。
此程序具體要求如下：每日產生副表若干（如副表文件）。程序先核對附表的日期和銷售點。如果銷售點不同日期相同，便把不同副表的相同產品號的 “銷售數量”欄相加，填入總表“銷售數量”欄。將副表的“總利潤”欄相加填入總表的“總利潤”欄。其他副表信息復制到總表（備注除外,由用戶自行處理）。表頭的樣式如下：
啊哈，很簡單的表頭。其中需要操作的是“銷售數量”和“總利潤”，也就是把相同時間的報表相加。但是這樣有個嚴重問題！
必須要求，相同報表的產品名稱、貨號的順序不能出錯，各地要絕對統一，否則全部這樣照樣拷貝就會出錯！
讓我們分析一下思路：時間是關鍵。時間決定了哪些報表需要分門別類，生成哪一天的統計總表。數據結構上，用什么呢？簡單的list？不行，我嘗試過。應該使用map容器，把日期作為key，儲存的Value是個列表。程序先掃描所有的Excel文件獲取日期，然后把相同日期報表的COM文檔接口儲存起來，實現了分門別類。最后遍歷這個map容器，計算，生成每日的統計總表。代碼如下，經過測試正常。
?1
import?os;
?2import?sys;
?3import?time;
?4import?datetime;
?5#請先安裝對應著你自己的Python版本的PythonWin32
?6import?win32com.client;
?7
?8
?9mapper?=?{};
10
11app?=?win32com.client.Dispatch("Excel.Application");
12PipeOut?=?os.popen("dir?*.xls?/B");
13FileList?=?PipeOut.readlines();
14PipeOut?=?os.popen("cd");
15CurDic?=?PipeOut.readline();
16CurDic?=?CurDic[:-1]?+?"\\";#去處末尾的\n
17print?"當前工作目錄為"+CurDic;
18
19????#讀取每個文件的時間和儲存相應的COM接口
20
21for?filename?in?FileList:
22????filename?=?CurDic+filename[:-1];
23????print?filename;
24????Doc?=?app.Workbooks.Open(filename);
25????Sheet?=?Doc.Sheets(1);
26????Time?=?Sheet.Cells(2,5);
27????print?type(Time);
28????TimeKey?=?str(Time);
29????print?TimeKey;
30????if?mapper.has_key(TimeKey):
31????????mapper[TimeKey].append(Sheet);
32????else?:
33????????mapper[TimeKey]?=?[];
34????????mapper[TimeKey].append(Sheet);
35????#print?mapper;
36
37
38????#生成新的統計總表
39????
40????#開始處理mapper?每次從一個自表中讀取2x20個數據，然后和總表相加
41print?"-------------------------------------";
42Protetype?=?[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
43a?=?0;
44b?=?0;
45c?=?0;
46
47for?k,v?in?mapper.items():
48????print?"//////////////////////////////////"
49????a+=1;
50????Count?=?[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
51????Benefit?=?[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
52????Name?=?[u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u"",u""];
53????#print?Count;
54????#print?Benefit;
55????????#Total?=?app.Workbooks.Open(CurDic+"Template\\TotalTemplate.xls");
56????print?"How?manu?Sheets?in?this?List???",len(v);
57????for?sht?in?v:
58????????b+=1;
59????????_Count?=?sht.Range("C4:C23").Value;
60????????_Benefit?=?sht.Range("F4:F23").Value;
61????????_Name?=?sht.Range("B4:B23").Value;
62????????#print?_Count;
63????????#print?_Benefit;
64????????assert(len(_Count)?==?len(_Benefit));
65????????for?i?in?range(0,len(_Count)):
66????????????c+=1;
67????????????Count[i]?=?_Count[i][0]?+?Count[i];
68????????????Benefit[i]?=?_Benefit[i][0]?+?Benefit[i];
69????????????Name[i]?=?_Name[i][0];
70????????#以上作為儲存總表項的數據
71????Total?=?app.Workbooks.Open(CurDic+"Template\\TotalTemplate.xls");
72????TotalSheet?=?Total.Sheets(1);
73????_Time?=?k[:k.find("?")];
74????_Time?=?_Time.replace("/","-");
75????print?_Time;
76????print?Count;
77????print?Benefit;
78????????#TotalSheet.Cells(2,2).Value?=?_Time;
79????for?i?in?range(0,len(Count)):
80????????TotalSheet.Cells(4+i,3).Value?=?Count[i];#填充數量
81????????TotalSheet.Cells(4+i,6).Value?=?Benefit[i];#填充利潤
82????????TotalSheet.Cells(4+i,2).Value?=?Name[i];#填充貨物名稱
83
84????#保存總表
85????Total.SaveAs(CurDic+_Time+"統計總表.xls");
86????del?Count,Benefit;
87print?"++++++++++++++++++++++++++++"
88print?a,b,c;
89app.Quit();
90app?=?None;
91 使用方法，先安裝Python 2.4和PythonWin For 2.4。然后把這個腳本拷貝到分表的文件夾下，然后運行（調試），自動生成與日期相關的總表。效果圖如下：
最終解決思路的提示：其實這種方法只能在規模比較小的時候，因為這種脫離于總系統的處理效率實在非常低，而且Excel二進制文件，空表的占用就達15k，在未來有大量業務數據處理的話將是無法忍受的噩夢。所以，我建議這位商務人士分析一下他所使用的處理系統，用便宜的網絡線路構建從各地中心服務器系統，使用XML作為數據交換得媒介，在自己的服務器上您只需要使用簡單的SQL處理過程就可以了，而且數據的可靠度比平面Excel文檔高得多。
數據在這里下載，為了保險起見請不要使用中文的文件夾目錄。
posted on 2007-02-21 12:37
周波 閱讀(2667)
評論(2) 編輯 收藏 引用 所屬分類:
無庸技術 、
奇思妙想