VFP全面控制EXCEL.doc

1、盛年不重來(lái)，一日難再晨。及時(shí)宜自勉，歲月不待人。盛年不重來(lái)，一日難再晨。及時(shí)宜自勉，歲月不待人。最近正好有空，看到不少人對(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&設(shè)置第 3 個(gè)工作表為激活工作表eole.Workbo

2、oks.Open(D:ABC11.xls)&打開指定工作簿eole.visible=.t.&顯示 Excel 窗口eole.visible=.F.&不顯示 Excel 窗口eole.Caption=VFP 應(yīng)用程序調(diào)用 Microsoft Excel& 更改 Excel 標(biāo)題欄eole.ActiveWorkbook.SaveAs(D:ABC22.xls)&工作表另為eole.ActiveWorkbook.saved=.t.&放棄存盤eole.ActiveSheet.UsedRange.Copy&拷貝整個(gè)工作表eole.ActiveSheet.Range(A1:E2).Copy&拷貝指定區(qū)域eo

3、le.WorkSheet(Sheet2).Range(A1).PasteSpecial&粘貼eole.ActiveWorkbook.Save&存盤（自動(dòng)存盤不提問(wèn)）eole.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=20&列的寬度(單位：字符個(gè)數(shù))eole.ActiveSheet.Columns(2).Co

4、lumnWidth=30eole.ActiveSheet.Columns(C:BE).ColumnWidth=9.5eole.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(1).LineStyle=1&設(shè)置四個(gè)邊框線條的類型eo

5、le.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.ActiveSheet.Rows(1).Insert&在第 1 行之前插入一行eole.ActiveSheet.Columns(2).Insert&在第 2 列之前插入一列eole.cells(1,

6、2).value=ABTMC&給單元格賦值eole.cells(2,2).value=&BBBB&給單元格賦值eole.ActiveSheet.Cells(1,4).ClearContents& 清除單元格公式eole.ActiveSheet.Rows(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.RO

7、WS(1).Font.Bold=.t.&設(shè)置整行字體為粗體eole.ActiveSheet.Cells(1,1).Font.Italic=.t.&設(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).selecteole.selection.MergeCell

8、s = .T.&合并單元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= ；_ * #,#0.00_ ; _ * -#,#0.00_ ;_ * +-+?_;_ _ &指定區(qū)

9、域內(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&設(shè)置頂邊距為4 厘米eole.ActiveSheet.PageSetup.BottomMargin=4/0.035&設(shè)置底邊距為4 厘米eole.ActiveSheet.PageSetup.LeftMargin=2/0.03

10、5&設(shè)置左邊距為2 厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.035&設(shè)置右邊距為2 厘米eole.ActiveSheet.PageSetup.CenterHorizontally=.t.&設(shè)置頁(yè)面水平居中eole.ActiveSheet.PageSetup.CenterVertically=.t.&設(shè)置頁(yè)面垂直居中eole.ActiveSheet.PageSetup.PaperSize=8&設(shè)置頁(yè)面紙張大小(1窄行 8 5 11 39寬行 14 11)eole.ActiveSheet.PageSetup.Orientation=2&橫向eole

11、.ActiveSheet.PageSetup.PrintTitleRows=$1:$3&定義固定行eole.ActiveSheet.PageSetup.PrintTitleColumns=$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).Pa

12、geBreak=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 111COUNT TO AAAUSEFWQ = A3:M+ALLT(STR(AAA+?) ?為 EXCEL 表插入的行數(shù)e

13、ole.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).Borders(4).LineStyle=1&設(shè)置四個(gè)邊框線條的類型5、 VFP 下直接調(diào)用EXCEL 、 WORD 文件*DECLAREINTEGERShellExecut

14、e IN shell32.DLLINTEGERHWND,STRING , ;STRINGlpszFile, STRING , STRING , INTEGERoperate= openShellExecute(0,operate,C:111.XLS,0,0,1)&EXCEL 文件ShellExecute(0,operate,C:111.DOC,0,0,1)&WORD 文件*VFP 全面控制 EXCEL本文來(lái)自 CSDN 博客：pxVFP和 Excel 都可以用來(lái)進(jìn)行處理數(shù)據(jù)庫(kù)表格，如果巧妙地將二者的優(yōu)點(diǎn)結(jié)合起來(lái)，將會(huì)大大方便我們的工作。比如我們可以利用VFP 進(jìn)行處理數(shù)據(jù)，而利用Excel的預(yù)

15、覽打印功能進(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.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)題欄o

16、Excel. 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(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 行至 1

17、00 行的高度*!* 10在第 18 行之前插入分頁(yè)符oExcel.Worksheets(Sheet1).Rows(18).PageBreak=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

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

19、t.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.ActiveSheet.PageSetup.TopMargin=2/0.035*!* 21設(shè)置底邊距為4 厘米o(hù)Excel.ActiveSheet.PageSetup.

20、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è)面垂直居中oExcel.ActiveSheet.PageSetup.CenterVertically=.T.*!* 26設(shè)置頁(yè)面紙張大小(1 窄行 8511

21、39 寬行 1411 9: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).Copy*!* 30粘貼oExcel.WorkSheet(Sheet2).Range(A1).PasteSpecial*!* 31在第 2 行之前插入一行oExcel.ActiveShee

22、t.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 . Size =25*!* 35設(shè)置字體為斜體oExcel.ActiveSheet.Cells(1,1).Font .Italic=.T.*!* 36設(shè)置整列字體為粗體oExcel.ActiveSheet.Columns(1).Font .Bold=.T

23、.*!* 37清除單元格公式oExcel.ActiveSheet.Cells(1,4).ClearContents*!* 38打印預(yù)覽工作表oExcel.ActiveSheet.PrintPreview*!* 39打印輸出工作表oExcel.ActiveSheet.PrintOut*!* 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.sh

24、eet)XlApp=oXLS. ApplicationXlSheet=XlApp.ActiveSheetbars=xlapp.CommandBars.CountStr1=Fori=1To 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).accChildCountForj=1To bars2Tryo

