VFP 控制 EXCEL 的方法(最全).doc

新编 VFP 控制 EXCEL 的方法最近正好有空，看到不少人对VFP控制EXCEL有兴趣，现将上次的精华贴重新整理一下，供各位爱好者参考！1、对象的创建与关闭 *eole=CREATEOBJECT(Excel.application) & 创建Excel对象eole.Workbooks.add & 添加新工作簿eole.Worksheets(sheet3).Activate & 设置第3个工作表为激活工作表eole.Workbooks.Open(D:ABC11.xls) & 打开指定工作簿eole.visible=.t. & 显示Excel窗口eole.visible=.F. & 不显示Excel窗口eole.Caption=VFP应用程序调用Microsoft Excel & 更改Excel标题栏eole.ActiveWorkbook.SaveAs(D:ABC22.xls) & 工作表另为eole.ActiveWorkbook.saved=.t. & 放弃存盘eole.ActiveSheet.UsedRange.Copy & 拷贝整个工作表eole.ActiveSheet.Range(A1:E2).Copy & 拷贝指定区域eole.WorkSheet(Sheet2).Range(A1).PasteSpecial & 粘贴eole.Sheets.Count &sheets的数量eole.Sheets.item(1).cell(1,1) &sheet1的单元格存取（无需激活）eole.ActiveWorkbook.Save & 存盘（自动存盘不提问）eole.Workbooks.close & 关闭工作簿eole.quit & 退出Excel2、单元格的设置 *eole.ActiveSheet.Columns(D:D).Delete & 删除列eole.ActiveSheet.Columns(A:B).Delete & 删除列 eole.ActiveSheet.Columns(1).ColumnWidth=20 & 列的宽度(单位：字符个数)eole.ActiveSheet.Columns(2).ColumnWidth=30eole.ActiveSheet.Columns(C:BE).ColumnWidth=9.5eole.Selection.Columns.AutoFit & 最适合的列宽eole.ActiveSheet.Range(b3:d3).Borders(2).Weight=3 & 指定边框线宽度 (其中Borders参数：1左、2右、3顶、4底、5斜、6斜/； LineStyle值：1与7细实、2细虚、4点虚、9双细实线)eole.ActiveSheet.Range(A1:BE29).Borders(1).LineStyle=1 & 设置四个边框线条的类型eole.ActiveSheet.Range(A1:BE29).Borders(2).LineStyle=1 & 设置四个边框线条的类型eole.ActiveSheet.Range(A1:BE29).Borders(3).LineStyle=1 & 设置四个边框线条的类型eole.ActiveSheet.Range(A1:BE29).Borders(4).LineStyle=1 & 设置四个边框线条的类型eole.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.cells(1,2).value=ABTMC+CHR(10)+ABTMC & 单元格内强制换行eole.ActiveSheet.Rows(1).RowHeight=1/0.035 & 设置指定行的高度(单位：磅) *(行高为1厘米，1磅=0.035厘米)eole.ActiveSheet.ROWS(1).Font.Name=黑体 & 设置字体eole.ActiveSheet.ROWS(1).Font.Size=14 & 设置字体大小eole.ActiveSheet.ROWS(1).Font.Bold=.t. & 设置整行字体为粗体eole.ActiveSheet.Cells(1,1).Font.Italic=.t. & 设置字体为斜体eole.ActiveSheet.ROWS(1).Font.Underline = .t. & 设置下划线eole.ActiveSheet.ROWS(1).Font.FontStyle = 常规 & 字形eole.ActiveSheet.ROWS(1).Font.OutlineFont = .t. & 删除线-取数据的一部分进行操作-eole.ActiveSheet.Cells(1,1).Characters(3,2).Font.Bold= .T. &取单元格数值的一部分进行设定,其中3为取得的起始位置，2为取得的字符个数。本例为将单元格（1,1）中数据的从第3个字符开始的2个字符的字体加粗。eole.ActiveSheet.Cells(1,1).Characters(3,2).Font.Superscript = .t. &设置上标（本例为将单元格（1,1）中数据的从第3个字符开始的2个字符）eole.ActiveSheet.Cells(1,1).Characters(3,2).Font. SubScript = .t. &设置下标（本例为将单元格（1,1）中数据的从第3个字符开始的2个字符）eole.Range(A3:BE3).selecteole.selection.WrapText = .T. & 自动换行eole.selection.HorizontalAlignment=3 & 水平方向2左对齐，3居中，4右对齐eole.selection.VerticalAlignment = 2 & 垂直方向1靠上，2居中，3靠下eole.Range(A2:B2).selecteole.selection.MergeCells = .T. & 合并单元eole.selection.HorizontalAlignment=2 & 水平方向2左对齐，3居中，4右对齐eole.selection.VerticalAlignment = 2 & 垂直方向1靠上，2居中，3靠下eole.Range(A5:M5).selecteole.Selection.Interior.ColorIndex = 34 & 设置行颜色为淡兰eole.ActiveSheet.Range(A1:BE29).NumberFormatLocal = ；_ * #,#0.00_ ; _ * -#,#0.00_ ;_ * +-+?_ ;_ _ & 指定区域内的数字显示格式3、打印页面的设置 *eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 & 设置页眉到顶端边距为2厘米 eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 & 设置页脚到底边距为3厘米eole.ActiveSheet.PageSetup.TopMargin=4/0.035 & 设置顶边距为4厘米eole.ActiveSheet.PageSetup.BottomMargin=4/0.035 & 设置底边距为4厘米eole.ActiveSheet.PageSetup.LeftMargin=2/0.035 & 设置左边距为2厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.035 & 设置右边距为2厘米eole.ActiveSheet.PageSetup.CenterHorizontally=.t. & 设置页面水平居中 eole.ActiveSheet.PageSetup.CenterVertically=.t. & 设置页面垂直居中eole.ActiveSheet.PageSetup.PaperSize=8 & 设置页面纸张大小 (1窄行8 5 11 39宽行14 11)eole.ActiveSheet.PageSetup.Orientation=2 & 横向eole.ActiveSheet.PageSetup.PrintTitleRows=$1:$3 & 定义固定行eole.ActiveSheet.PageSetup.PrintTitleColumns=$A:$C & 定义固定列eole.ActiveSheet.PageSetup.CenterHeader= &14&BTMC & 设置页眉eole.ActiveSheet.PageSetup.CenterFooter=&9 表_第&P页 & 设置页脚&后面的9可以自定义，表示字体的大小eole.ActiveSheet.PageSetup.FirstPageNumber = 5 &设置起始页码eole.Worksheets(Sheet1).Rows(18).PageBreak=1 & 在第18行之前插入分页符eole.ActiveSheet.Columns(4).PageBreak=0 & 在第4列之前删除分页符eole.ActiveSheet.PageSetup.PrintGridlines=.t. & 打印单元格网线eole.ActiveSheet.PrintPreview & 打印预览工作表eole.ActiveSheet.PrintOut & 打印输出工作表4、记录条数的利用 *一般来讲，EXCEL表的来源为DBF文件，列、行应该是可以预知的USE 111COUNT TO AAAUSEFWQ = A3:M+ALLT(STR(AAA+?) ?为EXCEL表插入的行数eole.ActiveSheet.Range(FWQ).Borders(1).LineStyle=1 & 设置四个边框线条的类型eole.ActiveSheet.Range(FWQ).Borders(2).LineStyle=1 & 设置四个边框线条的类型eole.ActiveSheet.Range(FWQ).Borders(3).LineStyle=1 & 设置四个边框线条的类型eole.ActiveSheet.Range(FWQ).Borders(4).LineStyle=1 & 设置四个边框线条的类型5、插入图片*eole.Range(A5:M5).Select &选中位置eole.ActiveSheet.Pictures.Insert(“d:image.jpg”).Select &插入图片eole.Selection.ShapeRange.LockAspectRatio = .T. &锁定比例eole.Selection.ShapeRange.Height = 10/0.35 &设定高度eole.Selection.ShapeRange.Width = 10/0.35 &设定宽度6、VFP下直接调用EXCEL、WORD文件 *DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, ; STRING lpszFile, STRING, STRING, INTEGERoperate= openShellExecute(0,operate,C:111.XLS,0,0,1) & EXCEL文件ShellExecute(0,operate,C:111.DOC,0,0,1) & WORD文件* C# 操作Excel属性 数字(Range.NumberFormatlocal 属性)常规：Range.NumberFormatlocal = G/通用格式数值：Range.NumberFormatlocal = 0.000_ -保留小数位数为3Range.NumberFormatlocal = 0 -不要小数Range.NumberFormatlocal = #,#0.000 -保留小数位数为3，并使用千位分隔符货币：Range.NumberFormatlocal = $#,#0.000百分比：Range.NumberFormatlocal = 0.000%分数：Range.NumberFormatlocal = # ?/?科学计数：Range.NumberFormatlocal = 0.00E+00文本：Range.NumberFormatlocal = 特殊：Range.NumberFormatlocal = 000000-邮政编码Range.NumberFormatlocal = DBNum1G/通用格式-中文小写数字Range.NumberFormatlocal = DBNum2G/通用格式-中文大写数字Range.NumberFormatlocal = DBNum2$RMBG/通用格式-人民币大写对齐水平对齐：Range.HorizontalAlignment = etHAlignCenter -居中垂直对齐：Range.VerticalAlignment = etVAlignCenter-居中是否自动换行：Range.WrapText = True是否缩小字体填充：Range.ShrinkToFit = True是否合并单元格：Range.MergeCells = False文字竖排：Range.Orientation = etVertical文字倾斜度数：Range.Orientation = 45 -倾斜45度字体（Font对象）字体名称：Font.Name = 华文行楷字形：Font.FontStyle = 常规字号：Font.Size = 10下划线：Font.Strikethrough = True; Font.Underline = etUnderlineStyleDouble -双下划线上标：Font.Superscript = True下标：Font.SubScript = True删除线：Font.OutlineFont = True边框（Borders对象）Borders.Item(etEdgeTop)：上边框Borders.Item(etEdgeLeft)：左边框Borders.Item(etEdgeRight)：右边框Borders.Item(etEdgeBottom)：下边框Borders.Item(etDiagonalDown)：左上-右下边框Borders.Item(etDiagonalUp)：左下-右上边框Border.LineStyle = etContinuous 线条样式 7、示例 1-录制页面设置1. 创建一个新的工作簿。 2. 激活该工作簿中的工作表。 3. 在工具菜单上指向录制宏，然后单击录制新宏。 在 Microsoft Excel 97 和 Microsoft Excel 98 单击工具菜单，指向宏，然后单击录制新宏。 4. 录制新宏对话框中选择选项按钮。在语言部分确保Visual Basic选项按钮被选定。（忽略这一步在 Microsoft Excel 97 和 Microsoft Excel 98 中的）。 5. 在存储中的部分确保选定了当前工作簿选项按钮。 6. 单击确定以开始录制。 7. 在文件菜单上单击页面设置。 8. 在页面设置对话框中单击确定。 9. 在工具菜单上指向录制宏，然后单击停止录制。 10. 激活新的 Visual Basic 模块。您已记录的子例程应该出现类似于以下内容 （的说明中添加了批注）-它们实际上不记录。 11. Sub Macro1()12. With ActiveSheet.PageSetup This is the first part.13. .PrintTitleRows = 14. .PrintTitleColumns = 15. End With16. ActiveSheet.PageSetup.PrintArea = This is the second part.17. With ActiveSheet.PageSetup This is the third part.18. .LeftHeader = 19. .CenterHeader = &A20. .RightHeader = 21. .LeftFooter = 22. .CenterFooter = Page &P23. .RightFooter = 24. .LeftMargin = Application.InchesToPoints(0.75)25. .RightMargin = Application.InchesToPoints(0.75)26. .TopMargin = Application.InchesToPoints(1)27. .BottomMargin = Application.InchesToPoints(1)28. .HeaderMargin = Application.InchesToPoints(0.5)29. .FooterMargin = Application.InchesToPoints(0.5)30. .PrintHeadings = False31. .PrintGridlines = True32. .PrintNotes = False33. .CenterHorizontally = False34. .CenterVertically = False35. .Orientation = xlPortrait36. .Draft = False37. On a Macintosh computer, omit the following line.38. .PaperSize = xlPaperLetter39. .FirstPageNumber = xlAutomatic40. .Order = xlDownThenOver41. .BlackAndWhite = False42. .Zoom = 10043. End With44. End Sub记录 PageSetup 函数时, 设置都记录在三个部分中： 1. 第一部分是一个替换端随部分设置该 PrintTitleRows 和该 PrintTitleColumns 它。 2. 第二部分设置该 PrintArea。 3. 第三部分是一个替换端随部分，它设置的所有其他设置。 如果实际上不想更改.Draft，如的某些设置可以从该子例程中删除这些行。例如对于如果只想更改该 PrintTitleRows、 PrintArea 和方向，您可以使用以下： Sub Macro1() With ActiveSheet.PageSetup .PrintTitleRows = $1:$3 .PrintArea = $A$4:$C$100 .Orientation = xlLandscape End With End Sub由于不需要的其他设置进行更改，则没有必要将其包含在该子例程。但是，您必须删除它们自己。 同时，请注意可以将整个 PageSetup 过程合并到单个随客户端使用部分。它并不是要将从其他设置分别更改 PrintArea、 PrintTitleRows 或 PrintTitleColumns 设置必需的 ； 它只记录这种方式。 回到顶端示例二-PageSetup 执行时防止屏幕闪烁下面的子例程演示如何在其中您可能会防止屏幕闪烁 PageSetup 函数在执行时的一种方法。 ub PreventScreenFlicker() This line turns off screen updating. Application.ScreenUpdating = False Apply each of the following properties to the active sheets Page Setup. With ActiveSheet.PageSetup .PrintTitleRows = $1:$3 Set print title rows. .PrintTitleColumns = $A:$C Set print title columns. .LeftHeader = Set the left header. More commands could appear before the End With. They are not shown here in order to keep the example short. End With End of With section. Re-enable screen updating. This line is optional; you may not need or want to re-enable screen updating. Application.ScreenUpdating = True End Sub子例程将关闭屏幕更新之前执行 PageSetup 函数，然后打开屏幕上时 PageSetup 函数已完成的更新后。 如果屏幕更新不关闭，作为执行部分 （.PrintTitleRows、.PrintTitleColumns，等） 时，将替换中的每一行可能会稍有闪烁屏幕。 VFP中利用Excel制作数据库报表李元笔者在工作中总结出了在VFP运行中利用Excel电子表格制作数据库报表的方法。编程中主要使用了CreateObject()函数，它可从类定义或支持OLE自动化的应用程序中创建对象，并将对象引用赋给变量或数组元素；若使用用户自定义类，则在创建对象之前，用户自定义类必须先用 Define Class 来创建，或者用 SET Classlib 打开的 .VCX 可视类库中的类。假定在一个VFP项目中有数据表：table1.dbf（其中总分暂为0）：我们希望在VFP的这个项目运行时，调用Excel来处理这个数据表，并将处理结果存盘。下面的程序excel01.prg实现了这些要求，程序中用CreateObject()函数启动Excel，并新建一个Excel工作簿，然后打开数据表table1.dbf，取得该表的记录数，并将表table1.dbf的记录数据逐条送到这个工作簿的工作表Sheet1中（同时计算各记录的总分），稍加修改（例如设置字体、字号，画表格线等）作出这个数据表的报表，并用temp.xls文件名存盘。excel01.prg源程序如下：SET DEFAULT TO d:myvfpkwsjk ClearoleApp = CREATEOBJECT(Excel.Application)oleApp.Visible=.T. 显示 Excel。 oleApp.Workbooks.Add 设置单元格的值（报表标题）：oleApp.Cells(1,1).Value=贵州大学计算机软件与理论研究所oleApp.Cells(2,1).Value=学生成绩表oleApp.Cells(4,1).Value=姓名oleApp.Cells(4,2).Value=数学oleApp.Cells(4,3).Value=网络oleApp.Cells(4,4).Value=数据库oleApp.Cells(4,5).Value=英语oleApp.Cells(4,6).Value=人工智能oleApp.Cells(4,7).Value=总分 打开数据表，取得该表的记录数use table1.dbf jl=RECCOUNT()1 将数据表中的记录数据放入Excel工作簿的单元格中FOR i=0 TO jlgo i1 第i1条记录 oleApp.Cells(5i,1).Value=table1.姓名oleApp.Cells(5i,2).Value=table1.数学oleApp.Cells(5i,3).Value=table1.网络oleApp.Cells(5i,4).Value=table1.数据库 oleApp.Cells(5i,5).Value=table1.英语oleApp.Cells(5i,6).Value=table1.人工智能 计算总分：oleApp.Cells(5i,7).Value=table1.数学table1.网络table1.数据库table1.英语table1.人工智能ENDFOR OleApp.ActiveWorkbook.SaveAs(D:myvfpkwsjktemp.XLS) (三)微软公司的VFP6.0功能强大，但在制作报表方面似乎略嫌不够，而Excel刚好可以弥补其缺陷。在VFP中调用Excel生成报表，不仅可以节省时间，而且在排版方面具有更大的优势。调用命令要调用Excel，有必要先了解下述命令语句及其功能。1、创建Excle对象eole=createobject(Excel.application)2、添加新的工作簿eole.workbooks.add3、设置第三个工作表为激活工作表eole.worksheets.(sheet3).activate4、打开指定工作簿eole.workbooks.open(c:demo.xls)5、显示Excel窗口eole.visible=.t.6、给单元格赋值eole.cells(1,4).value=xm其中：xm为表的字段名7、设置四个边框线条的类型eole.activatesheet.range(b3:d3).borders(2).linestyle=1其中：borders参数：1-左；2-右；3-顶；4-底；5-斜/；6-反斜。linestyle参数：1和7-细实线；2-细虚线；4-点虚线；9-双细实线8、设置字体eole.activatesheet.cells(2,1).=黑体9、字体大小eole.activatesheet.cells(1,1).fontsize=2510、打印预览工作表eole.activatesheet.printpreview11、打印输出eole.activatesheet.printout12、关闭工作簿eole.workbooks.close13、退出Exceleole.quit程序实现当熟悉了上述功能语句的用法及其效用后，我们可试着编写一个简单的应用程序。在VF命令窗口中输入modify command，然后在文本框中输入以下代码(&及其后的内容表示注释)：use a.dbf &在实际应用中a用真实表名代替eole=createobject(excel.application)eole.workbooks.addeole.worksheets(sheet1).activateeole.visible=.t.k=fcount() &取得字段数for l=1 to keole.cells(1,l).value=field(l)endfor &在(1,x)单元格中写入字段名称i=reccount() &取得记录个数for j=1 to iwait 正在写入完第+alltrim(str(j,5)+条记录 window nowaitfor x=1 to kzhi=field(x)eole.cells(j+1,x).value=&zhi &在(j+1,x)单元格写入记录值endforendforwait 记录写完 window timeout 3文件保存为b.prg，在命令窗口中执行do b.prg，等待一会儿我们就可看到生成的Excel表，试着预览一下，效果还不错。以上只是其应用的简单一例，相信当您熟练地掌握了调用命令语句后，可以开发出更完善的应用程序，希望以上会对广大VFP爱好者有所帮助。以上代码在Windows 98 + VFP6.0环境下调试通过。 (四)以下为调用EXCEL处理文件格式lcmsg=正在访问 Excel 软件WAIT lcmsg WINDOW NOWAIT AT SROW()/2, (SCOLS()-LEN(lcMsg)/2ExcelSheet = GetObject(,Excel.Sheet)If Type(ExcelSheet)#OWAIT CLEARMessageBox( 访问Excel失败！请检查你的系统是否正确安装 Excel 软件！,48,Excel不正常)RETURN .f.ENDIFlcmsg=正在设置Excel，请稍侯WAIT lcmsg WINDOW NOWAIT AT SROW()/2, (SCOLS()-LEN(lcMsg)/2oleapp=createobject(excel.application)oleapp.workbooks.Open(&Exl_file) & 打开文件oleapp.visible=.t. olei=oleapp.workbooks.item(1)olei.sheets.item(1).Name = allt(str(year(date()+年+allt(str(month(DATE()-28)；+月份自产产成品产、销、存明细表*oleapp.activesheet.rows(1).deleteoleapp.range(A1:K1).value=oleapp.activesheet.rows(1).insert &在第一行前插入以下一行标题OLEI.SHEETS.ITEM(1).Range(A1:K1).selectoleapp.SELECTION.MERGECELLS=.T.with oleapp.range(A1)&设置标题及字体属性.value=allt(str(year(date()+年+allt(str(month(DATE()-28)+；月份自产产成品产、销、存明细表.Font.Name=黑体.Font.size=18.HorizontalAlignment=3 &设置单元格A1水平居中endwitholeapp.activesheet.rows(2).insertoleapp.activesheet.rows(3).insertolei.sheets.item(1).cells(2,9).value=报表日期:+ALLTRIM(STR(YEAR(DATE()+年+ALLTRIM(STR(MONTH(DATE()+月+ALLTRIM(STR(DAY(DATE()+日*以下制作双表头OLEI.SHEETS.ITEM(1).Range(A3:A4).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(A3:A3).value=产品编号OLEI.SHEETS.ITEM(1).Range(B3:B4).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(B3:B3).value=期末结存产品名称规格OLEI.SHEETS.ITEM(1).Range(C3:D3).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(C3:C3).value=期初结存olei.activesheet.range(C4:C4).value=数量olei.activesheet.range(D4:D4).value=金额OLEI.SHEETS.ITEM(1).Range(E3:F3).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(E3:E3).value=本期产品入库olei.activesheet.range(E4:E4).value=数量olei.activesheet.range(F4:F4).value=金额OLEI.SHEETS.ITEM(1).Range(G3:G4).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(G3:G3).value=加权平均单价olei.activesheet.range(G3:G3).WrapText =.T. &自动换行OLEI.SHEETS.ITEM(1).Range(H3:I3).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(H3:H3).value=本期销售olei.activesheet.range(H4:H4).value=数量olei.activesheet.range(I4:I4).value=销售成本 OLEI.SHEETS.ITEM(1).Range(J3:J4).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(J3:J3).value=期末数量OLEI.SHEETS.ITEM(1).Range(K3:K4).selectoleapp.SELECTION.MERGECELLS=.T.olei.activesheet.range(K3:K3).value=期末结存 OLEI.SHEETS.ITEM(1).Range(A2:A2).selectWITH oleapp.range(A3:K4) &表头格式控制.=黑体.font.size=12.HorizontalAlignment=3.VerticalAlignment=2endwithHEN=HEN+4olei.sheets.item(1).range(olei.sheets.item