[VFP]讓visual FoxPro 可以產生Excel檔案

VFP和Excel都可以用來進行處理資料庫表格，如果巧妙地將二者的優點結合起來，將會大大方便我們的工作。
比如我們可以利用VFP進行處理資料，而利用Excel的預覽列印功能進行報表列印。這就需要我們在VFP中直接來控制Excel。下面就在開發VFP應用專案時對Excel的控制作一下介紹：

1.建立Excel物件
eole=CREATEOBJECT("Excel.application")
2.添加新工作簿
eole.Workbooks.add
3.設置第1個工作表為啟動工作表
eole.Worksheets("sheet1").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(18).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.設置頁首到頂端邊 ..

訪客只能看到部份內容，免費 加入會員

x0

Can you tell me that you are a fox professtional?

x0

終於有人跟我用一樣的開發軟體，開心!!

x0

唉，已经很少人还在用VFP了。
个人觉得它小而悍，对硬体要求不高，合适用的地方还有很多。

x0

一直在找VFP 3.0 正體~一直找不到~唉唉

x0

下面是引用 Trigger 於 2009-06-09 12:00 發表的 :
一直在找VFP 3.0 正體~一直找不到~唉唉

me too.
can you tell me where can found it. please.
因為我已經找了很久了。

x0

下面是引用 youngmm123 於 2009-10-05 15:14 發表的 :

me too.
can you tell me where can found it. please.
因為我已經找了很久了。

我放棄了,,一直找不到,,SORRY~

x0

這真的是太方便了

x0

很棒!

x0