|
VFP中操作EXCEL eole=CREATEOBJECT("Excel.application") &&創(chuàng)建Excel對(duì)象 IF NOT TYPE("eole) = "O" =MESSAGEBOX("Excel對(duì)象創(chuàng)建失敗，程序?qū)⒅兄梗?, 16, "Error") RETURN ENDIF eole.sheetsinnewworkbook=4 &&設(shè)置新增工作簿中工作表數(shù) eole.Workbooks.add &&添加新工作簿 **eole.workbooks.add('&mycurdir1.ptjh_hz.xlt') &&添加模板 eole.Worksheets('sheet3').Activate &&設(shè)置第3個(gè)工作表為激活工作表 *eole.Workbooks.Open('c:\temp\ll.xls')&&打開(kāi)指定工作簿 oEle.Workbooks.Open("d:\22.xls",.f.,.f., ,"123","456") &&打開(kāi)有密碼的Excel文件 * ,"123"表示打開(kāi)權(quán)限的密碼,"456"表示修改權(quán)限的密碼. * 第二個(gè)參數(shù)表示讀寫(xiě)方式：.T.只讀,，.F.讀寫(xiě)**當(dāng)前工作薄工作表總數(shù)： oExcel.WorkSheets.Count &&如：lnSheetCnt=oExcel.WorkSheets.count ** 在指定工作表后新建工作表： oExcel.Sheets.Add(,oExcel.Sheets(lnSheet),1,-4167) &&lnSheet為指定表號(hào) ** 在最后工作表后新建工作表： 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應(yīng)用程序調(diào)用Microsoft Excel'&&更改Excel標(biāo)題欄 *eole.cells(1,4).value=XM &&(XM為數(shù)據(jù)庫(kù)字段名) &&給單元格賦值 eole.cells(1,2).value="AF" && 給單元格賦值eole.Range("A2:B2").selecteole.selection.MergeCells = .T. && 合并單元eole.range("A2 ").value='情況統(tǒng)計(jì)表' eole.range("A2 ").NumberFormatLocal = "@" &&字符型 eole.ActiveSheet.Range("A1:BE29").NumberFormatLocal =;"_ * #,##0.00_ ; _ * -#,##0.00_ ;_ * "+"-"+"??_ ;_ @_ " && 指定區(qū)域內(nèi)的數(shù)字顯示格式 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.selection.WrapText = .T. && 自動(dòng)換行eole.ActiveSheet.Cells(2,1).Font.Name='黑體' &&設(shè)置字體eole.ActiveSheet.Cells(1,1).Font.Size=25 &&設(shè)置字體大小eole.ActiveSheet.Cells(1,1).Font.Italic=.t. &&設(shè)置字體為斜體eole.ActiveSheet.Columns(1).Font.Bold=.t. &&設(shè)置整列字體為粗體*vfp_excel.ActiveCell.Characters.Font.Underline = 2 &&下劃線vfp_excel.ActiveCell.Characters.Font.ColorIndex = 0 &&字符顏色vfp_excel.cells(lines+rwi,9).NumberFormatLocal = "0" &&規(guī)定小數(shù)點(diǎn)位數(shù)ef.Columns("A").Select &&整列選擇ef.Cells.Select &&選擇整張表ef.Selection.Font.Size = 10 &&設(shè)置整表默認(rèn)字體大小為10eole.ActiveSheet.Columns(A:B).ColumnWidth=30 &&設(shè)置指定列的寬度(單位：字符個(gè)數(shù))eole.ActiveSheet.Rows(1).RowHeight=1/0.035 &&設(shè)置指定行的高度為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 &&設(shè)置四個(gè)邊框線條的類(lèi)型 LineStyle值：1與7－細(xì)實(shí),、2－細(xì)虛、4－點(diǎn)虛,、9－雙細(xì)實(shí)線)&&能不能指定在某一位置或區(qū)域放置圖片并控制圖片顯示大小呢? OLEAPP.SHEETS(1).SELECToleapp.Range("位置").Selectoleapp.ActiveSheet.Pictures.Insert("圖片文件名")).Selectoleapp.Selection.ShapeRange.LockAspectRatio =.T.oleapp.Selection.ShapeRange.Height = 57*******問(wèn)題：類(lèi)型為字符型的字段輸出到excel 中,，前面的零被自動(dòng)去掉，例如"009877"變?yōu)?9877",，怎么解決,？*1.在字符串前面加半角單引號(hào)" ' "*2.eole.Range("A1:Y1").Select*eole.Selection.NumberFormatLocal = "@" *******!* 獲取 Excel 記錄數(shù)*!* loXls = CREATEOBJECT("excel.application")*!* bookExcel = loXls. |
|
|
來(lái)自： Alkaid2015 > 《75.VFP狐仙◆》