25、bj=mandbars(i).Controls(j)(i).Str1=Str1+Controls(j).accname+(ID:+Chr (13)+ + Alltrim ( Str (j)+ Alltrim ( Str (xlapp.CommandBars(i).、+mandbarsControls(j).Id )+)Fork=1 To obj.accChildCountTryIfNotEmpty(obj.Controls(k).accname )Str1=Str1+Chr(13)+ +Alltrim( Str(k)+、 +obj.Controls(k).accName+ (ID： +Allt

26、rim( Str (obj.Controls(k).Id )+)EndifCatchExitEndtryEndforCatchExitEndtryEndforWait Windows Alltrim2)+%NowaitEndforSave To Xls.txtAll LikeModify Command Xls.txtReturn( Str (i)+ / + Str1Alltrim( Str (bars)+ +Str (i/bars*100,10,訪問(wèn) EXCEL ： ExcelSheet = GetObject(,Excel.Sheet)返回結(jié)果為類，則成功。例：ExcelSheet = G

27、etObject(,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)閉EXCEL 后應(yīng)釋放該實(shí)例變量： RELEASE oExcel打開已存在的EXCEL文件： oExcel.WorkBooks.Open(&lcFileName)&lcFileName為 Excel 文件名

28、打開帶有讀寫密碼的文件：oExcel.WorkBooks.Open(&lcFileName,.F.,&R_Pwd,&W_Pwd)&lcFileName-文件名 ,R_Pwd- 讀密碼 ,W_Pwd- 寫密碼 ,第二個(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 工作

29、表： oExcel.Sheets.Add& 不帶參數(shù)為增加至當(dāng)前工作表之前在 指 定 工 作 表 后 新 建 工 作 表 ： oExcel.Sheets.Add(,oExcel.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

30、命名工作表：oExcel.WorkSheets(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)前工作薄換名存盤：oExcel.ActiveWorkBook.SaveAs(&lcFileName)換名存為文

31、本文件：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后通常應(yīng)釋放實(shí)例變量：Release oExcel打印當(dāng)前工作簿：oExcel.ActiveWorkBook.PrintOut(1,oExcel.WorkSheets.count,1

32、,.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.ActiveSheet.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)參數(shù)6 為 .T.時(shí)，設(shè)置要打印到的文件名用 VFP 控制 EXECL 的選擇打印機(jī)的窗口oExcel.application.dialogs(8).show預(yù)覽當(dāng)前工作表：oExce