VFP中操作EXCEL
eole=CREATEOBJECT("Excel.application") &&创建Excel对象
IF NOT TYPE("eole) = "O"
=MESSAGEBOX("Excel对象创建失败，程序将中止！", 16, "Error")
RETURN
ENDIF
eole.sheetsinnewworkbook=4 &&设置新增工作簿中工作表数
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"表示修改权限的密码.
* 第二个参数表示读写方式：.T.只读，.F.读写**当前工作薄工作表总数：
oExcel.WorkSheets.Count   &&如：lnSheetCnt=oExcel.WorkSheets.count
** 在指定工作表后新建工作表：
oExcel.Sheets.Add(,oExcel.Sheets(lnSheet),1,-4167)   &&lnSheet为指定表号
** 在最后工作表后新建工作表：
oExcel.Sheets.Add(,lnSheetsCnt,1,-4167)   &&lnSheetCnt为工作表总数
** 命名工作表：
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为数据库字段名) &&给单元格赋值
eole.cells(1,2).value="AF"                  
&& 给单元格赋值eole.Range("A2:B2").selecteole.selection.MergeCells = .T.                         
&& 合并单元eole.range("A2 ").value='情况统计表'
eole.range("A2 ").NumberFormatLocal = "@"      &&字符型
eole.ActiveSheet.Range("A1:BE29").NumberFormatLocal =;"_ * #,##0.00_ ; _ * -#,##0.00_ ;_ * "+"-"+"??_ ;_ @_ " && 指定区域内的数字显示格式
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" &&规定小数点位数ef.Columns("A").Select &&整列选择ef.Cells.Select &&选择整张表ef.Selection.Font.Size = 10 &&设置整表默认字体大小为10eole.ActiveSheet.Columns(A:B).ColumnWidth=30 &&设置指定列的宽度(单位：字符个数)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参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/)eole.ActiveSheet.Range('b3:d3').Borders(2).LineStyle=1 &&设置四个边框线条的类型 LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)&&能不能指定在某一位置或区域放置图片并控制图片显示大小呢? OLEAPP.SHEETS(1).SELECToleapp.Range("位置").Selectoleapp.ActiveSheet.Pictures.Insert("图片文件名")).Selectoleapp.Selection.ShapeRange.LockAspectRatio =.T.oleapp.Selection.ShapeRange.Height = 57*******问题：类型为字符型的字段输出到excel 中，前面的零被自动去掉，例如"009877"变为"9877"，怎么解决？*1.在字符串前面加半角单引号" ' "*2.eole.Range("A1:Y1").Select*eole.Selection.NumberFormatLocal = "@" *******!*    获取 Excel 记录数*!*    loXls = CREATEOBJECT("excel.application")*!*    bookExcel = loXls.