VFP 愛用者社區

[Ruey]

VFP6.0與Excel聯手創建統計圖
http://www.ithome-cn.net/technology/fox/fox85.htm
胡振山　郭施毅
　　VFP6.0中，OLE(Object linking and Embedding)物件的鏈結與嵌入有兩種方式：一種方式是增加OLE物件到表單中；另一種方式是增加OLE物件到表中。設計OLE物件的方式也有兩種方式，一種方式是OLE物件在FORM設計器中，使用表單工具創建；另一種方式是OLE物件在程式運行期間動態的產生。本文通過一個具體的實例，介紹OLE物件在程式運行期間動態產生並增加在表單中的過程。


　　一、目標的確定


　　在程式運行期間，創建一個Excel Applicatioin OLE物件，把VFP使用的資料傳遞到Excel 的工作簿上，然後在Excel工作簿上創建統計圖形。

　　數據： 綜合新聞 3000

電腦與生活 4000

　　 產品與技術 5000

　　 網路與應用 6000

　　 市場與管道 7000


　　二、創建與應用的過程


　　1.表單與按鈕

　　在FORM設計器中，設計表單，並創建一個命令按鈕。

　　command1.caption=′Excel Application′

　　2.創建一個Excel OLE物件

　　OleApp=CreatObject(″Excel Application″)

　　＆＆使用VFP6.0 CreatObject()函數創建一個Excel OLE物件，其名稱為OleApp

　　＆＆Application 為Excel 物件，使用Application物件可以直接定義Excel工作簿中每個單元的屬性

　　OleApp.Visibe=.T.

　　＆＆設定OleApp的Visible屬性為真值，把工作簿執行起來

　　3.傳遞單元內容到Excel物件中

　　OleApp.WorkBooks.add

　　＆＆直接通過OLE物件OleApp(即是Excel.Application物件)，執行WorkBooks物件（Excel活頁簿物件），通過WorkBooks物件執行Add Method，在Excel中新增一個活頁簿。

　　4.設定WorkBooks物件的內容（cell)

　　直接通過VP6.0傳遞資料到Excel工作簿上。執行Excel Application物件的Cell() Method，設定活頁簿單格的內容，Cell()中所傳遞的參數為列數和行數，等號之後為單格預設定的內容。

　　OleApp.cells(1,1).value=′綜合新聞′

　　OleApp.cells(2,1).value=′電腦與生活′

　　OleApp.cells(3,1).value=′產品與技術′

　　OleApp.cells(4,1).value=′網路與應用′

　　OleApp.cells(5,1).value=′市場與管道′

　　OleApp.cells(1,2).value=3000

　　OleApp.cells(2,2).value=4000

　　OleApp.cells(3,2).value=5000

　　OleApp.cells(4,2).value=6000

　　OleApp.cells(5,2).value=7000

　　5.選擇單格的範圍

　　一般在Excel中預產生統計圖時，可以使用滑鼠直接在單格選擇區域後，再通過Wizard方式產生統計圖。下面採用程式碼利用VFP6.0 OLE物件選擇單格的區域。

　　OleApp.Rang(″A1:B5″).select

　　＆＆執行Excel Application物件的RangeMethod，直接指定A1至B5的單格的範圍。

　　＆＆ 再通過Select Method進行選擇區域。

　　6.產生統計圖

　　最後將選擇的單格內容，在Excel中快速產生一張統計圖，在VFP6.0中使用Excel OLE物件產生統計圖的程式碼是：

　　OleApp.Charts.Add

　　＆＆執行Charts物件中的Add Method，在活頁簿中產生的統計圖如下：

　　通過以上6個步驟，既可順利完成任務。

　　本程式的代碼總結如下：

　　OleApp=CreatObject(″Excel Application″)

　　OleApp.visival=.T.

　　OleApp.WorkBooks.Add

　　OleApp.cells(1,1).value=′綜合新聞′

　　OleApp.cells(2,1).value=′電腦與生活′

　　OleApp.cells(3,1).value=′產品與技術′

　　OleApp.cells(4,1).value=′網路與應用′

　　OleApp.cells(4,1).value=′市場與管道′

　　OleApp.cells(1,2).value=3000

　　OleApp.cells(2,2).value=4000

　　OleApp.cells(3,2).value=5000

　　OleApp.cells(4,2).value=6000

　　OLeApp.celss(5,2).value=7000

　　OleApp.Range(″A1:B5″).Select

　　OleApp.Charts.Add