VFP全面控制EXCEL

1、精品最近正好有空，看到不少人對(duì)VFP 控制 EXCEL 有興趣，現(xiàn)將上次的“精華貼”重新整理一下，供各位愛(ài)好者參考！oExcel.Selection.NumberFormatLocal= "" && 把被選定的單元格設(shè)為文本格式1、對(duì)象的創(chuàng)建與關(guān)閉*eole=CREATEOBJECT('Excel.application')&& 創(chuàng)建 Excel 對(duì)象eole.Workbooks.add&& 添加新工作簿eole.Worksheets("sheet3").Activate&&

2、設(shè)置第 3 個(gè)工作表為激活工作表eole.Workbooks.Open("D:ABC11.xls")&& 打開指定工作簿eole.visible=.t.&&顯示 Excel 窗口eole.visible=.F.&&不顯示 Excel 窗口eole.Caption="VFP應(yīng)用程序調(diào)用 MicrosoftExcel"&& 更改 Excel 標(biāo)題欄eole.ActiveWorkbook.SaveAs("D:ABC22.xls")&& 工作表另為eole.Act

3、iveWorkbook.saved=.t.&&放棄存盤eole.ActiveSheet.UsedRange.Copy&&拷貝整個(gè)工作表eole.ActiveSheet.Range("A1:E2").Copy&&拷貝指定區(qū)域eole.WorkSheet("Sheet2").Range("A1").PasteSpecial&&粘貼eole.ActiveWorkbook.Save&&存盤（自動(dòng)存盤不提問(wèn)）eole.Workbooks.close&&

4、;關(guān)閉工作簿eole.quit&&退出 Excel2、單元格的設(shè)置 *eole.ActiveSheet.Columns("D:D").Delete&&刪除列eole.ActiveSheet.Columns("A:B").Delete&&刪除列eole.ActiveSheet.Columns(1).ColumnWidth=20&& 列的寬度 (單位：字符個(gè)數(shù) )eole.ActiveSheet.Columns(2).ColumnWidth=30eole.ActiveSheet.Columns(

5、"C:BE").ColumnWidth=9.5感謝下載載精品eole.Selection.Columns.AutoFit&&最適合的列寬eole.ActiveSheet.Range("b3:d3").Borders(2).Weight=3&&指定邊框線寬度(其中 Borders參數(shù)： 1 左、 2右、 3 頂、 4底、 5 斜、 6斜 / ；LineStyle值： 1 與 7 細(xì)實(shí)、 2細(xì)虛、 4 點(diǎn)虛、 9雙細(xì)實(shí)線 )eole.ActiveSheet.Range("A1:BE29").Borders(

6、1).LineStyle=1&&設(shè)置四個(gè)邊框線條的類型eole.ActiveSheet.Range("A1:BE29").Borders(2).LineStyle=1&&設(shè)置四個(gè)邊框線條的類型eole.ActiveSheet.Range("A1:BE29").Borders(3).LineStyle=1&&設(shè)置四個(gè)邊框線條的類型eole.ActiveSheet.Range("A1:BE29").Borders(4).LineStyle=1&&設(shè)置四個(gè)邊框線條的類型eole

7、.ActiveSheet.Rows(1).Insert&&在第 1 行之前插入一行eole.ActiveSheet.Columns(2).Insert&& 在第 2 列之前插入一列eole.cells(1,2).value="ABTMC"&&給單元格賦值eole.cells(2,2).value="&BBBB"&&給單元格賦值eole.ActiveSheet.Cells(1,4).ClearContents&& 清除單元格公式eole.ActiveSheet.Rows

8、(1).RowHeight=1/0.035&& 設(shè)置指定行的高度 ( 單位：磅 )*( 行高為 1厘米， 1磅=0.035厘米 )eole.ActiveSheet.ROWS(1).Font.Name="黑體 "&&設(shè)置字體eole.ActiveSheet.ROWS(1).Font.Size=14&&設(shè)置字體大小eole.ActiveSheet.ROWS(1).Font.Bold=.t.&&設(shè)置整行字體為粗體eole.ActiveSheet.Cells(1,1).Font.Italic=.t.&&

9、 設(shè)置字體為斜體eole.Range("A3:BE3").selecteole.selection.WrapText= .T.&&自動(dòng)換行eole.selection.HorizontalAlignment=3&&水平方向2 左對(duì)齊， 3 居中， 4 右對(duì)齊eole.selection.VerticalAlignment= 2&&垂直方向1 靠上，2 居中， 3 靠下eole.Range("A2:B2").select感謝下載載精品eole.selection.MergeCells= .T.&&am

