VFP全面控制EXCEL

1、eole.ActiveSheet.Columns(C:BE).ColumnWidth=9.5eole.Selection.Columns.AutoFit&最適合的列寬Word 文檔資料最近正好有空，看到不少人對 VFP 控制 EXCEL 有興趣，現(xiàn)將上次的“精華貼”重新整理一下，供各位愛好者參考!oExcel.Select ion.NumberFormatLocal= &把被選定的單元格設(shè)為文本格式1、對象的創(chuàng)建與關(guān)閉*eole=CREATEOBJECT(Excel.application)&創(chuàng)建 Excel 對象eole.Workbooks.add&添加新工作簿eole.Worksheets

2、(sheet3).Activate&設(shè)置第 3 個工作表為激活工作表eole.Workbooks.0penCDABC11.xls)&打開指定工作簿eole.visible=.t.&顯示 Excel 窗口eole.visible=.F.& 不顯示 Excel 窗口eole.Caption=VFP應(yīng)用程序調(diào)用 Microsoft Excel& 更改 Excel 標(biāo)題欄eole.ActiveWorkbook.SaveAsCDABC22.xls)&工作表另為eole.ActiveWorkbook.saved=.t.&放棄存盤eole.ActiveSheet.UsedRange.Copy&拷貝整個工作表

3、eole.ActiveSheet.Range(A1:E2).Copy&拷貝指定區(qū)域eole.WorkSheet(Sheet2).Range(A1).PasteSpecial &粘貼eole.ActiveWorkbook.Saveeole.Workbooks.close&存盤（自動存盤不提問）&關(guān)閉工作簿eole.quit&退出 Excel2、單元格的設(shè)置*eole.ActiveSheet.Columns(D:D).Delete&刪除列eole.ActiveSheet.Columns(A:B).Delete&刪除列eole.ActiveSheet.Columns(1).ColumnWidth=2

4、0&列的寬度（單位：字符個數(shù)）eole.ActiveSheet.Columns(2).ColumnWidth=30eole.ActiveSheet.Range(b3:d3).Borders(2).Weight=3 &指定邊框線寬度eole.selection.MergeCells = .T.& 合并單兀Word 文檔資料eole.selection.HorizontalAlignment=2&水平方向 2 左對齊，3 居中，4 右對齊（其中 Borders 參數(shù)：1 左、2 右、3 頂、4 底、5 斜、6 斜/;eole.Range(A2:B2).selectLineStyle值：1 與7 細(xì)

5、9雙細(xì)實線）eole.ActiveSheet.Range(A1:BE29).Borders(1).LineStyle=1&設(shè)置四個邊框線條的類型eole.ActiveSheet.Range(A1:BE29).Borders(2).LineStyle=1&設(shè)置四個邊框線條的類型eole.ActiveSheet.Range(A1:BE29).Borders(3).LineStyle=1&設(shè)置四個邊框線條的類型eole.ActiveSheet.Range(A1:BE29).Borders(4).LineStyle=1&設(shè)置四個邊框線條的類型eole.ActiveSheet.Rows(1) nsert

