VFP中操作EXCEL

Alkaid2015 2013-10-22

展開全文

VFP中操作EXCEL
eole=CREATEOBJECT("Excel.application") &&創(chuàng)建Excel對象
IF NOT TYPE("eole) = "O"
=MESSAGEBOX("Excel對象創(chuàng)建失敗，程序將中止！", 16, "Error")
RETURN
ENDIF
eole.sheetsinnewworkbook=4 &&設置新增工作簿中工作表數(shù)
eole.Workbooks.add &&添加新工作簿
**eole.workbooks.add('&mycurdir1.ptjh_hz.xlt')    &&添加模板
eole.Worksheets('sheet3').Activate &&設置第3個工作表為激活工作表
*eole.Workbooks.Open('c:\temp\ll.xls')&&打開指定工作簿
oEle.Workbooks.Open("d:\22.xls",.f.,.f., ,"123","456") &&打開有密碼的Excel文件
* ,"123"表示打開權限的密碼,"456"表示修改權限的密碼.
* 第二個參數(shù)表示讀寫方式：.T.只讀，.F.讀寫**當前工作薄工作表總數(shù)：
oExcel.WorkSheets.Count   &&如：lnSheetCnt=oExcel.WorkSheets.count
** 在指定工作表后新建工作表：
oExcel.Sheets.Add(,oExcel.Sheets(lnSheet),1,-4167)   &&lnSheet為指定表號
** 在最后工作表后新建工作表：
oExcel.Sheets.Add(,lnSheetsCnt,1,-4167)   &&lnSheetCnt為工作表總數(shù)
** 命名工作表：
oExcel.WorkSheets("Sheet3").Name="新表"    &&重命名工作表3
**Excel的窗口控制：
oExcel.WindowState = -4140 &&最小化=-4140，最大化=-4137，還原=-4143eole.visible=.t. &&顯示Excel窗口
eole.Caption='VFP應用程序調用Microsoft Excel'&&更改Excel標題欄
*eole.cells(1,4).value=XM &&(XM為數(shù)據庫字段名) &&給單元格賦值
eole.cells(1,2).value="AF"
&& 給單元格賦值eole.Range("A2:B2").selecteole.selection.MergeCells = .T.
&& 合并單元eole.range("A2 ").value='情況統(tǒng)計表'
eole.range("A2 ").NumberFormatLocal = "@"      &&字符型
eole.ActiveSheet.Range("A1:BE29").NumberFormatLocal =;"_ * #,##0.00_ ; _ * -#,##0.00_ ;_ * "+"-"+"??_ ;_ @_ " && 指定區(qū)域內的數(shù)字顯示格式
eole.selection.HorizontalAlignment=2                     && 水平方向　2左對齊，3居中，4右對齊eole.selection.VerticalAlignment = 2                     && 垂直方向　1靠上　，2居中，3靠下eole.Range("A5:M5").selecteole.Selection.Interior.ColorIndex = 34                  && 設置行顏色為[淡蘭]eole.selection.WrapText = .T.       && 自動換行eole.ActiveSheet.Cells(2,1).Font.Name='黑體' &&設置字體eole.ActiveSheet.Cells(1,1).Font.Size=25 &&設置字體大小eole.ActiveSheet.Cells(1,1).Font.Italic=.t. &&設置字體為斜體eole.ActiveSheet.Columns(1).Font.Bold=.t. &&設置整列字體為粗體*vfp_excel.ActiveCell.Characters.Font.Underline = 2 &&下劃線vfp_excel.ActiveCell.Characters.Font.ColorIndex = 0 &&字符顏色vfp_excel.cells(lines+rwi,9).NumberFormatLocal = "0" &&規(guī)定小數(shù)點位數(shù)ef.Columns("A").Select &&整列選擇ef.Cells.Select &&選擇整張表ef.Selection.Font.Size = 10 &&設置整表默認字體大小為10eole.ActiveSheet.Columns(A:B).ColumnWidth=30 &&設置指定列的寬度(單位：字符個數(shù))eole.ActiveSheet.Rows(1).RowHeight=1/0.035 &&設置指定行的高度為1厘米，1磅=0.035厘米eole.Selection.Columns.AutoFit             && 最適合的列寬eole.ActiveSheet.Range('b3:d3').Borders(2).Weight=3 &&指定邊框線寬度(Borders參數(shù)：1－左、2－右、3－頂、4－底、5－斜、6－斜/)eole.ActiveSheet.Range('b3:d3').Borders(2).LineStyle=1 &&設置四個邊框線條的類型 LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)&&能不能指定在某一位置或區(qū)域放置圖片并控制圖片顯示大小呢? OLEAPP.SHEETS(1).SELECToleapp.Range("位置").Selectoleapp.ActiveSheet.Pictures.Insert("圖片文件名")).Selectoleapp.Selection.ShapeRange.LockAspectRatio =.T.oleapp.Selection.ShapeRange.Height = 57*******問題：類型為字符型的字段輸出到excel 中，前面的零被自動去掉，例如"009877"變?yōu)?9877"，怎么解決？*1.在字符串前面加半角單引號" ' "*2.eole.Range("A1:Y1").Select*eole.Selection.NumberFormatLocal = "@" *******!*    獲取 Excel 記錄數(shù)*!*    loXls = CREATEOBJECT("excel.application")*!*    bookExcel = loXls.