10、p; 合并單元eole.selection.HorizontalAlignment=2&&水平方向2 左對(duì)齊， 3 居中， 4 右對(duì)齊eole.selection.VerticalAlignment= 2&&垂直方向1 靠上 ，2居中，3 靠下eole.Range("A5:M5").selecteole.Selection.Interior.ColorIndex= 34&&設(shè)置行顏色為 淡蘭 eole.ActiveSheet.Range("A1:BE29").NumberFormatLocal=；"

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

12、p;設(shè)置頂邊距為 4厘米eole.ActiveSheet.PageSetup.BottomMargin=4/0.035&& 設(shè)置底邊距為4 厘米eole.ActiveSheet.PageSetup.LeftMargin=2/0.035&&設(shè)置左邊距為 2 厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.035&&設(shè)置右邊距為 2厘米eole.ActiveSheet.PageSetup.CenterHorizontally=.t.&&設(shè)置頁(yè)面水平居中eole.ActiveSheet.Page

13、Setup.CenterVertically=.t.&&設(shè)置頁(yè)面垂直居中eole.ActiveSheet.PageSetup.PaperSize=8&&設(shè)置頁(yè)面紙張大小(1窄行 8 511 39 寬行 1411)eole.ActiveSheet.PageSetup.Orientation=2&&橫向eole.ActiveSheet.PageSetup.PrintTitleRows="$1:$3"&&定義固定行eole.ActiveSheet.PageSetup.PrintTitleColumns="$

14、A:$C"&& 定義固定列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.ActiveSheet.Columns(4).PageB

15、reak=0&&在第 4 列之前刪除分頁(yè)符感謝下載載精品eole.ActiveSheet.PageSetup.PrintGridlines=.t.&&打印單元格網(wǎng)線eole.ActiveSheet.PrintPreview&&打印預(yù)覽工作表eole.ActiveSheet.PrintOut&&打印輸出工作表oExcel.ActiveSheet.PageSetup.Zoom=90&& 縮放 90%4、記錄條數(shù)的利用*一般來(lái)講， EXCEL 表的來(lái)源為 DBF 文件，列、行應(yīng)該是可以預(yù)知的USE 111COUNTTO

16、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&&設(shè)置四個(gè)邊框線條的類型eole.ActiveSheet.Range(FWQ).Borders(3).LineStyle=1&&設(shè)置四個(gè)邊框線條的類型eole.ActiveSheet.Range(FWQ).B

17、orders(4).LineStyle=1&&設(shè)置四個(gè)邊框線條的類型5、 VFP 下直接調(diào)用EXCEL、 WORD 文件*DECLARE INTEGERShellExecuteINshell32.DLLINTEGERHWND,STRING,;STRINGlpszFile,STRING,STRING,INTEGERoperate="open"ShellExecute(0,operate,"C:111.XLS",0,0,1)&&EXCEL 文件ShellExecute(0,operate,"C:111.DOC&quo

18、t;,0,0,1)&&WORD 文件*VFP 全面控制 EXCEL感謝下載載精品本文來(lái)自 CSDN 博客： 913.aspxVFP 和 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 。下面就在開發(fā)VFP 應(yīng)用項(xiàng)目時(shí)對(duì)Excel的控制作一下介紹：*!*1 創(chuàng)建Excel對(duì)象oExcel=Createobject("Excel.application")*!*2 添加新工作簿oExcel

19、.Workbooks.Add*!*3 設(shè)置第3 個(gè)工作表為激活工作表oExcel.Worksheets("sheet3").Activate*!*4 打開指定工作簿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è)置指定

20、列的寬度(單位：字符個(gè)數(shù))oExcel.ActiveSheet.Columns(1).ColumnWidth=5*!* 9 設(shè)置指定行的高度 (單位：磅 )oExcel.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).PageBrea

21、k=1*!*11 在第 4 列之前刪除分頁(yè)符oExcel.ActiveSheet.Columns(4).PageBreak=0*!*12 指定邊框線寬度(Borders參數(shù)如下 )ole.ActiveSheet.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 與

22、 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.PageSetup.CenterHeader="&50報(bào)表 1"&&'&'后面的 50 可以自定義，表示字體的大小*!*16 設(shè)置頁(yè)腳oExcel.ActiveSheet.PageSetup.CenterFooter="第&P頁(yè)"*!*17. 設(shè)

23、置頁(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è)腳到底邊距為3 厘米o(hù)Excel.ActiveSheet.PageSetup.FooterMargin=3/0.035*!*20 設(shè)置頂邊距為2 厘米o(hù)Excel.Activ

