VFP操作Excel命令大全

《VFP操作Excel命令大全》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、VFP和Excel都可以用來(lái)進(jìn)行處理數(shù)據(jù)庫(kù)表格，如果巧妙地將二者的優(yōu)點(diǎn)結(jié)合起來(lái)，將會(huì)大大方便我們的工作。比如我們可以利用VFP進(jìn)行處理數(shù)據(jù)，而利用Excel的預(yù)覽打印功能進(jìn)行報(bào)表打印。這就需要我們?cè)赩FP中直接來(lái)控制Excel。下面就在開(kāi)發(fā)VFP應(yīng)用項(xiàng)目時(shí)對(duì)Excel的控制作一下介紹：*!*1．創(chuàng)建Excel對(duì)象oExcel=Createobject("Excel.application")*!*2．添加新工作簿oExcel.Workbooks.Add*!*3．設(shè)置第3個(gè)工作表為激活工作表oExcel.Worksheets("sheet3").Act

2、ivate*!*4．打開(kāi)指定工作簿oExcel.Workbooks.Open("c:templl.xls")*!*5．顯示Excel窗口oExcel.Visible=.T.*!*6．更改Excel標(biāo)題欄oExcel.Caption="VFP應(yīng)用程序調(diào)用MicrosoftExcel"*!*7．給單元格賦值oExcel.cells(1,4).Value=XM(XM為數(shù)據(jù)庫(kù)字段名)*!*8．設(shè)置指定列的寬度(單位：字符個(gè)數(shù))oExcel.ActiveSheet.Columns(1).ColumnWidth=5*!*9．設(shè)置指定行的高度(單位：磅)oEx

3、cel.ActiveSheet.Rows(1).RowHeight=1(設(shè)定行高為1磅，1磅=0.035厘米)oExcel.ActiveSheet.Rows("50:100").RowHeight=1&&設(shè)置第50行至100行的高度*!*10．在第18行之前插入分頁(yè)符oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1*!*11．在第4列之前刪除分頁(yè)符oExcel.ActiveSheet.Columns(4).PageBreak=0*!*12．指定邊框線寬度(Borders參數(shù)如下)ole.ActiveSh

4、eet.Range("b3:d3").BorderS(2).Weight=3*!*13．設(shè)置四個(gè)邊框線條的類型oExcel.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è)置頁(yè)眉o(jì)Excel.ActiveSheet.PageSetup.CenterHeader="報(bào)表1"*!*15．設(shè)置頁(yè)眉(字體大小)oExcel.ActiveSheet.Pa

5、geSetup.CenterHeader="&50報(bào)表1"&&'&'后面的50可以自定義，表示字體的大小*!*16．設(shè)置頁(yè)腳oExcel.ActiveSheet.PageSetup.CenterFooter="第&P頁(yè)"*!*17.設(shè)置頁(yè)腳(字體大小)oExcel.ActiveSheet.PageSetup.CenterFooter="&28第&P頁(yè)"&&'&'后面的28可以自定義，表示字體的大小*!*18．設(shè)置頁(yè)眉到頂端邊距為2厘米o(hù)Excel.ActiveSheet.PageSetup.HeaderMargin=2/0.035*!*19．設(shè)置頁(yè)腳

6、到底邊距為3厘米o(hù)Excel.ActiveSheet.PageSetup.FooterMargin=3/0.035*!*20．設(shè)置頂邊距為2厘米o(hù)Excel.ActiveSheet.PageSetup.TopMargin=2/0.035*!*21．設(shè)置底邊距為4厘米o(hù)Excel.ActiveSheet.PageSetup.BottomMargin=4/0.035*!*22．設(shè)置左邊距為2厘米o(hù)Excel.ActiveSheet.PageSetup.LeftMargin=2/0.035*!*23．設(shè)置右邊距為2厘米o(hù)Excel.ActiveSheet.

7、PageSetup.RightMargin=2/0.035*!*24．設(shè)置頁(yè)面水平居中oExcel.ActiveSheet.PageSetup.CenterHorizontally=.T.*!*25．設(shè)置頁(yè)面垂直居中oExcel.ActiveSheet.PageSetup.CenterVertically=.T.*!*26．設(shè)置頁(yè)面紙張大小(1－窄行851139－寬行14119:A4)oExcel.ActiveSheet.PageSetup.Papersize=1*!*27．打印單元格網(wǎng)線oExcel.ActiveSheet.PageSetup

8、.PrintGridlines=.T.*!*28．拷貝整個(gè)工作表oExcel.ActiveSheet.Use