VisualFoxpro中如何实现对EXCEL表格的操作.doc

Visual Foxpro中如何实现对EXCEL表格的操作VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍：1创建Excel对象oExcel=CREATEOBJECT(Excel.application)2添加新工作簿oExcel.Workbooks.add3设置第3个工作表为激活工作表oExcel.Worksheets(sheet3).Activate4打开指定工作簿oExcel.Workbooks.Open(c:templl.xls)5显示Excel窗口oExcel.visible=.t.6更改Excel标题栏oExcel.Caption=VFP应用程序调用Microsoft Excel7给单元格赋值oExcel.cells(1,4).value=XM(XM为数据库字段名)8设置指定列的宽度(单位：字符个数)oExcel.ActiveSheet.Columns(1).ColumnWidth=59设置指定行的高度(单位：磅)oExcel.ActiveSheet.Rows(1).RowHeight=1(设定行高为1磅，1磅=0.035厘米)oExcel.ActiveSheet.Rows(50:100).RowHeight=1 &设置第50行至100行的高度10在第18行之前插入分页符oExcel.Worksheets(Sheet1).Rows(18).PageBreak=111在第4列之前删除分页符oExcel.ActiveSheet.Columns(4).PageBreak=012指定边框线宽度(Borders参数如下)ole.ActiveSheet.Range(b3:d3).Borders(2).Weight=313设置四个边框线条的类型oExcel.ActiveSheet.Range(b3:d3).Borders(2).LineStyle=1(其中Borders参数：1左、2右、3顶、4底、5斜、6斜/；LineStyle值：1与7细实、2细虚、4点虚、9双细实线)14设置页眉oExcel.ActiveSheet.PageSetup.CenterHeader=报表114设置页眉(字体大小)oExcel.ActiveSheet.PageSetup.CenterHeader=&50报表1 &后面的50可以自定义，表示字体的大小15设置页脚oExcel.ActiveSheet.PageSetup.CenterFooter=第&P页15.设置页脚(字体大小)oExcel.ActiveSheet.PageSetup.CenterFooter=&28第&P页 &后面的28可以自定义，表示字体的大小16设置页眉到顶端边距为2厘米oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.03517设置页脚到底边距为3厘米oExcel.ActiveSheet.PageSetup.FooterMargin=3/0.03518设置顶边距为2厘米oExcel.ActiveSheet.PageSetup.TopMargin=2/0.03519设置底边距为4厘米oExcel.ActiveSheet.PageSetup.BottomMargin=4/0.03520设置左边距为2厘米oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.03521设置右边距为2厘米oExcel.ActiveSheet.PageSetup.RightMargin=2/0.03522设置页面水平居中oExcel.ActiveSheet.PageSetup.CenterHorizontally=.t.23设置页面垂直居中oExcel.ActiveSheet.PageSetup.CenterVertically=.t.24设置页面纸张大小(1窄行8511 39宽行1411 9:A4)oExcel.ActiveSheet.PageSetup.PaperSize=125打印单元格网线oExcel.ActiveSheet.PageSetup.PrintGridlines=.t.26拷贝整个工作表oExcel.ActiveSheet.UsedRange.Copy27拷贝指定区域oExcel.ActiveSheet.Range(A1:E2).Copy28粘贴oExcel.WorkSheet(Sheet2).Range(A1).PasteSpecial29在第2行之前插入一行oExcel.ActiveSheet.Rows(2).Insert30在第2列之前插入一列oExcel.ActiveSheet.Columns(2).Insert31设置字体oExcel.ActiveSheet.Cells(2,1).Font.Name=黑体32设置字体大小oExcel.ActiveSheet.Cells(1,1).Font.Size=2533设置字体为斜体oExcel.ActiveSheet.Cells(1,1).Font.Italic=.t.34设置整列字体为粗体oExcel.ActiveSheet.Columns(1).Font.Bold=.t.35清除单元格公式oExcel.ActiveSheet.Cells(1,4).ClearContents36打印预览工作表oExcel.ActiveSheet.PrintPreview37打印输出工作表oExcel.ActiveSheet.PrintOut38. oExcel.CommandBars(1).Controls(1).accChild(18).Execute &打印（菜单序号18为Excel2003的打印项） &不同版本Excel的菜单序号可以通过以下程序取得 *(需要在VFP7.0以上运行) oXls=GETOBJECT(,excel.sheet) XlApp=oXLS.APPLICATION XlSheet=XlApp.ActiveSheet bars=xlapp.CommandBars.COUNT STR= FOR i=1 TO bars STR=STR+CHR(13)+ALLTRIM(STR(i)+、+xlapp.CommandBars(i).accName+(NAME:+xlapp.CommandBars(i).NAME+ INDEX:+ALLTRIM(STR(xlapp.CommandBars(i).INDEX)+) bars2=mandbars(i).accChildCount FOR j=1 TO bars2 TRY obj=mandbars(i).CONTROLS(j) STR=STR+CHR(13)+ +ALLTRIM(STR(j)+、+mandbars(i).CONTROLS(j).accname+(ID:+ALLTRIM(STR(xlapp.CommandBars(i).CONTROLS(j).ID)+) FOR k=1 TO obj.accChildCount TRY IF NOT EMPTY(obj.CONTROLS(k).accname ) STR=STR+CHR(13)+ +ALLTRIM(STR(k)+、+obj.CONTROLS(k).accName+ (ID：+ ALLTRIM(STR(obj.CONTROLS(k).ID)+) ENDIF CATCH EXIT ENDTRY ENDFOR CATCH EXIT ENDTRY ENDFOR WAIT WINDOWS ALLTRIM(STR(i)+ / +ALLTRIM(STR(bars)+ +STR(i/bars*100,10,2)+% NOWAIT ENDFOR SAVE TO XLS.txt ALL LIKE STR MODIFY COMMAND XLS.txt RETURN39工作表另存为oExcel.ActiveWorkbook.SaveAs(c:temp22.xls)检测当前目录是否有同名的EXCEL表，如果有先删除，再另存IF !FILE(SYS(5) + CURDIR() + result.xls) oExcel.ActiveWorkbook.SaveAs(SYS(5) + CURDIR() + result.xls)ELSE lcFileName = loExcel.GetSaveAsFilename(result, Excel (*.xls), *.xls)IF !EMPTY(lcFileName) IF FILE(lcFileName) DELETE FILE (lcFileName) ENDIF oExcel.ActiveWorkbook.SaveAs(lcFileName) ENDIFENDIF40放弃存盘 & 避免出现保存对话框oExcel.ActiveWorkbook.saved=.t.41.存盘oExcel.ActiveWorkbook.save42关闭工作簿oExcel.Workbooks.close43退出ExceloExcel.quitRELEASE oExcel &只有释放对象变量, EXCEL进程才会完全关闭44合并单元格oExcel.ActiveSheet.Range(A4:B5).MergeCells=.t.45下列设置大家自己理解With crfole.ActiveSheet.PageSetup .LeftHeader = chr(13)+左页眉 .CenterHeader = 中页眉 .RightHeader = 右页眉 .LeftFooter = 左页脚 .CenterFooter = 中页脚 .RightFooter = 右页脚 .orientation=1 &1竖排，2横排EndWithWith crfole.Range(A4:C4) .MergeCells = .t. .WrapText =.f. .Orientation = 0 .AddIndent =.f. .ShrinkToFit = .f.EndWith46文本对齐 oExcel.range(A4:c4).HorizontalAlignment =1 &水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐) oExcel.range(A4:c4).VerticalAlignment =2 &垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐)47拷贝整个工作表（含格式）oExcel.activesheet.cells.copy &拷贝oExcel.sheets(1).select &选择第一工作表oExcel.ActiveSheet.Paste &粘贴oExcel.ActiveSheet.Cells(3,4).value & ActiveSheet 为当前的Sheet工作薄名字，Cells(3,4).value 为第3行第4列的值以上控制调用语句在中文VFP5.0企业版下运行通过，运行环境为Excel 97及中文Windows 98 48. 显示某个单元格的批注内容oExcel=CREATEOBJECT(Excel.application)oExcel.Workbooks.OPEN(d:TESTtesta.xls)oExcel.VISIBLE=.T.?oExcel.Range(B5).Comment.Text &显示B5单元格的批注内容oExcel.Workbooks.CLOSEoExcel.QUITRELEASE oExcel49.oExcel.ActiveSheet.PageSetup.PrintTitleRows=$1:$1 &每页都打印行标头（每页顶部出现的单元格的行）50.保护工作表：oExcel.ActiveSheet.PROTECT(密码,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)51.保护工作薄oExcel.ActiveWorkbook.PROTECT(密码,.T.,.T.)第一个.T.：保护工作簿结构第二个.T.：保护工作簿窗口52.设置允许用户编辑区域oExcel.ActiveSheet.Protection.AllowEditRanges.Add(区域3,oExcel.ActiveSheet.Range(A2:D5)53.如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，就将本属性设置为.F.oExcel.DisplayAlerts = .F. 如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，就将本属性设置为 False；这样每次出现需用户应答的消息时，Microsoft Excel 将选择默认应答。如果将本属性设置为 False，那么宏运行结束后， Microsoft Excel 并不自动将其设置回 True。故当宏运行结束后，都应将本属性设置回 True 值。54.将当前工作表中的已用区域（只读）存入数组。strPath=D:TEST123.xlsLOCAL oExceloExcel=CREATEOBJECT(Excel.Application)oExcel.WorkBooks.OPEN(strPath)arrTableInfo=oExcel.ActiveSheet.UsedRange.VALUE &将当前工作表中的已用区域（只读）存入数组。oExcel.QUITRELEASE oExcelINSERT INTO 表名 FROM arrTableInfo55.设置excel批注的字体(excel 2000实现了，如下：)ole.Range(a3).Comment.Shape.Select & 此命令要求批注的 Visible=.t.ole.selection.Font.size=9ole.selection.F=黑体ole.selection.Font.bold=.f.注：该组命令要求先选中批注框，否则写成 ole.Range(a3).Comment.Shape.Font.size=9 则出错，不知为何！-如何取得当前EXCEL表中工作表的数目及各工作表的名称？CLEARLOCAL lnSheetCountoExcel=CREATEOBJECT(EXCEL.APPLICATION) &创建Excel对象oExcel.WORKBOOKS.OPEN(c:111321.xls) &打开指定工作簿WITH oExcel lnSheetCount=.WorkBooks(1).Sheets.Count &统计工作表数量ENDWITH?当前EXCEL表中工作表的数目为：+ALLTRIM(STR(lnSheetCount)FOR EACH oMyVar IN oExcel.sheets ?当前EXCEL表中工作表的名称分别为+oMyV &显示Excel表中所有工作表NEXT oMyVaroExcel.WORKBOOKS.CLOSE &关闭工作簿oExcel.QUIT &退出Excel-获取工作表名称在以下示例中，创建了一个 microsoft excel 实例，添加了一个新的工作簿。使用 foreach 语句显示工作簿中每个工作表的名称。此示例要求在运行示例的机器上正确安装 microsoft excel。oExcel = CREATE(Excel.Application)oExcel.Workbooks.ADDFOR EACH oMyVar IN oExcel.sheets ? oMyVNEXT oMyVar-Excel报表巧生成巧让FoxPro数据生成Excel报表Visual FoxPro是应用广泛的前台数据库开发平台之一，因此在我们日常工作中时常会遇到DBF数据文件。然而随着办公自动化的普及，越来越多的时候需要将DBF文件转化为Excel电子文档。常用转化方法是在FoxPro中用Copy命令进行格式转化或直接用Excel打开DBF文件。这两种方式虽然都能达到目的，却不能得到格式规范、可以直接打印输出的报表，且输出的Excel文件中，无法对数据类型进行有效转换，极易出现数据统计错误。有没有更好的方法呢？这里有一个更加通用的方法，在VFP中调用Excel，可以由DBF文件直接生成格式如下图所示一样复杂的Excel报表(如图1)。 Excel报表具体过程如下：编辑推荐文章 新鲜接触Excel 2000 XP Excel 2000公式应用的几条经验 Excel 2000函数应用之信息函数 假设我们要将表Agcallop.dbf文件输出为Excel格式文档，报表形如图1所示。为使通用性更强，页面采用A4纸横向输出，默认字体为宋体10号，页脚处添加页号。部分程序代码如下：m.outfilename=putfile(输出结果,agcallop,xls)&取导出文件名称ef=CREATEOBJECT(Excel.application)&调用Excel程序ef.Workbooks.add&添加工作簿ef.Worksheets(sheet1).Activate&激活第一个工作表ef.visible=.t.&显示Excel界面ef.Cells.Select&选择整张表ef.Selection.Font.Size = 10&设置整表默认字体大小为10select 0use agcallop&选择被导出的表num=reccount()&求导出总记录数go topi=5ef.range(F1:K1).Select&选择标题栏所在单元格ef.Selection.Merge&合并单元格with ef.range(F1 )&设置标题及字体属性.value=客户服务部业务代表工作量情况统计表.Font.Name=黑体.Font.size=18endwithef.Rows(2).RowHeight=1/0.035&设置第二行高度为1cmef.range(H2:O2).Select&选定统计条件栏所在单元格ef.Selection.Merge&合并单元格ef.range(H2).Font.size=10ef.range(H2).HorizontalAlignment=4&设置内容对齐方式为右对齐,3为居中，4为右对齐ef.range(H2).value=统计时间：+dtoc(date()+ 打印日期：+dtoc(date()ef.Rows(3:4).Selectwith ef.Selection.HorizontalAlignment = 3&设置3、4行为水平对齐.VerticalAlignment = 2&垂直居中.NumberFormatLocal = &设置3、4行为字符型内容endwithef.Range(A3:A4).Selectef.Selection.Merge&纵向合并第一列3、4行ef.Range(A3).value=工号&设置第一列标题内容ef.Columns(A).Select&整列选择ef.Selection.HorizontalAlignment = 3&水平居中ef.Columns(A:B).Selectef.Selection.NumberFormatLocal = &设置A、B列为字符型内容ef.Range(B3:B4).Selectef.Selection.Merge&纵向合并第二列3、4行ef.Range(B3).value=姓名&设置第二列标题内容ef.Columns(B).Select&整列选择ef.Selection.HorizontalAlignment = 3&水平居中ef.Range(C3:E3).Select&横向合并第三行C-E列ef.Selection.Mergeef.Range(C3).value=话务总量&第三行大标题为“话务总量”的列ef.Range(C4).value=电话呼入量&“话务总量”下第1个小标题“电话呼入量”ef.Range(D4).value=电话呼出量&“话务总量”下第2个小标题“电话呼出量”ef.Range(E4).value=合 计&“话务总量”下第3个小标题“合计”ef.Range(F3:H3).Selectef.Selection.Mergeef.Range(F3).value=话务总时间ef.Range(F4).value=呼入时间ef.Range(G4).value=呼出时间ef.Range(H4).value=合 计ef.Range(I3:K3).Selectef.Selection.Mergeef.Range(I3).value=单个话务平均时间ef.Range(I4).value=呼入时间ef.Range(J4).value=呼出时间ef.Range(K4).value=合 计ef.Range(L3:L4).Selectef.Selection.Mergeef.Range(L3).value=累计工作时间ef.Range(M3:M4).Selectef.Selection.Mergeef.Range(M3).value=无效时间ef.Range(N3:N4).Selectef.Selection.Mergeef.Range(N3).value=录入量ef.Range(O3:O4).Selectef.Selection.Mergeef.Range(O3).value=有效时间比 接下来通过scan语句，依次为每一行每一列单元格赋值。为了获得更好的打印效果，还需进行页面设置，如标题行、页面居中、横向排版等，还可以加边框线。以上程序在VFP 6+Excel 2000+Windows 2000下调试通过。实际应用中可根据需要对各项参数设置进行相应调整。-VFP控制EXCL文件另存为DBF（EXCEL后台运行)fil=Thisform.List1.Value &其值为一个包含路径的文件名oExcel=CREATEOBJECT(Excel.application)oExcel.Workbooks.Open(fil) &打开文件oExcel.Selection.AutoFilter &关闭(如果无则打开)自动筛选oExcel.Range(A1:F1000).Select &选中从第1行到1000行的前6列数据(另存后只有这些数据)asfil=STRTRAN(UPPER(STRTRAN(fil,SUBSTR(fil,1,RAT(,fil),c:windowsdesktopcphz),.XLS,.dbf) &要保存的文件名IF FILE(asfil)DELETE FILE &asfilENDIFoExcel.ActiveWorkbook.SaveAs(asfil,8) &另存为DBFoExcel.ActiveWorkbook.saved=.t. &不保存当前EXCEL表oExcel.Workbooks.close &关闭表oExcel.quit &退出EXCELRELEASE oExcel &释放变量*例子*lcFileName=D:TEST.XLSoExcel=CREATEOBJECT(Excel.application)oExcel.Workbooks.Open(&lcFileName) &打开文件R=oExcel.SHEETS(1).UsedRange.ROWS.COUNT &有数据的总行数C=oExcel.SHEETS(1).UsedRange.COLUMNS.COUNT &有数据的总列数oExcel.Cells(R,C).Select &选中数据oExcel.Columns.AutoFit &让所有的列宽都自动调整oExcel.DisplayAlerts=.F. oExcel.ActiveWorkbook.SaveAs(D:TEST.DBF,8) &另存为DBFoExcel.ActiveWorkbook.saved=.t. &不保存当前EXCEL表oExcel.Workbooks.close &关闭表oExcel.quit &退出EXCELRELEASE oExcel &释放变量MESSAGEBOX(Excel文件:D:TEST.XLS 另存为 D:TEST.DBF 完成！,64,信息提示)*虽然用APPEND FROM tx.xls TYPE XL8可以更简单的追加数据，但有时会导致程序非法错误退出（除非先另存为Excel 5.0）以下我做的一个简单例子，你参考一下功能：VB调用Excel，将一个Excel文件另存为Dbf。前提：要安装ExcelDim oExcel As ObjectlcSFileName = D:test.xls 源Excel文件名lcDFileName = D:test1.dbf 目标Dbf文件名Set oExcel = CreateObject(Excel.Application) 创建Excel对象oExcel.Workbooks.Open (lcSFileName) 打开Excel表R = oExcel.SHEETS(1).UsedRange.ROWS.Count 有数据的总行数C = oExcel.SHEETS(1).UsedRange.Columns.Count 有数据的总列数oExcel.Cells(R, C).Select 选中数据oExcel.Columns.AutoFit 让所有的列宽都自动调整oExcel.DisplayAlerts = Flase 不显示提示框oExcel.ActiveWorkbook.SaveAs FileName:=lcDFileName, FileFormat:=8oExcel.ActiveWorkbook.saved = Ture 不保存当前EXCEL表oExcel.Workbooks.Close 关闭表oExcel.quit 退出EXCELSet oExcel = Nothing 释放对象MsgBox (Excel文件: & lcSFileName & 另存为 & lcDFileName & 完成！)-实用的VFP与EXCEL交互编程摘要：本文介绍了几种实用的VFP与EXCEL交互编程的方法与实例，将VFP强大的数据处理功能与EXCEL优异的制表功能有机地结合起来，大大增强了软件的应用效果。关键词：VFP、EXCEL、DDE、OLE、交互编程。Some Cross_Programming Methods Between VFP and EXCELZou yiming(Gansu Lanzhou Section of Instruments Lanzhou Petrochemical Staff College)Abstract: The author introduces us in this paper some practical methods and instance of cross_programming between VFP and EXCEL . It extremely improves their performances by combining VFPs data processing functions with EXCELs excellent tabulation functions.Key Words: VFP、EXCEL、OLE、DDE、Cross-ProgrammingVFP(Visual Foxpro)是一种关系型数据库管理系统，由于其强大的数据处理能力及良好的兼容性，使其成为数据库应用程序开发人员的强有力工具，而EXECL则是一种优秀的电子表格处理软件，在兼容性、操作界面、公式运算、图表等方面有着独到的优势。上述两种软件在各自的应用领域均得到广泛的应用，同时上述两种软件还具有良好的交互编程能力，为两者相辅相成、取长补短奠定了良好的基础。本文将结合具体实例介绍几种VFP与EXCEL交互编程的方法，每种方法虽然实现手段各异，但功能相仿。其功能可简述如下：VFP数据表“学生成绩表DBF”中含“学生姓名”、“语文”、“数学”等字段，示例程序将从EXCEL工作簿“VFP交互XLS”之工作表“查询”中用书签“课程名”指定的单元取得欲查询的课程名称，然后在数据表“学生成绩表DBF”中自动搜索，以找到该门课程不及格的同学名单，最后传送至原EXCEL工作薄形成新的工作表单，同时，新工作表还将以该课程名命名。下列程序均在VFP50与EXCEL97中调试通过。因篇幅所限，程序中的错误处理部分略去。一、EXECL驱动VFPEXECL内置的VBA语言（Visual Basic For Application）为EXECL功能的扩展提供了便利的手段，用户可使用该语言直接驱动VFP完成数据检索等功能。程序首先生成一个VFP对象，然后用VFP的DoCmd方法执行VFP摸索命令串，其摸索结果再借助于VFP的DateToClip方法拷贝至剪切板，最后VBA将其粘贴至工作表的正确位置。Sub FoxTest()Dim oFox As ObjectDim SLesson As StringDim SCommand As StringSet oFox = CreateObject(VisualFoxPro.Application) 启动VFP，生成VFP对象Sheets(查询).SelectSLesson = Range(课程名) 在名为“课程名”的单元格中得到欲查询的课程名称Sheets.Add 产生新的工作表单ActiveSheet.Name = Slesson 指定工作表单的名称与课程名称相同SCommand = SELECT 学号,语文,数学 FROM d:vfp学生成绩表 WHERE + SLesson + 60 INTO CURSOR TEMP 形成VFP查询命令串oFox.DoCmd Scommand 执行VFP命令串oFox.DataToClip temp, , 3 将搜索结果以文本方式拷贝至剪切板Range(a1:a1).Select 指向拷贝目标区域左上角单元ActiveSheet.Paste 粘贴搜索结果End Sub为便于使用，作者在EXECL中自制了一名为“搜索”的工具栏及一名为“开始搜索”的按钮，并将上述宏程序段与自制按钮相关联，按下此按钮即可运行程序并在EXCEL中得到要求的数据。制作工具栏及按钮的方法如下：1. 选“工具”/“自定义”菜单，出现自定义对话框；2. 选择“工具栏”页框，然后按下“新建”按钮；3. 在工具栏对话框中输入“搜索”作为新建工具栏的名称；4. 选择“命令”页框，在“类别”列表中选“宏”，在“命令”列表中选“自定义按钮”并将其拖放至新建的“搜索”工具栏；5. 按下“更新所选内容”按钮，首先在“命名”栏中填入按钮名称“开始搜索”，然后选择“指定宏”，在随后出现的“指定宏”列表中选择上述宏程序FoxTest()即可实现为该宏指定一个工具栏按钮。二、VFP使用OLE功能驱动EXECLOLE（Object Linking and Embedding）对象链接与嵌入，是WINDOWS应用程序间相互传递和共享数据的一种有效方法。VFP借助于OLE不仅可共享其它应用程序的数据，而且还能以对象方式直接控制其它应用程序的运行，从而进一步扩展VFP的功能。VFP支持直接在程序中创建、使用和控制OLE对象，实现OLE自动化。作为OLE客户VFP与作为OLE服务器的EXCEL具有良好的编程接口，下述程序段用OLE方式实现所要求的功能。程序首先生成一个EXCEL的OLE对象OleApp以便对其进行操作，然后利用OLE功能从EXCEL表单中获取欲查询的课程名，并控制EXCEL生成新的工作表，VFP的查询结果仍然使用剪切板的方式传递至EXCEL工作表。 OleApp=CREATEOBJECT(Excel.Application) & 打开EXCEL，产生OLE对象OleApp.Application.Caption=VFP交互编程 & 指定标题栏名称OleApp.Application.Visible=.T. & 置EXCEL可见OleApp.Application.WorkBooks.Open(d:vfpVFP交互.xls) & 打开EXCEL工作簿DO WHILE .T.WITH OleApp.ApplicationnAnswer = MESSAGEBOX(开始搜索？, 32+4, 搜索指定数据) &产生信息框IF (.NOT.(nAnswer=6) & 如按下“Yes按钮，则开始搜索，反之退出EXITENDIF.Sheets(查询).Select & 选择“查询”工作表单SLesson = OleApp.Application.Range(课程名).Value & 得到欲查询的课程名称.Sheets.Add & 新建一工作表单.ActiveSheet.Name = Slesson & 指定工作表单的名称SCommand = SELECT 学号,语文,数学 FROM d:vfp学生成绩表 WHERE +ALLTrim(SLesson) + 60 INTO CURSOR TEMP & 形成VFP查询命令串&Scommand & 执行VFP命令串_VFP.DataToClip(TEMP,3) & 将搜索结果以文本方式拷贝至剪切板.Range(a1:a1).Select & 指向拷贝目标区域左上角单元.ActiveSheet.Paste & 粘贴搜索结果ENDWITHENDDOOleApp.Quit & 关闭EXCEL，保存更新后的工作簿文件*objexcel.activeworkbook.close(.f.)那个是关闭excel啊不是存盘关闭了就不能存盘了 -设置打印参数：问：用Excel做报表，可打印时怎么选择打印机，即.ActiveWindow.SelectedSheets.PrintOut的参数有哪些？ 答：expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)expression 必选。该表达式返回“应用于”列表中的某个对象。From Variant 类型，可选。打印的开始页号。如果省略该参数，将从起始位置开始打印。To Variant 类型，可选。打印的终止页号。如果省略该参数，将打印至最后一页。Copies Variant 类型，可选。要打印的份数。如果省略该参数，将只打印一份。Preview Variant 类型，可选。如果为 True 则 Microsoft Excel 打印指定对象之前进行打印预览。如果为 False，或者省略此参数则立即打印该对象。ActivePrinter Variant 类型，可选。 设置活动打印机的名称。PrintToFile Variant 类型，可选。如果为 True 则打印输出到文件。如果没有指定 PrToFileName，则 Microsoft Excel 将提示用户输入要输出文件的文件名。Collate Variant 类型，可选。如果为 True 则逐份打印每份副本。PrToFileName 可选，Variant 类型。如果将 PrintToFile 设置为 True，则本参数指定要打印到的文件名。说明From 参数和 To 参数所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。-如何用编程的方法打开有密码的Excel文件？问题：Excel文件加了密码，如何在VFP中用编程的方式把密码输入，使Excel文件打开如：oExcel=CREATEOBJECT(Excel.application)oExcel.Workbooks.Open(d:22.xls)这样还有一个密码的对话框出来，需要输入密码才能打开文件。如何用编程的方法直接打开有密码的Excel文件？答:oEle.Workbooks.Open(d:22.xls,.f.,.f., ,123,456)123表示打开权限的密码,456表示修改权限的密码.-问题一:如何将一个已知路径的图片插入到excel中.答:oexcel1.ActiveSheet.Pictures.Insert(图片文件名) -问题二：能不能