6、&在第 1 行之前插入一行eole.ActiveSheet.Columns(2).lnsert&在第 2 列之前插入一列eole.cells(1,2).value=ABTMC&給單元格賦值eole.cells(2,2).value=&BBBB&給單元格賦值eole.ActiveSheet.Cells(1,4).CIearContents&清除單元格公式eole.ActiveSheet.Rows(1).RowHeight=1/0.&設(shè)置指定行的高度（單位：磅）*(行高為 1 厘米，1 磅=0.035 厘米）eole.ActiveSheet.ROWS(1).Font.Name= 黑體& 設(shè)置字體e

7、ole.ActiveSheet.ROWS(1).Font.Size=14eole.ActiveSheet.ROWS(1).Font.Bold=.t.eole.ActiveSheet.Cells(1,1).Font.ltalic=.t.eole.Range(A3:BE3).selecteole.selection.WrapText = .T.&設(shè)置字體大小&設(shè)置整行字體為粗體&設(shè)置字體為斜體& 自動換行eole.selection.HorizontalAlignment=3&水平方向 2 左對齊，3 居中，4 右對齊eole.selection.VerticalAlignment= 2& 垂直方

8、向 1 靠上,2 居中，3 靠下eole.selection.VerticalAlignment2& 垂直方向 1 靠上,2 居中，3 靠下eole.ActiveSheet.PageSetup.PrintGridlines=.t. &打印單元格網(wǎng)線eole.ActiveSheet.PrintPreview&打印預(yù)覽工作表Word 文檔資料eole.ActiveSheet.PageSetup.PrintTitleRows=$1:$3 &定義固定行eole.ActiveSheet.PageSetup.PrintTitleColumns=$A:$C &定義固定列eole.Range(A5:M5).s

9、electeole.Selectio nn terior.Colorlndex= 34& 設(shè)置行顏色為淡蘭eole.ActiveSheet.Range(A1:BE29).NumberFormatLocal* #,#0.00_; _ * -#,#0.00_;_ * +-+?_ ;_ _ & 指定區(qū)域的數(shù)字顯示格式3、打印頁面的設(shè)置*eole.ActiveSheet.PageSetup.HeaderMargin=2/0.eole.ActiveSheet.PageSetup.FooterMargin=3/0.eole.ActiveSheet.PageSetup.TopMargin=4/0.eole.

10、ActiveSheet.PageSetup.BottomMargin=4/0.eole.ActiveSheet.PageSetup .L eftMargin=2/0.eole.ActiveSheet.PageSetup.RightMargin=2/0.eole.ActiveSheet.PageSetup.CenterHorizontally=.t.eole.ActiveSheet.PageSetup.CenterVertically=.t.eole.ActiveSheet.PageSetup.PaperSize=8(1 窄行eole.ActiveSheet.PageSetup.Orientat

11、ion=2&設(shè)置頁眉到頂端邊距為 2 厘米&設(shè)置頁腳到底邊距為 3 厘米&設(shè)置頂邊距為 4 厘米&設(shè)置底邊距為 4 厘米&設(shè)置左邊距為 2 厘米&設(shè)置右邊距為 2 厘米&設(shè)置頁面水平居中&設(shè)置頁面垂直居中&設(shè)置頁面紙大小8 5 1139 寬行 14 11)&橫向eole.ActiveSheet.PageSetup.CenterHeader=&14&BTMC&設(shè)置頁eole.ActiveSheet.PageSetup.CenterFooter=表_第&P 頁”&設(shè)置頁腳eole.Worksheets(Sheet1).Rows(18).PageBreak=1 &在第 18 行之前插入分頁符eole

12、.ActiveSheet.Columns(4).PageBreak=0&在第 4 列之前刪除分頁符eole.ActiveSheet.PrintOut&打印輸岀工作表Word 文檔資料DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile, STRING, STRING, INTEGERoperate= openShellExecute(0,operate,C:111.XLS,0,0,1)&EXCEL 文件ShellExecute(0,operate,C:111.DOC,0,0,1)&WORD

13、 文件*VFP 全面控制 EXCEL本文來自 CSDN 博客：http:/ 和 Excel 都可以用來進(jìn)行處理數(shù)據(jù)庫表格，如果巧妙地將二者的優(yōu)點結(jié)合起來，將會大大方便我們的工作。比如我們可以利用VFP 進(jìn)行處理數(shù)據(jù)，而利用Excel 的預(yù)覽打印功能進(jìn)行報表打印。這就需要我們在VFP 中直接來控制 Excel。下面就在開發(fā) VFP 應(yīng)用項目時對 Excel 的oExcel.ActiveSheet.PageSetup.Zoom=90&縮放 90%4、記錄條數(shù)的利用*一般來講，EXCEL 表的來源為 DBF 文件，列、行應(yīng)該是可以預(yù)知的USE 111COUNT TO AAAUSEFWQ = A3:M

14、+ALLT(STR(AAA+?) ? 為 EXCEL 表插入的行數(shù)eole.ActiveSheet.Range(FWQ).Borders(1).LineStyle=1 &設(shè)置四個邊框線條的類型eole.ActiveSheet.Range(FWQ).Borders(2).LineStyle=1 &設(shè)置四個邊框線條的類型eole.ActiveSheet.Range(FWQ).Borders(3).LineStyle=1 &設(shè)置四個邊框線條的類型eole.ActiveSheet.Range(FWQ).Borders(4).LineStyle=1 &設(shè)置四個邊框線條的類型5、VFP 下直接調(diào)用 EXC

15、EL、WORD 文件*eole.ActiveSheet.PrintOut&打印輸岀工作表Word 文檔資料控制作一下介紹：*!* 1 .創(chuàng)建 Excel 對象oExcel= Createobject(Excel.applicati on)*!* 2 .添加新工作簿oExcel.Workbooks. Add*!* 3 設(shè)置第 3 個工作表為激活工作表oExcel.Worksheets(sheet3). Activate*!* 4 打開指定工作簿oExcel.Workbooks.Open (c:templl.xls )*!* 5 .顯示 Excel 窗口oExcel. Visible =.T.*!

16、* 6 .更改 Excel 標(biāo)題欄oExcel. Caption =VFP 應(yīng)用程序調(diào)用 Microsoft Excel*!* 7 給單元格賦值oExcel.cells(1,4). Value =XM(XM 為數(shù)據(jù)庫字段名)*!* 8 設(shè)置指定列的寬度(單位：字符個數(shù))oExcel.ActiveSheet.Columns.ColumnWidth=5*!* 9 設(shè)置指定行的高度(單位：磅)oExcel.ActiveSheet.Rows (1). RowHeight =1(設(shè)定行高為 1 磅，1 磅=0.035 厘米)Word 文檔資料*!* 10 在第 18 行之前插入分頁符oExcel.Wor

17、ksheets(Sheet1). Rows (18).PageBreak=1*!* 11 在第 4 列之前刪除分頁符oExcel.ActiveSheet. Columns.PageBreak=O*!* 12 .指定邊框線寬度(Borders 參數(shù)如下)ole.ActiveSheet.Range (b3:d3).BorderS(2).Weight=3*!* 13 設(shè)置四個邊框線條的類型oExcel.ActiveSheet.Range (b3:d3).BorderS(2).LineStyle=1(其中 Borders 參數(shù)：1 左、2右、3 頂、4 底、5 斜、6 斜 / ； LineStyle

18、值：1 與 7 -細(xì)實、2 細(xì)虛、4 點虛、9 雙細(xì)實線)*!* 14 設(shè)置頁眉o(jì)Excel.ActiveSheet.PageSetup.Ce nterHeader=報表 1*!* 15 設(shè)置頁眉(字體大小)oExcel.ActiveSheet.PageSetup.Ce nterHeader=&50表示字體的大小*!* 16 設(shè)置頁腳oExcel.ActiveSheet.PageSetup.CenterFooter=第&P 頁*!* 17.設(shè)置頁腳(字體大小)oExcel.ActiveSheet.PageSetup.Ce nterFooter=&28表示字體的大小報表 1 &后面的 50 可以

19、自定義,第&P 頁“ &后面的 28 可以自定義,*!* 18 設(shè)置頁眉到頂端邊距為2 厘米o(hù)Excel.ActiveSheet.PageSetup.Pri ntGridli nes=.T.Word 文檔資料oExcel.ActiveSheet.PageSetup.HeaderMargi n=2/0.*!* 19 設(shè)置頁腳到底邊距為3 厘米o(hù)Excel.ActiveSheet.PageSetup.FooterMargi n=3/0.*!* 20 設(shè)置頂邊距為 2 厘米 oExcel.ActiveSheet.PageSetup.TopMargi n=2/0.*!* 21 設(shè)置底邊距為 4 厘米o(hù)

20、Excel.ActiveSheet.PageSetup.BottomMargi n=4/0.*!* 22 設(shè)置左邊距為 2 厘米o(hù)Excel.ActiveSheet.PageSetup. LeftMargi n=2/0.*!* 23 .設(shè)置右邊距為 2 厘米o(hù)Excel.ActiveSheet.PageSetup.RightMargi n=2/0.*!* 24 .設(shè)置頁面水平居中oExcel.ActiveSheet.PageSetup.Ce nterHorizo ntally=.T.*!* 25 .設(shè)置頁面垂直居中oExcel.ActiveSheet.PageSetup.Ce nterVert

21、ically=.T.*!* 26 .設(shè)置頁面紙大小 （1 窄行 8511 39 寬行 1411 9:A4）oExcel.ActiveSheet.PageSetup.Papersize=1*!* 27 打印單元格網(wǎng)線oExcel.ActiveSheet.Cells(1,4).ClearCo ntentsWord 文檔資料*!* 28 拷貝整個工作表oExcel.ActiveSheet.UsedRa nge.Copy*!* 29 .拷貝指定區(qū)域oExcel.ActiveSheet. Range (A1:E2).Copy*!* 30 .粘貼oExcel.WorkSheet(Sheet2).Range

22、 (A1).PasteSpecial*!* 31 在第 2 行之前插入一行oExcel.ActiveSheet. Rows (2). Insert*!* 32 .在第 2 列之前插入一列oExcel.ActiveSheet.Columns (2). Insert*!* 36 .設(shè)置整列字體為粗體Columns (1). Font .Bold=.T.*!* 33 設(shè)置字體oExcel.ActiveSheet.Cells(2,1).Font .Name =黑體“Font .Size=25Font .ltalic=.T.oExcel.ActiveSheet.Word 文檔資料*!* 37 清除單元格

23、公式*!* 38 打印預(yù)覽工作表oExcel.ActiveSheet.Pri ntPreview*!* 39 打印輸岀工作表oExcel.ActiveSheet.Pri ntOut*!* 40 oExcel.CommandBars(1).Controls(1).accChild(18).Execute& 打印(菜單序號18 為 Excel2003 的打印項)&不同版本 Excel 的菜單序號可以通過以下程序取得*(需要在 VFP7.0 以上運行)oXls= Getobject (,excel.sheet)XlApp=oXLS. ApplicationXlSheet=XlApp.ActiveSh

24、eetbars=xlapp.Comma ndBars. CountStr1=For i=1 To barsStr1=Str1+ Chr (13)+ Alltrim (Str(i)+、+xlapp.CommandBars(i).accName+(NAME:+xlapp.CommandBars(i). Name + INDEX:+ Alltrim (Str(xlapp.CommandBars(i). Index )+) bars2=mandbars(i).accChildCou ntFor j=1 To bars2Tryobj=mandbars(i).Controls (j)Str1=Str1+

25、Chr (13)+ +Alltrim (Str(j)+、+mandbars(i). Controls (j).accname+(ID:+ Alltrim (Str(xlapp.CommandBars(i).Controls (j). Id)+)For k=1 To obj.accChildCountTryIf Not Empty (obj. Controls (k).accname)Str1=Str1+ Chr (13)+ +Alltrim (Str(k)+、+obj. Controls (k).accName+ (ID :Word 文檔資料+ Alltrim (Str(obj. Contro

26、ls (k). Id)+)EndifCatchExitEn dtryEn dforCatchExitEn dtryEn dforWait WindowsAlltrim (Str(i)+ / +Alltrim (Str(bars)+ +Str(i/bars*100,10,2)+% NowaitEn dforSave To Xls.txt All Like Str1Modify Comma nd Xls.txtRetur n訪問 EXCEL： ExcelSheet = GetObject(”,Excel.Sheet)返回結(jié)果為類，則成功。例：ExcelSheet = GetObject(,Exce

27、l.Sheet)If Type(ExcelSheet)#O THEN=MessageBox( 訪問 Excel 失敗！請檢查你的系統(tǒng)是否正確安裝Excel 軟件！,48,Excel 不正常)RETURNENDIF創(chuàng)建 EXCEL 實例：oExcel=CreateObject(Excel.Application)該實例創(chuàng)建后，任何對 EXCEL 的操作都針對該實例進(jìn)行，關(guān)閉 EXCEL 后應(yīng)釋放該實例變量：RELEASE oExcel打開已存在的 EXCEL 文件：oExcel.WorkBooks.Open(&IcFileName)&IcFileName為 Excel 文件名打 開 帶 有 讀

28、寫 密 碼 的 文 件：oExcel.WorkBooks.Ope n(&lcFileName,.F.,&R_Pwd,&W_Pwd)&IcFileName-文件名,R_Pwd-讀密碼,W_Pwd-寫密碼,第二個參數(shù)表示讀寫方式：.T.只讀，.F.讀寫Word 文檔資料設(shè)置新增工作薄的工作表數(shù)：oExcel.SheetsInNewWorkbook=1&新建工作表數(shù)量定為 1 個Word 文檔資料新增 EXCEL 工作薄：oExcel.WorkBooks.Add當(dāng)前工作薄工作表總數(shù)：oExcel.WorkSheets.Count& 如In SheetC nt=oExcel.WorkSheets.co

29、u nt新增 EXCEL 工作表：oExcel.Sheets.Add&不帶參數(shù)為增加至當(dāng)前工作表之前在指定工作表后新建工作表：oExcel.Sheets.Add(,oExcel.Sheets(l nSheet),1,-4167)&ln Sheet 為指定表號在最后工作表后新建工作表：oExcel.Sheets.Add(,lnSheetsCnt,1,-4167) &ln SheetC nt為工作表總數(shù)激活工作表： oExcel.WorkSheets(Sheet1).Activate 刪除工作表： oExcel.WorkSheets(Sheet2).Delete 命名工作表：oExcel.Work

30、Sheets(Sheet3).Name=使 EXCEL 可視：oExcel.Visible=.T.Excel 的窗口控制：oExcel.WindowState = -4140還原=-4143后臺操作報警關(guān)閉：oExcel.DisplayAlerts=.F.設(shè)置工作薄的標(biāo)題：oExcel.Caption=Vfp控制 Excel 操作當(dāng)前工作薄換名存盤： oExcel.ActiveWorkBook.SaveAs( &IcFileName) 換名存為文本文件：oExcel.ActiveWorkBook.Saveas(”&l cFileName,-4158) 加密碼換名存盤oExcel.ActiveW

31、orkbook.SaveAs( & lcFileName,-4143,3721,3721,.F., .F.)打oExcel.ActiveWorkBook.Pri ntOut(1,oExcel.WorkSheets.cou nt,1,.T.)* 默認(rèn)直接打印整個工作簿：oExcel.ActiveWorkBook.Pri ntOut()*參數(shù) 1-數(shù)值：當(dāng)前工作簿中進(jìn)行打印的起始工作表號*參數(shù) 2-數(shù)值：當(dāng)前工作簿中進(jìn)行打印的結(jié)束工作表號*參數(shù) 3-數(shù)值：打印份數(shù)(默認(rèn) 1)*參數(shù) 4-是預(yù)覽打印還是直接打?。?-預(yù)覽打印，打印當(dāng)前工作表：oExcel.ActiveSheet .Prin tOut

32、()*參數(shù) 1-數(shù)值：起始頁號，省略則默認(rèn)為開始位置&激活工作表 1&刪除工作表 2新表”&重命名工作表 3&最小化=-4140，最大化=-4137 ,&關(guān)閉(.F.)打開(.T.)工作薄存盤:oExcel.WorkBooks.Save關(guān)閉工作薄:oExcel.WorkBooks.Close退出 EXCEL：oExcel.Quit &關(guān)閉 EXCEL 后通常應(yīng)釋放實例變量:Release oExcel(默認(rèn) 1)(默認(rèn)最末).F.-直接打印(默認(rèn).F.)(.F.)&共八個參數(shù)Word 文檔資料*參數(shù) 2-數(shù)值：終止頁號，省略則默認(rèn)為最后一頁*參數(shù) 3-數(shù)值：打印份數(shù)，省略則默認(rèn)為1 份*參數(shù) 4-邏輯值：是否預(yù)覽，省略則默認(rèn)為直接打印*參數(shù) 5-字符值：設(shè)置活動打印機名稱，省略則為默認(rèn)打印機Word 文檔資料*參數(shù) 6-邏輯值：是否輸出到文件，省略則默認(rèn)為否（.F.），若選且參數(shù) 8 為空，則 Excel提示輸入要輸出的文件名*參數(shù) 7-邏輯值：輸出類型，省略則默認(rèn)為（）逐份打印，否則逐頁打印*參數(shù) 8-字符值：當(dāng)參數(shù) 6 為.T時，設(shè)置要打印到的文件名用 VFP 控制 EXECL 的選擇打印機的窗口oExcel.applicati on. dialogs(8).sh