在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(″ctempll.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=10.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(″b3d3″).Borders(2).Weight=3 
 
　　13．設定四個邊框線條的型別 
 
　　eole.ActiveSheet.Range(″b3d3″).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=20.035 
 
　　17．設定頁尾到底邊距為3釐米 
 
　　eole.ActiveSheet.PageSetup.FooterMargin=30.035 
 
　　18．設定頂邊距為2釐米 
　　eole.ActiveSheet.PageSetup.TopMargin=20.035 
 
　　19．設定底邊距為4釐米   
　　eole.ActiveSheet.PageSetup.BottomMargin=40.035 
 
　　20．設定左邊距為2釐米  
　　veole.ActiveSheet.PageSetup.LeftMargin=20.035 
 
　　21．設定右邊距為2釐米   
　　eole.ActiveSheet.PageSetup.RightMargin=20.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(″A1E2″).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(″ctemp22.xls″) 
 
　　39．放棄存檔   
　　eole.ActiveWorkbook.saved=.t. 
 
　　40．關閉工作簿   
　　eole.Workbooks.close 
 
　　41．退出Excel   
　　eole.quit 
 
　　以上控制呼叫語句在中文VFP5.0企業版下執行通過，執行環境為Excel  97及中文Windows  98。