VFP全面控制EXCEL

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

2、(sheet3).Activate&設(shè)置第 3 個(gè)工作表為激活工作表eole.Workbooks.0penCDABC11.xls)&打開(kāi)指定工作簿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.&放棄存盤(pán)eole.ActiveSheet.UsedRange.Copy&拷貝整個(gè)工作表

3、eole.ActiveSheet.Range(A1:E2).Copy&拷貝指定區(qū)域eole.WorkSheet(Sheet2).Range(A1).PasteSpecial &粘貼eole.ActiveWorkbook.Saveeole.Workbooks.close&存盤(pán)（自動(dòng)存盤(pán)不提問(wèn)）&關(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&列的寬度（單位：字符個(gè)數(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 左對(duì)齊，3 居中，4 右對(duì)齊（其中 Borders 參數(shù)：1 左、2 右、3 頂、4 底、5 斜、6 斜/;eole.Range(A2:B2).selectLineStyle值：1 與7 細(xì)

5、9雙細(xì)實(shí)線）eole.ActiveSheet.Range(A1:BE29).Borders(1).LineStyle=1&設(shè)置四個(gè)邊框線條的類(lèi)型eole.ActiveSheet.Range(A1:BE29).Borders(2).LineStyle=1&設(shè)置四個(gè)邊框線條的類(lèi)型eole.ActiveSheet.Range(A1:BE29).Borders(3).LineStyle=1&設(shè)置四個(gè)邊框線條的類(lèi)型eole.ActiveSheet.Range(A1:BE29).Borders(4).LineStyle=1&設(shè)置四個(gè)邊框線條的類(lèi)型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è)置字體為斜體& 自動(dòng)換行eole.selection.HorizontalAlignment=3&水平方向 2 左對(duì)齊，3 居中，4 右對(duì)齊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、打印頁(yè)面的設(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è)置頁(yè)眉到頂端邊距為 2 厘米&設(shè)置頁(yè)腳到底邊距為 3 厘米&設(shè)置頂邊距為 4 厘米&設(shè)置底邊距為 4 厘米&設(shè)置左邊距為 2 厘米&設(shè)置右邊距為 2 厘米&設(shè)置頁(yè)面水平居中&設(shè)置頁(yè)面垂直居中&設(shè)置頁(yè)面紙大小8 5 1139 寬行 14 11)&橫向eole.ActiveSheet.PageSetup.CenterHeader=&14&BTMC&設(shè)置頁(yè)eole.ActiveSheet.PageSetup.CenterFooter=表_第&P 頁(yè)”&設(shè)置頁(yè)腳eole.Worksheets(Sheet1).Rows(18).PageBreak=1 &在第 18 行之前插入分頁(yè)符eole

12、.ActiveSheet.Columns(4).PageBreak=0&在第 4 列之前刪除分頁(yè)符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本文來(lái)自 CSDN 博客：http:/ 和 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 的oExcel.ActiveSheet.PageSetup.Zoom=90&縮放 90%4、記錄條數(shù)的利用*一般來(lái)講，EXCEL 表的來(lái)源為 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è)置四個(gè)邊框線條的類(lèi)型eole.ActiveSheet.Range(FWQ).Borders(2).LineStyle=1 &設(shè)置四個(gè)邊框線條的類(lèi)型eole.ActiveSheet.Range(FWQ).Borders(3).LineStyle=1 &設(shè)置四個(gè)邊框線條的類(lèi)型eole.ActiveSheet.Range(FWQ).Borders(4).LineStyle=1 &設(shè)置四個(gè)邊框線條的類(lèi)型5、VFP 下直接調(diào)用 EXC

15、EL、WORD 文件*eole.ActiveSheet.PrintOut&打印輸岀工作表Word 文檔資料控制作一下介紹：*!* 1 .創(chuàng)建 Excel 對(duì)象oExcel= Createobject(Excel.applicati on)*!* 2 .添加新工作簿oExcel.Workbooks. Add*!* 3 設(shè)置第 3 個(gè)工作表為激活工作表oExcel.Worksheets(sheet3). Activate*!* 4 打開(kāi)指定工作簿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ù)庫(kù)字段名)*!* 8 設(shè)置指定列的寬度(單位：字符個(gè)數(shù))oExcel.ActiveSheet.Columns.ColumnWidth=5*!* 9 設(shè)置指定行的高度(單位：磅)oExcel.ActiveSheet.Rows (1). RowHeight =1(設(shè)定行高為 1 磅，1 磅=0.035 厘米)Word 文檔資料*!* 10 在第 18 行之前插入分頁(yè)符oExcel.Wor

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

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

19、自定義,第&P 頁(yè)“ &后面的 28 可以自定義,*!* 18 設(shè)置頁(yè)眉到頂端邊距為2 厘米o(hù)Excel.ActiveSheet.PageSetup.Pri ntGridli nes=.T.Word 文檔資料oExcel.ActiveSheet.PageSetup.HeaderMargi n=2/0.*!* 19 設(shè)置頁(yè)腳到底邊距為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è)置頁(yè)面水平居中oExcel.ActiveSheet.PageSetup.Ce nterHorizo ntally=.T.*!* 25 .設(shè)置頁(yè)面垂直居中oExcel.ActiveSheet.PageSetup.Ce nterVert

21、ically=.T.*!* 26 .設(shè)置頁(yè)面紙大小 （1 窄行 8511 39 寬行 1411 9:A4）oExcel.ActiveSheet.PageSetup.Papersize=1*!* 27 打印單元格網(wǎng)線oExcel.ActiveSheet.Cells(1,4).ClearCo ntentsWord 文檔資料*!* 28 拷貝整個(gè)工作表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& 打印(菜單序號(hào)18 為 Excel2003 的打印項(xiàng))&不同版本 Excel 的菜單序號(hào)可以通過(guò)以下程序取得*(需要在 VFP7.0 以上運(yùn)行)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訪問(wèn) EXCEL： ExcelSheet = GetObject(”,Excel.Sheet)返回結(jié)果為類(lèi)，則成功。例：ExcelSheet = GetObject(,Exce

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

28、寫(xiě) 密 碼 的 文 件：oExcel.WorkBooks.Ope n(&lcFileName,.F.,&R_Pwd,&W_Pwd)&IcFileName-文件名,R_Pwd-讀密碼,W_Pwd-寫(xiě)密碼,第二個(gè)參數(shù)表示讀寫(xiě)方式：.T.只讀，.F.讀寫(xiě)Word 文檔資料設(shè)置新增工作薄的工作表數(shù)：oExcel.SheetsInNewWorkbook=1&新建工作表數(shù)量定為 1 個(gè)Word 文檔資料新增 EXCEL 工作?。簅Excel.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 為指定表號(hào)在最后工作表后新建工作表：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后臺(tái)操作報(bào)警關(guān)閉：oExcel.DisplayAlerts=.F.設(shè)置工作薄的標(biāo)題：oExcel.Caption=Vfp控制 Excel 操作當(dāng)前工作薄換名存盤(pán)： oExcel.ActiveWorkBook.SaveAs( &IcFileName) 換名存為文本文件：oExcel.ActiveWorkBook.Saveas(”&l cFileName,-4158) 加密碼換名存盤(pán)oExcel.ActiveW

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

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