vfp控制excel的方法(最全)

1、新編 新編 VFP VFP 控制 控制 EXCEL EXCEL 的方法 的方法最近正好有空，看到不少人對(duì) VFP 控制 EXCEL 有興趣，現(xiàn)將上次的“精華貼“重新整理一下，供各位愛好者參考！1、對(duì)象的創(chuàng)建與關(guān)閉 *******************************eole=CREATEOBJECT('Excel.application') _ * -#,##0.00_

2、;_ * “+“-“+“??_ ;_ @_ “ && 指定區(qū)域內(nèi)的數(shù)字顯示格式3、打印頁(yè)面的設(shè)置 *********************************eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 && 設(shè)置頁(yè)眉到頂端邊距為 2 厘米 eole.ActiveSheet.PageSetup.FooterMargin=3/0

3、.035 && 設(shè)置頁(yè)腳到底邊距為 3 厘米eole.ActiveSheet.PageSetup.TopMargin=4/0.035 && 設(shè)置頂邊距為 4 厘米eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 && 設(shè)置底邊距為 4 厘米eole.ActiveSheet.PageSe

4、tup.LeftMargin=2/0.035 && 設(shè)置左邊距為 2 厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.035 && 設(shè)置右邊距為 2 厘米eole.ActiveSheet.PageSetup.CenterHorizontally=.t. && 設(shè)置頁(yè)面水平居中 eole.Act

5、iveSheet.PageSetup.CenterVertically=.t. && 設(shè)置頁(yè)面垂直居中eole.ActiveSheet.PageSetup.PaperSize=8 && 設(shè)置頁(yè)面紙張大小(1－窄行 8 5 11 39－寬行 14 11)eole.ActiveSheet.PageSetup.Orientation=2

6、 && 橫向eole.ActiveSheet.PageSetup.PrintTitleRows=“$1:$3“ && 定義固定行eole.ActiveSheet.PageSetup.PrintTitleColumns=“$A:$C“ && 定義固定列eole.ActiveSheet.PageSetup.CenterHeader= “&14&a

7、mp;BTMC“ && 設(shè)置頁(yè)眉eole.ActiveSheet.PageSetup.CenterFooter=“&9 表__第&P 頁(yè)“ && 設(shè)置頁(yè)腳'&'后面的 9 可以自定義，表示字體的大小eole.ActiveSheet.PageSetup.FirstPageNumber = “5“ &&設(shè)置起始頁(yè)碼eole.

8、Worksheets(“Sheet1“).Rows(18).PageBreak=1 && 在第 18 行之前插入分頁(yè)符eole.ActiveSheet.Columns(4).PageBreak=0 && 在第 4 列之前刪除分頁(yè)符eole.ActiveSheet.PageSetup.PrintGridlines=.t. &

9、& 打印單元格網(wǎng)線eole.ActiveSheet.PrintPreview && 打印預(yù)覽工作表eole.ActiveSheet.PrintOut && 打印輸出工作表4、記錄條數(shù)的利用 *********************************一般來(lái)講，EXCEL 表的

10、來(lái)源為 DBF 文件，列、行應(yīng)該是可以預(yù)知的USE 111COUNT TO AAAUSEFWQ = “A3:M“+ALLT(STR(AAA+?)) ?為 EXCEL 表插入的行數(shù)eole.ActiveSheet.Range(FWQ).Borders(1).LineStyle=1 && 設(shè)置四個(gè)邊框線條的類型eole.ActiveSheet.Range(FWQ).Borders(2).LineStyle=1