|
在VFP中全面控制Excel [返回] VFP和Excel都可以用來進(jìn)行處理數(shù)據(jù)庫表格，如果巧妙地將二者的優(yōu)點(diǎn)結(jié)合起來，將會(huì)大大方便我們的工作。比如我們可以利用VFP進(jìn)行處理數(shù)據(jù)，而利用Excel的預(yù)覽打印功能進(jìn)行報(bào)表打印。這就需要我們?cè)赩FP中直接來控制Excel。下面就在開發(fā)VFP應(yīng)用項(xiàng)目時(shí)對(duì)Excel的控制作一下介紹： 1．創(chuàng)建Excel對(duì)象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．設(shè)置第3個(gè)工作表為激活工作表 eole.Worksheets(″sheet3″).Activate 4．打開指定工作簿 eole.Workbooks.Open(″c:\temp\ll.xls″) 5．顯示Excel窗口 eole.visible=.t. 6．更改Excel標(biāo)題欄 eole.Caption=″VFP應(yīng)用程序調(diào)用Microsoft Excel″ 7．給單元格賦值 eole.cells(1,4).value=XM(XM為數(shù)據(jù)庫字段名) 8．設(shè)置指定列的寬度(單位：字符個(gè)數(shù)) eole.ActiveSheet.Columns(1).ColumnWidth=5 9．設(shè)置指定行的高度(單位：磅) eole.ActiveSheet.Rows(1).RowHeight=1/0.035 (設(shè)定行高為1厘米，1磅=0.035厘米) 10．在第18行之前插入分頁符 eole.Worksheets(″Sheet1″).Rows(18).PageBreak=1 11．在第4列之前刪除分頁符 eole.ActiveSheet.Columns(4).PageBreak=0 12．指定邊框線寬度(Borders參數(shù)如下) ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=3 13．設(shè)置四個(gè)邊框線條的類型 eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1 (其中Borders參數(shù)：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細(xì)實(shí)、2－細(xì)虛、4－點(diǎn)虛、9－雙細(xì)實(shí)線) 14．設(shè)置頁眉 eole.ActiveSheet.PageSetup.CenterHeader=″報(bào)表1″ 15．設(shè)置頁腳 eole.ActiveSheet.PageSetup.CenterFooter=″第＆P頁″ 16．設(shè)置頁眉到頂端邊距為2厘米 eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 17．設(shè)置頁腳到底邊距為3厘米 eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 18．設(shè)置頂邊距為2厘米 eole.ActiveSheet.PageSetup.TopMargin=2/0.035 19．設(shè)置底邊距為4厘米 eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 20．設(shè)置左邊距為2厘米 veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 21．設(shè)置右邊距為2厘米 eole.ActiveSheet.PageSetup.RightMargin=2/0.035 22．設(shè)置頁面水平居中 eole.ActiveSheet.PageSetup.CenterHorizontally=.t. 23．設(shè)置頁面垂直居中 eole.ActiveSheet.PageSetup.CenterVertically=.t. 24．設(shè)置頁面紙張大小(1－窄行8511 39－寬行1411) eole.ActiveSheet.PageSetup.PaperSize=1 25．打印單元格網(wǎng)線 eole.ActiveSheet.PageSetup.PrintGridlines=.t. 26．拷貝整個(gè)工作表 eole.ActiveSheet.UsedRange.Copy 27．拷貝指定區(qū)域 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．設(shè)置字體 eole.ActiveSheet.Cells(2,1).Font.Name=″黑體″ 32．設(shè)置字體大小 eole.ActiveSheet.Cells(1,1).Font.Size=25 33．設(shè)置字體為斜體 eole.ActiveSheet.Cells(1,1).Font.Italic=.t. 34．設(shè)置整列字體為粗體 eole.ActiveSheet.Columns(1).Font.Bold=.t. 35．清除單元格公式 eole.ActiveSheet.Cells(1,4).ClearContents 36．打印預(yù)覽工作表 eole.ActiveSheet.PrintPreview 37．打印輸出工作表 eole.ActiveSheet.PrintOut 38．工作表另為 eole.ActiveWorkbook.SaveAs(″c:\temp\22.xls″) 39．放棄存盤 eole.ActiveWorkbook.saved=.t. 40．關(guān)閉工作簿 eole.Workbooks.close 41．退出Excel eole.quit 以上控制調(diào)用語句在中文VFP5.0企業(yè)版下運(yùn)行通過，運(yùn)行環(huán)境為Excel 97及中文Windows 98。 |
|
|