24、eSheet.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.PageSetup.RightMargin=2/0.035*!*24 設(shè)置頁(yè)面水平居中oExcel.ActiveSheet.PageSetup.CenterHorizontally=.T.*!*25 設(shè)置頁(yè)

25、面垂直居中oExcel.ActiveSheet.PageSetup.CenterVertically=.T.*!*26 設(shè)置頁(yè)面紙張大小(1 窄行 851139 寬行14119:A4)oExcel.ActiveSheet.PageSetup.Papersize=1感謝下載載精品*!*27 打印單元格網(wǎng)線oExcel.ActiveSheet.PageSetup.PrintGridlines=.T.*!*28 拷貝整個(gè)工作表oExcel.ActiveSheet.UsedRange.Copy*!*29 拷貝指定區(qū)域oExcel.ActiveSheet.Range("A1:E2")

26、.Copy*!*30 粘貼oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial*!*31 在第 2 行之前插入一行oExcel.ActiveSheet.Rows(2).Insert*!*32 在第 2 列之前插入一列oExcel.ActiveSheet.Columns(2).Insert*!*33 設(shè)置字體oExcel.ActiveSheet.Cells(2,1).Font.Name="黑體 "*!*34 設(shè)置字體大小oExcel.ActiveSheet.Cells(1,1).Font

27、.Size=25感謝下載載精品*!*35 設(shè)置字體為斜體oExcel.ActiveSheet.Cells(1,1).Font.Italic=.T.*!*36 設(shè)置整列字體為粗體oExcel.ActiveSheet.Columns(1).Font.Bold=.T.*!*37 清除單元格公式oExcel.ActiveSheet.Cells(1,4).ClearContents*!*38 打印預(yù)覽工作表oExcel.ActiveSheet.PrintPreview*!*39 打印輸出工作表oExcel.ActiveSheet.PrintOut*!*40 oExcel.CommandBars(1).C

