 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期五 三月 21, 2003 11:05 am 文章主題: VFP技巧之1 |
 |
|
在VFP中全面控制Excel
( 作者: 焦贊康 )
VFP和Excel都可以用來進行處理資料庫表格，如果巧妙地將二者的優點結合起來，將會大大方便我們的工作。比如我們可以利用VFP進行處理資料，而利用Excel的預覽列印功能進行報表列印。這就需要我們在VFP中直接來控制Excel。下面就在開發VFP應用專案時對Excel的控制作一下介紹：
1．創建Excel物件
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．設置第3個工作表爲啟動工作表
eole.Worksheets(″sheet3″).Activate
4．打開指定工作簿
eole.Workbooks.Open(″c:\temp\ll.xls″)
5．顯示Excel視窗
eole.visible=.t.
6．更改Excel標題欄
eole.Caption=″VFP應用程式調用Microsoft Excel″
7．給單格賦值
eole.cells(1,4).value=XM(XM爲資料庫欄位名)
8．設置指定列的寬度(單位：字元個數)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．設置指定行的高度(單位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(設定行高爲1釐米，1磅=0.035釐米)
10．在第18行之前插入分頁符
eole.Worksheets(″Sheet1″).Rows(1 .PageBreak=1
11．在第4列之前刪除分頁符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定邊框線寬度(Borders參數如下)
ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3
13．設置四個邊框線條的類型
eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1
(其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)
14．設置頁眉
eole.ActiveSheet.PageSetup.CenterHeader=″報表1″
15．設置頁腳
eole.ActiveSheet.PageSetup.CenterFooter=″第＆P頁″
16．設置頁眉到頂端邊距爲2釐米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．設置頁腳到底邊距爲3釐米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．設置頂邊距爲2釐米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．設置底邊距爲4釐米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．設置左邊距爲2釐米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．設置右邊距爲2釐米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．設置頁面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．設置頁面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．設置頁面紙張大小(1－窄行8杄5𤤳11 39－寬行14𤤳11)
eole.ActiveSheet.PageSetup.PaperSize=1
25．列印單格網線
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷貝整個工作表
eole.ActiveSheet.UsedRange.Copy
27．拷貝指定區域
eole.ActiveSheet.Range(″A1:E2″).Copy
28．粘貼
eole.WorkSheet(″Sheet2″).Range(″A1″).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．設置字體
eole.ActiveSheet.Cells(2,1).Font.Name=″黑體″
32．設置字體大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．設置字體爲斜體
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．設置整列字體爲粗體
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除單格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．列印預覽工作表
eole.ActiveSheet.PrintPreview
37．列印輸出工作表
eole.ActiveSheet.PrintOut
38．工作表另爲
eole.ActiveWorkbook.SaveAs(″c:\temp\22.xls″)
39．放棄存檔
eole.ActiveWorkbook.saved=.t.
40．關閉工作簿
eole.Workbooks.close
41．退出Excel
eole.quit |
|
| 回頂端 |
|
 |
盧明貴
註冊時間: 2003-04-08
文章: 5
來自: 台灣
第 2 樓
|
| 發表於: 星期二 四月 08, 2003 3:23 pm 文章主題: 報表,Excel樞紐分析 |
|
|
| 代碼: |
***這是我極力推薦的高水準報表,Excel樞紐分析...盧明貴
***�}啟記憶體暫存資料表
create cursor temp00 (客戶類別 c(10),到期年月 c(7),到期日 i,數量 i)
*填入值
insert into temp00 values ('一般戶','2002-07',1,1)
insert into temp00 values ('一般戶','2002-08',1,1)
insert into temp00 values ('一般戶','2002-08',14,1)
insert into temp00 values ('一般戶','2002-08',15,1)
insert into temp00 values ('一般戶','2002-09',1,1)
insert into temp00 values ('一般戶','2002-09',2,1)
insert into temp00 values ('一般戶','2002-09',5,1)
insert into temp00 values ('一般戶','2002-09',10,1)
insert into temp00 values ('一般戶','2002-09',12,1)
insert into temp00 values ('一般戶','2002-09',15,1)
insert into temp00 values ('一般戶','2002-09',16,1)
insert into temp00 values ('一般戶','2002-09',17,1)
insert into temp00 values ('一般戶','2002-09',18,1)
insert into temp00 values ('一般戶','2002-09',20,1)
insert into temp00 values ('一般戶','2002-09',21,1)
insert into temp00 values ('一般戶','2002-09',22,1)
insert into temp00 values ('一般戶','2002-09',23,1)
insert into temp00 values ('一般戶','2002-09',30,1)
insert into temp00 values ('一般戶','2002-10',1,1)
insert into temp00 values ('一般戶','2002-10',2,1)
insert into temp00 values ('一般戶','2002-10',4,1)
insert into temp00 values ('一般戶','2002-10',5,1)
insert into temp00 values ('一般戶','2002-10',6,1)
insert into temp00 values ('一般戶','2002-10',7,1)
insert into temp00 values ('一般戶','2002-10',8,1)
insert into temp00 values ('一般戶','2002-10',9,1)
insert into temp00 values ('一般戶','2002-10',10,1)
insert into temp00 values ('一般戶','2002-10',11,1)
insert into temp00 values ('一般戶','2002-10',12,1)
insert into temp00 values ('一般戶','2002-10',13,1)
insert into temp00 values ('一般戶','2002-10',14,1)
insert into temp00 values ('一般戶','2002-10',15,1)
insert into temp00 values ('一般戶','2002-10',16,1)
insert into temp00 values ('一般戶','2002-10',17,1)
insert into temp00 values ('一般戶','2002-10',18,1)
insert into temp00 values ('一般戶','2002-10',19,1)
insert into temp00 values ('一般戶','2002-10',20,1)
insert into temp00 values ('一般戶','2002-10',21,1)
insert into temp00 values ('一般戶','2002-10',22,1)
insert into temp00 values ('一般戶','2002-10',23,1)
insert into temp00 values ('一般戶','2002-10',24,1)
insert into temp00 values ('一般戶','2002-10',25,1)
insert into temp00 values ('一般戶','2002-10',26,1)
insert into temp00 values ('一般戶','2002-10',27,1)
insert into temp00 values ('一般戶','2002-10',30,1)
insert into temp00 values ('一般戶','2002-10',31,1)
insert into temp00 values ('一般戶','2002-11',1,1)
insert into temp00 values ('一般戶','2002-11',2,1)
insert into temp00 values ('一般戶','2002-11',3,1)
insert into temp00 values ('一般戶','2002-11',4,1)
insert into temp00 values ('一般戶','2002-11',5,1)
insert into temp00 values ('一般戶','2002-11',6,1)
insert into temp00 values ('一般戶','2002-11',7,1)
insert into temp00 values ('一般戶','2002-11',8,1)
insert into temp00 values ('一般戶','2002-11',9,1)
insert into temp00 values ('一般戶','2002-11',10,1)
insert into temp00 values ('一般戶','2002-11',11,1)
insert into temp00 values ('一般戶','2002-11',12,1)
insert into temp00 values ('一般戶','2002-11',13,1)
insert into temp00 values ('一般戶','2002-11',14,1)
insert into temp00 values ('一般戶','2002-11',15,1)
insert into temp00 values ('一般戶','2002-11',16,1)
insert into temp00 values ('一般戶','2002-11',17,1)
insert into temp00 values ('一般戶','2002-11',18,1)
insert into temp00 values ('一般戶','2002-11',19,1)
insert into temp00 values ('一般戶','2002-11',20,1)
insert into temp00 values ('一般戶','2002-11',21,1)
insert into temp00 values ('一般戶','2002-11',22,1)
insert into temp00 values ('一般戶','2002-11',23,1)
insert into temp00 values ('一般戶','2002-11',24,1)
insert into temp00 values ('一般戶','2002-11',25,1)
insert into temp00 values ('一般戶','2002-11',26,1)
insert into temp00 values ('一般戶','2002-11',27,1)
insert into temp00 values ('一般戶','2002-11',28,1)
insert into temp00 values ('一般戶','2002-11',29,1)
insert into temp00 values ('一般戶','2002-11',30,1)
insert into temp00 values ('一般戶','2002-12',1,1)
insert into temp00 values ('一般戶','2002-12',2,1)
insert into temp00 values ('一般戶','2002-12',3,1)
insert into temp00 values ('一般戶','2002-12',4,1)
insert into temp00 values ('一般戶','2002-12',5,1)
insert into temp00 values ('一般戶','2002-12',6,1)
insert into temp00 values ('一般戶','2002-12',7,1)
insert into temp00 values ('一般戶','2002-12',8,1)
insert into temp00 values ('一般戶','2002-12',9,1)
insert into temp00 values ('一般戶','2002-12',10,1)
insert into temp00 values ('一般戶','2002-12',11,1)
insert into temp00 values ('一般戶','2002-12',12,1)
insert into temp00 values ('一般戶','2002-12',13,1)
insert into temp00 values ('一般戶','2002-12',14,1)
insert into temp00 values ('一般戶','2002-12',15,1)
insert into temp00 values ('一般戶','2002-12',16,1)
insert into temp00 values ('一般戶','2002-12',17,1)
insert into temp00 values ('一般戶','2002-12',18,1)
insert into temp00 values ('一般戶','2002-12',19,1)
insert into temp00 values ('一般戶','2002-12',20,1)
insert into temp00 values ('一般戶','2002-12',21,1)
insert into temp00 values ('一般戶','2002-12',22,1)
insert into temp00 values ('一般戶','2002-12',23,1)
insert into temp00 values ('一般戶','2002-12',24,1)
insert into temp00 values ('一般戶','2002-12',25,1)
insert into temp00 values ('一般戶','2002-12',26,1)
insert into temp00 values ('一般戶','2002-12',27,1)
insert into temp00 values ('一般戶','2002-12',28,1)
insert into temp00 values ('一般戶','2002-12',29,1)
insert into temp00 values ('一般戶','2002-12',30,1)
insert into temp00 values ('一般戶','2002-12',31,1)
insert into temp00 values ('一般戶','2003-01',1,1)
insert into temp00 values ('一般戶','2003-01',2,1)
insert into temp00 values ('一般戶','2003-01',3,1)
insert into temp00 values ('一般戶','2003-01',4,1)
insert into temp00 values ('一般戶','2003-01',5,1)
insert into temp00 values ('一般戶','2003-01',6,1)
insert into temp00 values ('一般戶','2003-01',7,1)
insert into temp00 values ('一般戶','2003-01',8,1)
insert into temp00 values ('一般戶','2003-01',9,1)
insert into temp00 values ('一般戶','2003-01',10,1)
insert into temp00 values ('一般戶','2003-01',11,1)
insert into temp00 values ('一般戶','2003-01',12,1)
insert into temp00 values ('一般戶','2003-01',13,1)
insert into temp00 values ('一般戶','2003-01',14,1)
insert into temp00 values ('一般戶','2003-01',15,1)
insert into temp00 values ('一般戶','2003-01',16,1)
insert into temp00 values ('一般戶','2003-01',17,1)
insert into temp00 values ('一般戶','2003-01',18,1)
insert into temp00 values ('一般戶','2003-01',19,1)
insert into temp00 values ('一般戶','2003-01',20,1)
insert into temp00 values ('一般戶','2003-01',21,1)
insert into temp00 values ('一般戶','2003-01',22,1)
insert into temp00 values ('一般戶','2003-01',23,1)
insert into temp00 values ('一般戶','2003-01',24,1)
insert into temp00 values ('一般戶','2003-01',25,1)
insert into temp00 values ('一般戶','2003-01',26,1)
insert into temp00 values ('一般戶','2003-01',27,1)
insert into temp00 values ('一般戶','2003-01',28,1)
insert into temp00 values ('一般戶','2003-01',29,1)
insert into temp00 values ('一般戶','2003-01',30,1)
insert into temp00 values ('一般戶','2003-01',31,1)
insert into temp00 values ('一般戶','2003-02',1,1)
insert into temp00 values ('一般戶','2003-02',2,1)
insert into temp00 values ('一般戶','2003-02',3,1)
insert into temp00 values ('一般戶','2003-02',4,1)
insert into temp00 values ('一般戶','2003-02',5,1)
insert into temp00 values ('一般戶','2003-02',6,1)
insert into temp00 values ('一般戶','2003-02',7,1)
insert into temp00 values ('一般戶','2003-02',8,1)
insert into temp00 values ('一般戶','2003-02',9,1)
insert into temp00 values ('一般戶','2003-02',10,1)
insert into temp00 values ('一般戶','2003-02',11,1)
insert into temp00 values ('一般戶','2003-02',12,1)
insert into temp00 values ('一般戶','2003-02',13,1)
insert into temp00 values ('一般戶','2003-02',14,1)
insert into temp00 values ('一般戶','2003-02',15,1)
insert into temp00 values ('一般戶','2003-02',16,1)
insert into temp00 values ('一般戶','2003-02',17,1)
insert into temp00 values ('一般戶','2003-02',18,1)
insert into temp00 values ('一般戶','2003-02',19,1)
insert into temp00 values ('一般戶','2003-02',20,1)
insert into temp00 values ('一般戶','2003-02',21,1)
insert into temp00 values ('一般戶','2003-02',22,1)
insert into temp00 values ('一般戶','2003-02',23,1)
insert into temp00 values ('一般戶','2003-02',24,1)
insert into temp00 values ('一般戶','2003-02',25,1)
insert into temp00 values ('一般戶','2003-02',26,1)
insert into temp00 values ('一般戶','2003-02',27,1)
insert into temp00 values ('一般戶','2003-02',28,1)
insert into temp00 values ('一般戶','2003-03',1,1)
insert into temp00 values ('一般戶','2003-03',2,1)
insert into temp00 values ('一般戶','2003-03',3,1)
insert into temp00 values ('一般戶','2003-03',4,1)
insert into temp00 values ('一般戶','2003-03',5,1)
insert into temp00 values ('一般戶','2003-03',6,1)
insert into temp00 values ('一般戶','2003-03',7,1)
insert into temp00 values ('一般戶','2003-03',8,1)
insert into temp00 values ('一般戶','2003-03',9,1)
insert into temp00 values ('一般戶','2003-03',10,1)
insert into temp00 values ('一般戶','2003-03',11,1)
insert into temp00 values ('一般戶','2003-03',12,1)
insert into temp00 values ('一般戶','2003-03',13,1)
insert into temp00 values ('一般戶','2003-03',14,1)
insert into temp00 values ('一般戶','2003-03',15,1)
insert into temp00 values ('一般戶','2003-03',16,1)
insert into temp00 values ('一般戶','2003-03',17,1)
insert into temp00 values ('一般戶','2003-03',18,1)
insert into temp00 values ('一般戶','2003-03',19,1)
insert into temp00 values ('一般戶','2003-03',20,1)
insert into temp00 values ('一般戶','2003-03',21,1)
insert into temp00 values ('一般戶','2003-03',22,1)
insert into temp00 values ('一般戶','2003-03',23,1)
insert into temp00 values ('一般戶','2003-03',24,1)
insert into temp00 values ('一般戶','2003-03',25,1)
insert into temp00 values ('一般戶','2003-03',26,1)
insert into temp00 values ('一般戶','2003-03',27,1)
insert into temp00 values ('一般戶','2003-03',28,1)
insert into temp00 values ('一般戶','2003-03',29,1)
insert into temp00 values ('一般戶','2003-03',30,1)
insert into temp00 values ('一般戶','2003-03',31,1)
insert into temp00 values ('一般戶','2003-04',1,1)
insert into temp00 values ('一般戶','2003-04',2,1)
insert into temp00 values ('一般戶','2003-04',3,1)
insert into temp00 values ('一般戶','2003-04',4,1)
insert into temp00 values ('一般戶','2003-04',5,1)
insert into temp00 values ('一般戶','2003-04',6,1)
insert into temp00 values ('一般戶','2003-04',7,1)
insert into temp00 values ('一般戶','2003-04',8,1)
insert into temp00 values ('一般戶','2003-04',9,1)
insert into temp00 values ('一般戶','2003-04',10,1)
insert into temp00 values ('一般戶','2003-04',11,1)
insert into temp00 values ('一般戶','2003-04',12,1)
insert into temp00 values ('一般戶','2003-04',13,1)
insert into temp00 values ('一般戶','2003-04',14,1)
insert into temp00 values ('一般戶','2003-04',15,1)
insert into temp00 values ('一般戶','2003-04',16,1)
insert into temp00 values ('一般戶','2003-04',17,1)
insert into temp00 values ('一般戶','2003-04',18,1)
insert into temp00 values ('一般戶','2003-04',19,1)
insert into temp00 values ('一般戶','2003-04',20,1)
insert into temp00 values ('一般戶','2003-04',21,1)
insert into temp00 values ('一般戶','2003-04',22,1)
insert into temp00 values ('一般戶','2003-04',23,1)
insert into temp00 values ('一般戶','2003-04',24,1)
insert into temp00 values ('一般戶','2003-04',25,1)
insert into temp00 values ('一般戶','2003-04',26,1)
insert into temp00 values ('一般戶','2003-04',27,1)
insert into temp00 values ('一般戶','2003-04',28,1)
insert into temp00 values ('一般戶','2003-04',29,1)
insert into temp00 values ('一般戶','2003-04',30,1)
insert into temp00 values ('一般戶','2003-05',1,1)
insert into temp00 values ('一般戶','2003-05',2,1)
insert into temp00 values ('一般戶','2003-05',3,1)
insert into temp00 values ('一般戶','2003-05',4,1)
insert into temp00 values ('一般戶','2003-05',5,1)
insert into temp00 values ('一般戶','2003-05',6,1)
insert into temp00 values ('一般戶','2003-05',7,1)
insert into temp00 values ('一般戶','2003-05',8,1)
insert into temp00 values ('一般戶','2003-05',9,1)
insert into temp00 values ('一般戶','2003-05',10,1)
insert into temp00 values ('一般戶','2003-05',11,1)
insert into temp00 values ('一般戶','2003-05',12,1)
insert into temp00 values ('一般戶','2003-05',13,1)
insert into temp00 values ('一般戶','2003-05',14,1)
insert into temp00 values ('一般戶','2003-05',15,1)
insert into temp00 values ('一般戶','2003-05',16,1)
insert into temp00 values ('一般戶','2003-05',17,1)
insert into temp00 values ('一般戶','2003-05',18,1)
insert into temp00 values ('一般戶','2003-05',19,1)
insert into temp00 values ('一般戶','2003-05',20,1)
insert into temp00 values ('一般戶','2003-05',21,1)
insert into temp00 values ('一般戶','2003-05',22,1)
insert into temp00 values ('一般戶','2003-05',23,1)
insert into temp00 values ('一般戶','2003-05',24,1)
insert into temp00 values ('一般戶','2003-05',25,1)
insert into temp00 values ('一般戶','2003-05',26,1)
insert into temp00 values ('一般戶','2003-05',27,1)
insert into temp00 values ('一般戶','2003-05',29,1)
insert into temp00 values ('一般戶','2003-05',31,1)
insert into temp00 values ('一般戶','2003-06',1,1)
insert into temp00 values ('一般戶','2003-06',2,1)
insert into temp00 values ('一般戶','2003-06',3,1)
insert into temp00 values ('一般戶','2003-06',4,1)
insert into temp00 values ('一般戶','2003-06',5,1)
insert into temp00 values ('一般戶','2003-06',6,1)
insert into temp00 values ('一般戶','2003-06',7,1)
insert into temp00 values ('一般戶','2003-06',8,1)
insert into temp00 values ('一般戶','2003-06',9,1)
insert into temp00 values ('一般戶','2003-06',10,1)
insert into temp00 values ('一般戶','2003-06',11,1)
insert into temp00 values ('一般戶','2003-06',12,1)
insert into temp00 values ('一般戶','2003-06',13,1)
insert into temp00 values ('一般戶','2003-06',14,1)
insert into temp00 values ('一般戶','2003-06',15,1)
insert into temp00 values ('一般戶','2003-06',16,1)
insert into temp00 values ('一般戶','2003-06',17,1)
insert into temp00 values ('一般戶','2003-06',18,1)
insert into temp00 values ('一般戶','2003-06',19,1)
insert into temp00 values ('一般戶','2003-06',20,1)
insert into temp00 values ('一般戶','2003-06',21,1)
insert into temp00 values ('一般戶','2003-06',22,1)
insert into temp00 values ('一般戶','2003-06',23,1)
insert into temp00 values ('一般戶','2003-06',24,1)
insert into temp00 values ('一般戶','2003-06',25,1)
insert into temp00 values ('一般戶','2003-06',26,1)
insert into temp00 values ('一般戶','2003-06',27,1)
insert into temp00 values ('一般戶','2003-06',28,1)
insert into temp00 values ('一般戶','2003-06',29,1)
insert into temp00 values ('一般戶','2003-06',30,1)
insert into temp00 values ('一般戶','2003-07',1,1)
insert into temp00 values ('一般戶','2003-07',2,1)
insert into temp00 values ('一般戶','2003-07',3,1)
insert into temp00 values ('一般戶','2003-07',4,1)
insert into temp00 values ('一般戶','2003-07',5,1)
insert into temp00 values ('一般戶','2003-07',6,1)
insert into temp00 values ('一般戶','2003-07',8,1)
insert into temp00 values ('一般戶','2003-07',9,1)
insert into temp00 values ('一般戶','2003-07',10,1)
insert into temp00 values ('一般戶','2003-07',11,1)
insert into temp00 values ('一般戶','2003-07',12,1)
insert into temp00 values ('一般戶','2003-07',13,1)
insert into temp00 values ('一般戶','2003-07',14,1)
insert into temp00 values ('一般戶','2003-07',15,1)
insert into temp00 values ('一般戶','2003-07',16,1)
insert into temp00 values ('一般戶','2003-07',17,1)
insert into temp00 values ('一般戶','2003-07',18,1)
insert into temp00 values ('一般戶','2003-07',19,1)
insert into temp00 values ('一般戶','2003-07',20,1)
insert into temp00 values ('一般戶','2003-07',21,1)
insert into temp00 values ('一般戶','2003-07',22,1)
insert into temp00 values ('一般戶','2003-07',23,1)
insert into temp00 values ('一般戶','2003-07',24,1)
insert into temp00 values ('一般戶','2003-07',25,1)
insert into temp00 values ('一般戶','2003-07',26,1)
insert into temp00 values ('一般戶','2003-07',27,1)
insert into temp00 values ('一般戶','2003-07',28,1)
insert into temp00 values ('一般戶','2003-07',29,1)
insert into temp00 values ('一般戶','2003-07',30,1)
insert into temp00 values ('一般戶','2003-07',31,1)
insert into temp00 values ('一般戶','2003-08',1,1)
insert into temp00 values ('一般戶','2003-08',2,1)
insert into temp00 values ('一般戶','2003-08',3,1)
insert into temp00 values ('一般戶','2003-08',4,1)
insert into temp00 values ('一般戶','2003-08',5,1)
insert into temp00 values ('一般戶','2003-08',7,1)
insert into temp00 values ('一般戶','2003-08',8,1)
insert into temp00 values ('一般戶','2003-08',9,1)
insert into temp00 values ('一般戶','2003-08',10,1)
insert into temp00 values ('一般戶','2003-08',11,1)
insert into temp00 values ('一般戶','2003-08',12,1)
insert into temp00 values ('一般戶','2003-08',13,1)
insert into temp00 values ('一般戶','2003-08',14,1)
insert into temp00 values ('一般戶','2003-08',15,1)
insert into temp00 values ('一般戶','2003-08',16,1)
insert into temp00 values ('一般戶','2003-08',17,1)
insert into temp00 values ('一般戶','2003-08',18,1)
insert into temp00 values ('一般戶','2003-08',19,1)
insert into temp00 values ('一般戶','2003-08',20,1)
insert into temp00 values ('一般戶','2003-08',21,1)
insert into temp00 values ('一般戶','2003-08',22,1)
insert into temp00 values ('一般戶','2003-08',24,1)
insert into temp00 values ('一般戶','2003-08',25,1)
insert into temp00 values ('一般戶','2003-08',27,1)
insert into temp00 values ('一般戶','2003-08',29,1)
insert into temp00 values ('一般戶','2003-08',30,1)
insert into temp00 values ('一般戶','2003-08',31,1)
insert into temp00 values ('一般戶','2003-09',1,1)
insert into temp00 values ('一般戶','2003-09',2,1)
insert into temp00 values ('一般戶','2003-09',3,1)
insert into temp00 values ('一般戶','2003-09',4,1)
insert into temp00 values ('一般戶','2003-09',5,1)
insert into temp00 values ('一般戶','2003-09',6,1)
insert into temp00 values ('一般戶','2003-09',7,1)
insert into temp00 values ('一般戶','2003-09',8,1)
insert into temp00 values ('一般戶','2003-09',9,1)
insert into temp00 values ('一般戶','2003-09',10,1)
insert into temp00 values ('一般戶','2003-09',11,1)
insert into temp00 values ('一般戶','2003-09',12,1)
insert into temp00 values ('一般戶','2003-09',13,1)
insert into temp00 values ('一般戶','2003-09',14,1)
insert into temp00 values ('一般戶','2003-09',15,1)
insert into temp00 values ('一般戶','2003-09',16,1)
insert into temp00 values ('一般戶','2003-09',17,1)
insert into temp00 values ('一般戶','2003-09',19,1)
insert into temp00 values ('一般戶','2003-09',20,1)
insert into temp00 values ('一般戶','2003-09',21,1)
insert into temp00 values ('一般戶','2003-09',22,1)
insert into temp00 values ('一般戶','2003-09',23,1)
insert into temp00 values ('一般戶','2003-09',24,1)
insert into temp00 values ('一般戶','2003-09',25,1)
insert into temp00 values ('一般戶','2003-09',26,1)
insert into temp00 values ('一般戶','2003-09',27,1)
insert into temp00 values ('一般戶','2003-09',28,1)
insert into temp00 values ('一般戶','2003-09',29,1)
insert into temp00 values ('一般戶','2003-10',1,1)
insert into temp00 values ('一般戶','2003-10',2,1)
insert into temp00 values ('一般戶','2003-10',3,1)
insert into temp00 values ('一般戶','2003-10',4,1)
insert into temp00 values ('一般戶','2003-10',5,1)
insert into temp00 values ('一般戶','2003-10',6,1)
insert into temp00 values ('一般戶','2003-10',7,1)
insert into temp00 values ('一般戶','2003-10',8,1)
insert into temp00 values ('一般戶','2003-10',9,1)
insert into temp00 values ('一般戶','2003-10',10,1)
insert into temp00 values ('一般戶','2003-10',11,1)
insert into temp00 values ('一般戶','2003-10',12,1)
insert into temp00 values ('一般戶','2003-10',14,1)
insert into temp00 values ('一般戶','2003-10',15,1)
insert into temp00 values ('一般戶','2003-10',16,1)
insert into temp00 values ('一般戶','2003-10',17,1)
insert into temp00 values ('一般戶','2003-10',19,1)
insert into temp00 values ('一般戶','2003-10',20,1)
insert into temp00 values ('一般戶','2003-10',21,1)
insert into temp00 values ('一般戶','2003-10',23,1)
insert into temp00 values ('一般戶','2003-10',24,1)
insert into temp00 values ('一般戶','2003-10',25,1)
insert into temp00 values ('一般戶','2003-10',26,1)
insert into temp00 values ('一般戶','2003-10',27,1)
insert into temp00 values ('一般戶','2003-10',28,1)
insert into temp00 values ('一般戶','2003-10',29,1)
insert into temp00 values ('一般戶','2003-10',31,1)
insert into temp00 values ('一般戶','2003-11',1,1)
insert into temp00 values ('一般戶','2003-11',2,1)
insert into temp00 values ('一般戶','2003-11',4,1)
insert into temp00 values ('一般戶','2003-11',5,1)
insert into temp00 values ('一般戶','2003-11',6,1)
insert into temp00 values ('一般戶','2003-11',7,1)
insert into temp00 values ('一般戶','2003-11',8,1)
insert into temp00 values ('一般戶','2003-11',9,1)
insert into temp00 values ('一般戶','2003-11',10,1)
insert into temp00 values ('一般戶','2003-11',11,1)
insert into temp00 values ('一般戶','2003-11',13,1)
insert into temp00 values ('一般戶','2003-11',15,1)
insert into temp00 values ('一般戶','2003-11',16,1)
insert into temp00 values ('一般戶','2003-11',17,1)
insert into temp00 values ('一般戶','2003-11',18,1)
insert into temp00 values ('一般戶','2003-11',19,1)
insert into temp00 values ('一般戶','2003-11',23,1)
insert into temp00 values ('一般戶','2003-11',24,1)
insert into temp00 values ('一般戶','2003-11',25,1)
insert into temp00 values ('一般戶','2003-11',26,1)
insert into temp00 values ('一般戶','2003-11',27,1)
insert into temp00 values ('一般戶','2003-12',1,1)
insert into temp00 values ('一般戶','2003-12',2,1)
insert into temp00 values ('一般戶','2003-12',18,1)
insert into temp00 values ('大樓戶','2002-08',1,1)
insert into temp00 values ('大樓戶','2002-09',1,1)
insert into temp00 values ('大樓戶','2002-09',13,1)
insert into temp00 values ('大樓戶','2002-09',19,1)
insert into temp00 values ('大樓戶','2002-10',1,1)
insert into temp00 values ('大樓戶','2002-10',4,1)
insert into temp00 values ('大樓戶','2002-10',6,1)
insert into temp00 values ('大樓戶','2002-10',11,1)
insert into temp00 values ('大樓戶','2002-10',13,1)
insert into temp00 values ('大樓戶','2002-10',14,1)
insert into temp00 values ('大樓戶','2002-10',15,1)
insert into temp00 values ('大樓戶','2002-10',17,1)
insert into temp00 values ('大樓戶','2002-10',18,1)
insert into temp00 values ('大樓戶','2002-10',21,1)
insert into temp00 values ('大樓戶','2002-10',22,1)
insert into temp00 values ('大樓戶','2002-10',23,1)
insert into temp00 values ('大樓戶','2002-10',24,1)
insert into temp00 values ('大樓戶','2002-10',25,1)
insert into temp00 values ('大樓戶','2002-10',28,1)
insert into temp00 values ('大樓戶','2002-10',31,1)
insert into temp00 values ('大樓戶','2002-11',1,1)
insert into temp00 values ('大樓戶','2002-11',2,1)
insert into temp00 values ('大樓戶','2002-11',3,1)
insert into temp00 values ('大樓戶','2002-11',4,1)
insert into temp00 values ('大樓戶','2002-11',5,1)
insert into temp00 values ('大樓戶','2002-11',6,1)
insert into temp00 values ('大樓戶','2002-11',7,1)
insert into temp00 values ('大樓戶','2002-11',8,1)
insert into temp00 values ('大樓戶','2002-11',9,1)
insert into temp00 values ('大樓戶','2002-11',10,1)
insert into temp00 values ('大樓戶','2002-11',11,1)
insert into temp00 values ('大樓戶','2002-11',12,1)
insert into temp00 values ('大樓戶','2002-11',13,1)
insert into temp00 values ('大樓戶','2002-11',14,1)
insert into temp00 values ('大樓戶','2002-11',15,1)
insert into temp00 values ('大樓戶','2002-11',16,1)
insert into temp00 values ('大樓戶','2002-11',17,1)
insert into temp00 values ('大樓戶','2002-11',18,1)
insert into temp00 values ('大樓戶','2002-11',19,1)
insert into temp00 values ('大樓戶','2002-11',20,1)
insert into temp00 values ('大樓戶','2002-11',21,1)
insert into temp00 values ('大樓戶','2002-11',22,1)
insert into temp00 values ('大樓戶','2002-11',23,1)
insert into temp00 values ('大樓戶','2002-11',24,1)
insert into temp00 values ('大樓戶','2002-11',25,1)
insert into temp00 values ('大樓戶','2002-11',26,1)
insert into temp00 values ('大樓戶','2002-11',27,1)
insert into temp00 values ('大樓戶','2002-11',28,1)
insert into temp00 values ('大樓戶','2002-11',29,1)
insert into temp00 values ('大樓戶','2002-11',30,1)
insert into temp00 values ('大樓戶','2002-12',1,1)
insert into temp00 values ('大樓戶','2002-12',2,1)
insert into temp00 values ('大樓戶','2002-12',3,1)
insert into temp00 values ('大樓戶','2002-12',4,1)
insert into temp00 values ('大樓戶','2002-12',5,1)
insert into temp00 values ('大樓戶','2002-12',6,1)
insert into temp00 values ('大樓戶','2002-12',7,1)
insert into temp00 values ('大樓戶','2002-12',8,1)
insert into temp00 values ('大樓戶','2002-12',9,1)
insert into temp00 values ('大樓戶','2002-12',10,1)
insert into temp00 values ('大樓戶','2002-12',11,1)
insert into temp00 values ('大樓戶','2002-12',12,1)
insert into temp00 values ('大樓戶','2002-12',13,1)
insert into temp00 values ('大樓戶','2002-12',14,1)
insert into temp00 values ('大樓戶','2002-12',15,1)
insert into temp00 values ('大樓戶','2002-12',16,1)
insert into temp00 values ('大樓戶','2002-12',17,1)
insert into temp00 values ('大樓戶','2002-12',18,1)
insert into temp00 values ('大樓戶','2002-12',19,1)
insert into temp00 values ('大樓戶','2002-12',20,1)
insert into temp00 values ('大樓戶','2002-12',21,1)
insert into temp00 values ('大樓戶','2002-12',22,1)
insert into temp00 values ('大樓戶','2002-12',23,1)
insert into temp00 values ('大樓戶','2002-12',24,1)
insert into temp00 values ('大樓戶','2002-12',25,1)
insert into temp00 values ('大樓戶','2002-12',26,1)
insert into temp00 values ('大樓戶','2002-12',27,1)
insert into temp00 values ('大樓戶','2002-12',28,1)
insert into temp00 values ('大樓戶','2002-12',29,1)
insert into temp00 values ('大樓戶','2002-12',30,1)
insert into temp00 values ('大樓戶','2002-12',31,1)
insert into temp00 values ('大樓戶','2003-01',1,1)
insert into temp00 values ('大樓戶','2003-01',2,1)
insert into temp00 values ('大樓戶','2003-01',3,1)
insert into temp00 values ('大樓戶','2003-01',4,1)
insert into temp00 values ('大樓戶','2003-01',5,1)
insert into temp00 values ('大樓戶','2003-01',6,1)
insert into temp00 values ('大樓戶','2003-01',7,1)
insert into temp00 values ('大樓戶','2003-01',8,1)
insert into temp00 values ('大樓戶','2003-01',9,1)
insert into temp00 values ('大樓戶','2003-01',10,1)
insert into temp00 values ('大樓戶','2003-01',11,1)
insert into temp00 values ('大樓戶','2003-01',12,1)
insert into temp00 values ('大樓戶','2003-01',13,1)
insert into temp00 values ('大樓戶','2003-01',14,1)
insert into temp00 values ('大樓戶','2003-01',15,1)
insert into temp00 values ('大樓戶','2003-01',16,1)
insert into temp00 values ('大樓戶','2003-01',17,1)
insert into temp00 values ('大樓戶','2003-01',18,1)
insert into temp00 values ('大樓戶','2003-01',19,1)
insert into temp00 values ('大樓戶','2003-01',20,1)
insert into temp00 values ('大樓戶','2003-01',21,1)
insert into temp00 values ('大樓戶','2003-01',22,1)
insert into temp00 values ('大樓戶','2003-01',23,1)
insert into temp00 values ('大樓戶','2003-01',24,1)
insert into temp00 values ('大樓戶','2003-01',25,1)
insert into temp00 values ('大樓戶','2003-01',26,1)
insert into temp00 values ('大樓戶','2003-01',27,1)
insert into temp00 values ('大樓戶','2003-01',28,1)
insert into temp00 values ('大樓戶','2003-01',29,1)
insert into temp00 values ('大樓戶','2003-01',30,1)
insert into temp00 values ('大樓戶','2003-01',31,1)
insert into temp00 values ('大樓戶','2003-02',1,1)
insert into temp00 values ('大樓戶','2003-02',2,1)
insert into temp00 values ('大樓戶','2003-02',3,1)
insert into temp00 values ('大樓戶','2003-02',4,1)
insert into temp00 values ('大樓戶','2003-02',5,1)
insert into temp00 values ('大樓戶','2003-02',6,1)
insert into temp00 values ('大樓戶','2003-02',7,1)
insert into temp00 values ('大樓戶','2003-02',8,1)
insert into temp00 values ('大樓戶','2003-02',9,1)
insert into temp00 values ('大樓戶','2003-02',10,1)
insert into temp00 values ('大樓戶','2003-02',11,1)
insert into temp00 values ('大樓戶','2003-02',12,1)
insert into temp00 values ('大樓戶','2003-02',13,1)
insert into temp00 values ('大樓戶','2003-02',14,1)
insert into temp00 values ('大樓戶','2003-02',15,1)
insert into temp00 values ('大樓戶','2003-02',16,1)
insert into temp00 values ('大樓戶','2003-02',17,1)
insert into temp00 values ('大樓戶','2003-02',18,1)
insert into temp00 values ('大樓戶','2003-02',19,1)
insert into temp00 values ('大樓戶','2003-02',20,1)
insert into temp00 values ('大樓戶','2003-02',21,1)
insert into temp00 values ('大樓戶','2003-02',22,1)
insert into temp00 values ('大樓戶','2003-02',23,1)
insert into temp00 values ('大樓戶','2003-02',24,1)
insert into temp00 values ('大樓戶','2003-02',25,1)
insert into temp00 values ('大樓戶','2003-02',26,1)
insert into temp00 values ('大樓戶','2003-02',27,1)
insert into temp00 values ('大樓戶','2003-02',28,1)
insert into temp00 values ('大樓戶','2003-03',1,1)
insert into temp00 values ('大樓戶','2003-03',2,1)
insert into temp00 values ('大樓戶','2003-03',3,1)
insert into temp00 values ('大樓戶','2003-03',4,1)
insert into temp00 values ('大樓戶','2003-03',5,1)
insert into temp00 values ('大樓戶','2003-03',6,1)
insert into temp00 values ('大樓戶','2003-03',7,1)
insert into temp00 values ('大樓戶','2003-03',8,1)
insert into temp00 values ('大樓戶','2003-03',9,1)
insert into temp00 values ('大樓戶','2003-03',10,1)
insert into temp00 values ('大樓戶','2003-03',11,1)
insert into temp00 values ('大樓戶','2003-03',12,1)
insert into temp00 values ('大樓戶','2003-03',13,1)
insert into temp00 values ('大樓戶','2003-03',14,1)
insert into temp00 values ('大樓戶','2003-03',15,1)
insert into temp00 values ('大樓戶','2003-03',16,1)
insert into temp00 values ('大樓戶','2003-03',17,1)
insert into temp00 values ('大樓戶','2003-03',18,1)
insert into temp00 values ('大樓戶','2003-03',19,1)
insert into temp00 values ('大樓戶','2003-03',20,1)
insert into temp00 values ('大樓戶','2003-03',21,1)
insert into temp00 values ('大樓戶','2003-03',22,1)
insert into temp00 values ('大樓戶','2003-03',23,1)
insert into temp00 values ('大樓戶','2003-03',24,1)
insert into temp00 values ('大樓戶','2003-03',25,1)
insert into temp00 values ('大樓戶','2003-03',26,1)
insert into temp00 values ('大樓戶','2003-03',27,1)
insert into temp00 values ('大樓戶','2003-03',28,1)
insert into temp00 values ('大樓戶','2003-03',29,1)
insert into temp00 values ('大樓戶','2003-03',31,1)
insert into temp00 values ('大樓戶','2003-04',1,1)
insert into temp00 values ('大樓戶','2003-04',2,1)
insert into temp00 values ('大樓戶','2003-04',3,1)
insert into temp00 values ('大樓戶','2003-04',4,1)
insert into temp00 values ('大樓戶','2003-04',5,1)
insert into temp00 values ('大樓戶','2003-04',6,1)
insert into temp00 values ('大樓戶','2003-04',7,1)
insert into temp00 values ('大樓戶','2003-04',8,1)
insert into temp00 values ('大樓戶','2003-04',9,1)
insert into temp00 values ('大樓戶','2003-04',10,1)
insert into temp00 values ('大樓戶','2003-04',11,1)
insert into temp00 values ('大樓戶','2003-04',12,1)
insert into temp00 values ('大樓戶','2003-04',13,1)
insert into temp00 values ('大樓戶','2003-04',14,1)
insert into temp00 values ('大樓戶','2003-04',15,1)
insert into temp00 values ('大樓戶','2003-04',16,1)
insert into temp00 values ('大樓戶','2003-04',17,1)
insert into temp00 values ('大樓戶','2003-04',18,1)
insert into temp00 values ('大樓戶','2003-04',19,1)
insert into temp00 values ('大樓戶','2003-04',20,1)
insert into temp00 values ('大樓戶','2003-04',21,1)
insert into temp00 values ('大樓戶','2003-04',22,1)
insert into temp00 values ('大樓戶','2003-04',23,1)
insert into temp00 values ('大樓戶','2003-04',24,1)
insert into temp00 values ('大樓戶','2003-04',25,1)
insert into temp00 values ('大樓戶','2003-04',26,1)
insert into temp00 values ('大樓戶','2003-04',27,1)
insert into temp00 values ('大樓戶','2003-04',28,1)
insert into temp00 values ('大樓戶','2003-04',29,1)
insert into temp00 values ('大樓戶','2003-04',30,1)
insert into temp00 values ('大樓戶','2003-05',1,1)
insert into temp00 values ('大樓戶','2003-05',2,1)
insert into temp00 values ('大樓戶','2003-05',3,1)
insert into temp00 values ('大樓戶','2003-05',4,1)
insert into temp00 values ('大樓戶','2003-05',5,1)
insert into temp00 values ('大樓戶','2003-05',6,1)
insert into temp00 values ('大樓戶','2003-05',7,1)
insert into temp00 values ('大樓戶','2003-05',8,1)
insert into temp00 values ('大樓戶','2003-05',9,1)
insert into temp00 values ('大樓戶','2003-05',10,1)
insert into temp00 values ('大樓戶','2003-05',11,1)
insert into temp00 values ('大樓戶','2003-05',12,1)
insert into temp00 values ('大樓戶','2003-05',13,1)
insert into temp00 values ('大樓戶','2003-05',14,1)
insert into temp00 values ('大樓戶','2003-05',15,1)
insert into temp00 values ('大樓戶','2003-05',16,1)
insert into temp00 values ('大樓戶','2003-05',17,1)
insert into temp00 values ('大樓戶','2003-05',18,1)
insert into temp00 values ('大樓戶','2003-05',19,1)
insert into temp00 values ('大樓戶','2003-05',20,1)
insert into temp00 values ('大樓戶','2003-05',21,1)
insert into temp00 values ('大樓戶','2003-05',23,1)
insert into temp00 values ('大樓戶','2003-05',24,1)
insert into temp00 values ('大樓戶','2003-05',25,1)
insert into temp00 values ('大樓戶','2003-05',26,1)
insert into temp00 values ('大樓戶','2003-05',27,1)
insert into temp00 values ('大樓戶','2003-06',1,1)
insert into temp00 values ('大樓戶','2003-06',4,1)
insert into temp00 values ('大樓戶','2003-06',5,1)
insert into temp00 values ('大樓戶','2003-06',6,1)
insert into temp00 values ('大樓戶','2003-06',7,1)
insert into temp00 values ('大樓戶','2003-06',9,1)
insert into temp00 values ('大樓戶','2003-06',10,1)
insert into temp00 values ('大樓戶','2003-06',11,1)
insert into temp00 values ('大樓戶','2003-06',13,1)
insert into temp00 values ('大樓戶','2003-06',14,1)
insert into temp00 values ('大樓戶','2003-06',17,1)
insert into temp00 values ('大樓戶','2003-06',18,1)
insert into temp00 values ('大樓戶','2003-06',19,1)
insert into temp00 values ('大樓戶','2003-06',22,1)
insert into temp00 values ('大樓戶','2003-06',24,1)
insert into temp00 values ('大樓戶','2003-06',25,1)
insert into temp00 values ('大樓戶','2003-06',26,1)
insert into temp00 values ('大樓戶','2003-06',28,1)
insert into temp00 values ('大樓戶','2003-06',29,1)
insert into temp00 values ('大樓戶','2003-07',1,1)
insert into temp00 values ('大樓戶','2003-07',2,1)
insert into temp00 values ('大樓戶','2003-07',3,1)
insert into temp00 values ('大樓戶','2003-07',6,1)
insert into temp00 values ('大樓戶','2003-07',9,1)
insert into temp00 values ('大樓戶','2003-07',10,1)
insert into temp00 values ('大樓戶','2003-07',12,1)
insert into temp00 values ('大樓戶','2003-07',17,1)
insert into temp00 values ('大樓戶','2003-07',18,1)
insert into temp00 values ('大樓戶','2003-07',20,1)
insert into temp00 values ('大樓戶','2003-07',24,1)
insert into temp00 values ('大樓戶','2003-08',1,1)
insert into temp00 values ('大樓戶','2003-08',2,1)
insert into temp00 values ('大樓戶','2003-08',3,1)
insert into temp00 values ('大樓戶','2003-08',5,1)
insert into temp00 values ('大樓戶','2003-08',6,1)
insert into temp00 values ('大樓戶','2003-08',7,1)
insert into temp00 values ('大樓戶','2003-08',11,1)
insert into temp00 values ('大樓戶','2003-08',13,1)
insert into temp00 values ('大樓戶','2003-08',14,1)
insert into temp00 values ('大樓戶','2003-08',17,1)
insert into temp00 values ('大樓戶','2003-08',19,1)
insert into temp00 values ('大樓戶','2003-08',20,1)
insert into temp00 values ('大樓戶','2003-08',30,1)
insert into temp00 values ('大樓戶','2003-09',1,1)
insert into temp00 values ('大樓戶','2003-09',5,1)
insert into temp00 values ('大樓戶','2003-09',7,1)
insert into temp00 values ('大樓戶','2003-09',11,1)
insert into temp00 values ('大樓戶','2003-09',15,1)
insert into temp00 values ('大樓戶','2003-09',16,1)
insert into temp00 values ('大樓戶','2003-09',19,1)
insert into temp00 values ('大樓戶','2003-09',20,1)
insert into temp00 values ('大樓戶','2003-09',21,1)
insert into temp00 values ('大樓戶','2003-09',24,1)
insert into temp00 values ('大樓戶','2003-09',30,1)
insert into temp00 values ('大樓戶','2003-10',1,1)
insert into temp00 values ('大樓戶','2003-10',2,1)
insert into temp00 values ('大樓戶','2003-10',4,1)
insert into temp00 values ('大樓戶','2003-10',5,1)
insert into temp00 values ('大樓戶','2003-10',8,1)
insert into temp00 values ('大樓戶','2003-10',9,1)
insert into temp00 values ('大樓戶','2003-10',11,1)
insert into temp00 values ('大樓戶','2003-10',14,1)
insert into temp00 values ('大樓戶','2003-10',15,1)
insert into temp00 values ('大樓戶','2003-10',16,1)
insert into temp00 values ('大樓戶','2003-10',23,1)
insert into temp00 values ('大樓戶','2003-10',25,1)
insert into temp00 values ('大樓戶','2003-10',29,1)
insert into temp00 values ('大樓戶','2003-10',31,1)
insert into temp00 values ('大樓戶','2003-11',1,1)
insert into temp00 values ('大樓戶','2003-11',6,1)
insert into temp00 values ('大樓戶','2003-11',10,1)
insert into temp00 values ('大樓戶','2003-11',11,1)
insert into temp00 values ('大樓戶','2003-11',20,1)
insert into temp00 values ('大樓戶','2003-11',30,1)
insert into temp00 values ('大樓戶','2003-12',1,1)
insert into temp00 values ('大樓戶','2003-12',3,1)
insert into temp00 values ('分機統收','2002-12',1,1)
insert into temp00 values ('分機統收','2003-01',10,1)
insert into temp00 values ('地方公關','2002-12',1,1)
insert into temp00 values ('地方公關','2002-12',18,1)
insert into temp00 values ('地方公關','2003-01',1,1)
insert into temp00 values ('地方公關','2003-01',31,1)
insert into temp00 values ('地方公關','2003-02',1,1)
insert into temp00 values ('地方公關','2003-02',8,1)
insert into temp00 values ('地方公關','2003-02',18,1)
insert into temp00 values ('地方公關','2003-02',19,1)
insert into temp00 values ('地方公關','2003-02',22,1)
insert into temp00 values ('地方公關','2003-02',23,1)
insert into temp00 values ('地方公關','2003-03',1,1)
insert into temp00 values ('地方公關','2003-03',4,1)
insert into temp00 values ('地方公關','2003-03',5,1)
insert into temp00 values ('地方公關','2003-03',20,1)
insert into temp00 values ('地方公關','2003-05',17,1)
insert into temp00 values ('地方公關','2003-05',26,1)
insert into temp00 values ('地方公關','2003-06',1,1)
insert into temp00 values ('地方公關','2003-06',7,1)
insert into temp00 values ('地方公關','2003-06',10,1)
insert into temp00 values ('地方公關','2003-06',14,1)
insert into temp00 values ('地方公關','2003-06',21,1)
insert into temp00 values ('地方公關','2003-07',1,1)
insert into temp00 values ('地方公關','2003-07',24,1)
insert into temp00 values ('地方公關','2003-07',29,1)
insert into temp00 values ('地方公關','2003-08',1,1)
insert into temp00 values ('地方公關','2003-08',4,1)
insert into temp00 values ('地方公關','2003-08',8,1)
insert into temp00 values ('地方公關','2003-08',20,1)
insert into temp00 values ('地方公關','2003-09',1,1)
insert into temp00 values ('地方公關','2003-09',13,1)
insert into temp00 values ('地方公關','2003-10',1,1)
insert into temp00 values ('地方公關','2003-10',2,1)
insert into temp00 values ('地方公關','2003-11',1,1)
insert into temp00 values ('地方公關','2003-12',1,1)
insert into temp00 values ('地方公關','2003-12',31,1)
insert into temp00 values ('供電公關','2002-12',1,1)
insert into temp00 values ('供電公關','2003-03',15,1)
insert into temp00 values ('供電公關','2003-03',17,1)
insert into temp00 values ('供電公關','2003-06',1,1)
insert into temp00 values ('供電公關','2003-07',26,1)
insert into temp00 values ('供電公關','2003-09',1,1)
insert into temp00 values ('供電公關','2003-11',1,1)
insert into temp00 values ('委員','2002-12',1,1)
insert into temp00 values ('委員','2003-01',1,1)
insert into temp00 values ('委員','2003-02',1,1)
insert into temp00 values ('附掛','2002-12',1,1)
insert into temp00 values ('附掛','2003-01',1,1)
insert into temp00 values ('附掛','2003-04',1,1)
insert into temp00 values ('附掛','2003-06',1,1)
insert into temp00 values ('附掛','2003-09',3,1)
insert into temp00 values ('附掛','2003-09',12,1)
insert into temp00 values ('業務公關','2002-11',16,1)
insert into temp00 values ('業務公關','2002-12',1,1)
insert into temp00 values ('業務公關','2003-01',1,1)
insert into temp00 values ('業務公關','2003-01',20,1)
insert into temp00 values ('業務公關','2003-01',21,1)
insert into temp00 values ('業務公關','2003-02',1,1)
insert into temp00 values ('業務公關','2003-03',8,1)
insert into temp00 values ('業務公關','2003-03',18,1)
insert into temp00 values ('業務公關','2003-06',1,1)
insert into temp00 values ('業務公關','2003-07',1,1)
insert into temp00 values ('業務公關','2003-08',1,1)
insert into temp00 values ('業務公關','2003-09',1,1)
insert into temp00 values ('業務公關','2003-10',25,1)
insert into temp00 values ('業務公關','2003-11',21,1)
insert into temp00 values ('管委','2002-10',1,1)
insert into temp00 values ('管委','2002-11',1,1)
insert into temp00 values ('管委','2002-12',1,1)
insert into temp00 values ('管委','2003-01',1,1)
insert into temp00 values ('管委','2003-02',15,1)
insert into temp00 values ('廣告公關','2002-11',30,1)
insert into temp00 values ('廣告公關','2003-01',1,1)
insert into temp00 values ('廣告公關','2003-02',1,1)
insert into temp00 values ('廣告公關','2003-02',18,1)
insert into temp00 values ('廣告公關','2003-05',1,1)
insert into temp00 values ('廣告公關','2003-06',1,1)
insert into temp00 values ('廣告公關','2003-07',1,1)
insert into temp00 values ('廣告公關','2003-08',1,1)
insert into temp00 values ('廣告公關','2003-08',15,1)
insert into temp00 values ('廣告公關','2003-10',1,1)
insert into temp00 values ('關企員工','2003-01',1,1)
insert into temp00 values ('關企員工','2003-01',2,1)
insert into temp00 values ('關企員工','2003-01',20,1)
insert into temp00 values ('關企員工','2003-02',9,1)
insert into temp00 values ('關企員工','2003-03',6,1)
insert into temp00 values ('關企員工','2003-04',27,1)
insert into temp00 values ('關企員工','2003-05',3,1)
insert into temp00 values ('關企員工','2003-09',1,1)
copy to c:\客戶到期分佈 xl5
lo_Excel = CreateObject('Excel.Application')
lo_Excel.WorkBooks.Open('c:\客戶到期分佈.xls')
With lo_Excel.Application && 此為指向 lo_Excel.Application 這一層,如此可使下一列 lo_Excel.Application.Visible = .T. 變成比較簡短
.Visible = .T. && 檢視Excel
.Range("A1").Select && 點選 A1 儲存格
.Cells.Select && 選取整個Excel工作表
.ActiveWindow.Zoom=75 && 顯示比例 75%
.Selection.Font.Name = '新細明體' && �]定字型
.Selection.Font.Size = 12 && �]定字體大小
.Selection.Columns.AutoFit && 最適欄寬
.Range(.Cells(1,1),.Cells(1,fcount())).Select && 選取第一列所有儲存格
With .Selection
.HorizontalAlignment = -4108 && 儲存格置中顯示
.Borders(1).LineStyle = 1 && 每個(各個)儲存格 Left 框線為實線
.Borders(2).LineStyle = 1 && 每個(各個)儲存格 Top 框線為實線
.Borders(3).LineStyle = 1 && 每個(各個)儲存格 Bottom 框線為實線
.Borders(4).LineStyle = 1 && 每個(各個)儲存格 Right 框線為實線
.Borders(7).Weight = -4138 && 選取區塊的最 Left 框線的寬度為xlMedium 或 -4138,預�]值為 xlThin 或 2
.Borders(8).Weight = -4138 && 選取區塊的最 Top 框線的寬度為xlMedium 或 -4138,預�]值為 xlThin 或 2
.Borders(9).Weight = -4138 && 選取區塊的最 Bottom 框線的寬度為xlMedium 或 -4138,預�]值為 xlThin 或 2
.Borders(10).Weight = -4138 && 選取區塊的最 Right 框線的寬度為xlMedium 或 -4138,預�]值為 xlThin 或 2
.Interior.ColorIndex = 41 && 填滿儲存格顏色為寶藍色
.Font.ColorIndex = 2 && 字型顏色為白色
EndWith
.Range("A2").Select && 點選 A2 儲存格
.ActiveWindow.FreezePanes=.T. && 凍結窗格
*.Range(.Cells(2,1),.Cells(recc()+1,fcount())).Select && 選取所有儲存格 ,本列改成下兩列
.ActiveCell.SpecialCells(11).Select && 直接選取最後一欄最後一列儲存格
.Range(.Selection, .Cells(1, 1)).Select && 從目前儲存格選取到 A1
.Selection.NumberFormatLocal = '[=0]"""";G/通用格式' && �]定儲存格格式 ,0不顯�{
****建立第一個樞紐分析表
*原始碼 lo_Excel.ActiveWorkbook.PivotCaches.Add(1,"慣性分析報表!R1C1:R403C6").CreatePivotTable("","樞紐分析表")
.ActiveWorkbook.PivotCaches.Add(1,"客戶到期分佈!R1C1:R"+alltrim(str(recc()+1))+"C4").CreatePivotTable("","樞紐分析表")
With .ActiveSheet
.PivotTableWizard(,,lo_Excel.Sheets("Sheet1").Cells(3, 1))
With .PivotTables("樞紐分析表")
.SmallGrid = .F.
.PivotFields("客戶類別").Orientation = 1
.PivotFields("到期年月").Orientation = 2
.PivotFields("數量").Orientation = 4
EndWith
EndWith
.Sheets("Sheet1").Select && 選取工作表 Sheet1
.Sheets("Sheet1").Name = "樞紐A" && 更改頁籤
.Cells.Select && 選取整個Excel工作表
.Selection.Columns.AutoFit && 最適欄寬
.ActiveWindow.Zoom=75 && 顯示比例 75%
.Range("A4").Select && 點選 C4 儲存格
.Range(.Selection, .Selection.End(-4161)).Select && 從目前儲存格選取到該列最後一欄
With .Selection
.Interior.ColorIndex = 41 && 填滿儲存格顏色為寶藍色
.Font.ColorIndex = 2 && 變更儲存格字體顏色為白色
EndWith
.ActiveCell.SpecialCells(11).Select && 直接選取最後一欄最後一列儲存格
.Range(.Selection, .Cells(.ActiveCell.Row, 1)).Select && 從目前儲存格選取到該列最前一欄
.Selection.Interior.ColorIndex = 36 && 填滿儲存格顏色為淡黃色
.CommandBars("PivotTable").Visible = .F.
****建立第二個樞紐分析表
.Sheets("客戶到期分佈").Select && 選取工作表 Sheet1
.ActiveWorkbook.PivotCaches.Add(1,"客戶到期分佈!R1C1:R"+alltrim(str(recc()+1))+"C4").CreatePivotTable("","樞紐分析表")
With .ActiveSheet
.PivotTableWizard(,,lo_Excel.Sheets("Sheet2").Cells(3, 1))
With .PivotTables("樞紐分析表")
.SmallGrid = .F.
.PivotFields("到期年月").Orientation = 1
.PivotFields("到期日").Orientation = 2
.PivotFields("數量").Orientation = 4
EndWith
EndWith
.Sheets("Sheet2").Select && 選取工作表 Sheet1
.Sheets("Sheet2").Name = "樞紐B" && 更改頁籤
.Cells.Select && 選取整個Excel工作表
.Selection.Columns.AutoFit && 最適欄寬
.ActiveWindow.Zoom=75 && 顯示比例 75%
.Range("A4").Select && 點選 C4 儲存格
.Range(.Selection, .Selection.End(-4161)).Select && 從目前儲存格選取到該列最後一欄
With .Selection
.Interior.ColorIndex = 41 && 填滿儲存格顏色為寶藍色
.Font.ColorIndex = 2 && 變更儲存格字體顏色為白色
EndWith
.ActiveCell.SpecialCells(11).Select && 直接選取最後一欄最後一列儲存格
.Range(.Selection, .Cells(.ActiveCell.Row, 1)).Select && 從目前儲存格選取到該列最前一欄
.Selection.Interior.ColorIndex = 36 && 填滿儲存格顏色為淡黃色
.CommandBars("PivotTable").Visible = .F.
.Range("A1").Select && 點選 A1 儲存格
.ActiveWorkBook.Save() && 儲存
*.ActiveWorkBook.Close() && 關閉 工作表
*.Quit() && 結束Excel
EndWith
|
|
|
| 回頂端 |
|
|
盧明貴
註冊時間: 2003-04-08
文章: 5
來自: 台灣
第 3 樓
|
| 發表於: 星期二 四月 08, 2003 3:26 pm 文章主題: |
|
|
抱歉,請站長幫我把樓上的資料去掉 ＜pre＞
怪怪的ㄝ |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