28、ontrols(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.ActiveSheetbars=xlapp.CommandBars.Count感謝下載載精品Str1=''Fori=1TobarsStr1=Str1+Chr

29、(13)+Alltrim(Str(i)+'、 '+xlapp.CommandBars(i).accName+'(NAME:'+xlapp.CommandBars(i).Name+'INDEX:'+Alltrim(Str(xlapp.CommandBars(i).Index)+')'bars2=mandbars(i).accChildCountForj=1Tobars2Tryobj=mandbars(i).Controls(j)Str1=Str1+Chr(13)+''+Alltrim(Str(j)+'、 &#

30、39;+mandbars(i).Controls(j).accname+'(ID:'+Alltrim(Str(xlapp.CommandBars(i).Controls(j).Id)+')'Fork=1Toobj.accChildCountTryIfNotEmpty(obj.Controls(k).accname)Str1=Str1+Chr(13)+''+Alltrim(Str(k)+'、 '+obj.Controls(k).accName+'(ID ： '+Alltrim(Str(obj.Controls(k).

31、Id)+')'EndifCatchExitEndtryEndfor感謝下載載精品CatchExitEndtryEndforWaitWindowsAlltrim(Str(i)+'/'+Alltrim(Str(bars)+''+Str(i/bars*100,10,2)+'%'NowaitEndforSaveToXls.txtAllLikeStr1ModifyCommandXls.txtReturn訪問(wèn) EXCEL： ExcelSheet = GetObject('','Excel.Sheet')返回結(jié)果

32、為類，則成功。例：ExcelSheet = GetObject('','Excel.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)

33、閉 EXCEL 后應(yīng)釋放該實(shí)例變量： RELEASE oExcel感謝下載載精品打開 已存 在的EXCEL文件：oExcel.WorkBooks.Open("&lcFileName")&&lcFileName為 Excel 文件名打開帶有讀寫密碼的文件：oExcel.WorkBooks.Open("&lcFileName",.F.,"&R_Pwd","&W_Pwd")&&lcFileName-文件名 ,R_Pwd- 讀密碼 ,W_Pwd- 寫密碼 ,第

34、二個(gè)參數(shù)表示讀寫方式：.T.只讀， .F.讀寫 設(shè)置新增工作薄的工作表數(shù)：oExcel.SheetsInNewWorkbook=1&& 新建工作表數(shù)量定為 1個(gè)新增 EXCEL 工作薄： oExcel.WorkBooks.Add當(dāng)前工作薄 工作表總數(shù) ：oExcel.WorkSheets.Count&&如：lnSheetCnt=oExcel.WorkSheets.count新增 EXCEL 工作表： oExcel.Sheets.Add&& 不帶參數(shù)為增加至當(dāng)前工作表之前在指定工作表后新建工作表：oExcel.Sheets.Add(,oExcel.

35、Sheets(lnSheet),1,-4167)&&lnSheet為指定表號(hào)在 最 后 工 作 表 后 新 建 工 作 表 ： oExcel.Sheets.Add(,lnSheetsCnt,1,-4167)&&lnSheetCnt為工作表總數(shù)激活工作表：oExcel.WorkSheets("Sheet1").Activate&& 激活工作表 1刪除工作表：oExcel.WorkSheets("Sheet2").Delete&& 刪除工作表 2命名工作表：oExcel.WorkSheets(&

36、quot;Sheet3").Name="新表 "&& 重命名工作表3使 EXCEL 可視： oExcel.Visible=.T.感謝下載載精品Excel 的窗口控制： oExcel.WindowState = -4140&& 最小化 =-4140，最大化 =-4137，還原 =-4143后臺(tái)操作報(bào)警關(guān)閉：oExcel.DisplayAlerts=.F.&& 關(guān)閉 (.F.)打開 (.T.)設(shè)置工作薄的標(biāo)題：oExcel.Caption="Vfp控制 Excel 操作 "當(dāng)前工作薄換名存盤：oExc

37、el.ActiveWorkBook.SaveAs("&lcFileName")換名存為文本文件：oExcel.ActiveWorkBook.Saveas("&lcFileName",-4158)加密碼換名存盤：oExcel.ActiveWorkbook.SaveAs(&lcFileName,-4143,3721,3721,.F., .F.)工作薄存盤：oExcel.WorkBooks.Save關(guān)閉工作?。簅Excel.WorkBooks.Close退出 EXCEL： oExcel.Quit&& 關(guān)閉 EXCEL 后

38、通常應(yīng)釋放實(shí)例變量：Release oExcel打印當(dāng)前工作簿： oExcel.ActiveWorkBook.PrintOut(1,oExcel.WorkSheets.count,1,.T.)* 默認(rèn)直接打印整個(gè)工作簿：oExcel.ActiveWorkBook.PrintOut()* 參數(shù) 1- 數(shù)值：當(dāng)前工作簿中進(jìn)行打印的起始工作表號(hào)( 默認(rèn) 1)* 參數(shù) 2- 數(shù)值：當(dāng)前工作簿中進(jìn)行打印的結(jié)束工作表號(hào)( 默認(rèn)最末 )* 參數(shù) 3- 數(shù)值：打印份數(shù) ( 默認(rèn) 1)* 參數(shù) 4- 是預(yù)覽打印還是直接打?。?.T.-預(yù)覽打印， .F.-直接打印 (默認(rèn) .F.)打印當(dāng)前工作表：oExcel.A

39、ctiveSheet.PrintOut()&& 共八個(gè)參數(shù)* 參數(shù) 1- 數(shù)值：起始頁(yè)號(hào)，省略則默認(rèn)為開始位置感謝下載載精品* 參數(shù) 2- 數(shù)值：終止頁(yè)號(hào)，省略則默認(rèn)為最后一頁(yè)* 參數(shù) 3- 數(shù)值：打印份數(shù)，省略則默認(rèn)為1份* 參數(shù) 4- 邏輯值：是否預(yù)覽，省略則默認(rèn)為直接打印(.F.)* 參數(shù) 5- 字符值：設(shè)置活動(dòng)打印機(jī)名稱，省略則為默認(rèn)打印機(jī)* 參數(shù) 6- 邏輯值：是否輸出到文件，省略則默認(rèn)為否(.F.)，若選 .T.且參數(shù) 8 為空，則Excel提示輸入要輸出的文件名* 參數(shù) 7- 邏輯值：輸出類型，省略則默認(rèn)為(.T.)逐份打印，否則逐頁(yè)打印* 參數(shù) 8- 字符值：當(dāng)

40、參數(shù) 6 為.T.時(shí)，設(shè)置要打印到的文件名用 VFP 控制 EXECL 的選擇打印機(jī)的窗口oExcel.application.dialogs(8).show預(yù)覽當(dāng)前工作表：oExcel.ActiveSheet.PrintPreview當(dāng)前工作表頁(yè)面設(shè)置：oExcel.ActiveSheet.PageSetup&& 如：With oExcel.ActiveSheet.PageSetup.CenterFooter="第 "+"&P"+"頁(yè) 共 "+"&N"+"頁(yè) "&& 頁(yè)腳