新Visual FoxPro程序设计项目教程 教学课件 李林孖 第9章.pptVIP

知识拓展 在Visual FoxPro应用程序中接收Excel表中的数据，这一操作是非常实用，比如：基层销售单位向总公司上传每月的销售情况，总公司通过接收到的数据进行统计，进行决策。实际这一工作非常简单，只要统一给基层销售单位一个具有相同格式的Excel文档，总公司就可以接收数据了。需要特别注意：一方面Excel工作簿一定要另存为“Microsoft Excel 5.0 和 97 （XLS）” 格式；另一方面接收数据的VFP表的格式必须与EXCEL表格式相同，这样数据才可以进行导入。主要通过下面命令来实现： 格式：IMPORT FROM Excel工作.xls TYPE XL8 SHEET Sheet1 说明：格式中“Sheet1”，为要导入的指定工作表名。所得到的VFP表的文件名为“Excel工作.DBF”，之后通过VFP相应的命令编写代码便可以将“Excel工作.xls”中的数据导入到数据总表中了。 项目8——设计报表模块 任务3——应用OLE创建Excel工作表 触类旁通 Excel与Visual FoxPro都具有强大的数据处理能力及良好的兼容性，充分发挥两种软件各自的优点，进行数据转换与接收，实现数据共享，在程序设计开发过程中是非常重要的。如何实现Excel与Visual FoxPro表文件之间实现相互转换，实现数据共享呢？ 1.Excel文件转换成DBF文件，实现数据共享 说明：首先创建Excel对象，在该对象中打开指定的Excel文件，同时确定该Excel工作表中有数据的行与列数，这为确定DBF文件结构和向DBF文件中添加数据提供条件。由于每个Excel工作表由256列构成，前26列的列号是由A～Z单个字母构成；从第27列开始，每隔26列，其列号是由AA～AZ、BA～BZ…构成。因此，ls变量表示要的转换的Excel工作表中有数据的最右侧的列号。 首先将Excel工作表中有数据区域中各单元格设置为文本格式，同时定义两个数组a、b，其上限为该Excel中有数据的最大列数。a数组用于Excel工作表中第一行的各标题名称，b数组用于Excel工作表中每一列目前存放数据的最大宽度，用于建立表结构时，设置字段的宽度。将Excel工作表中第一行中有数据的各单元格内容分别保存在a数组中，用以确定DBF文件的各字段名。用于判断出Excel工作表中每一列的单元格的最大宽度，从而确定DBf表的字段长度，存储在b数组中。通过前面获得的a数组（字段名）和b数组（字段长度），利用SQL结构化查询语言创建ExcelToDbf表文件。选择DBF文件ExcelToDbf，将Excel工作表中的数据依次添加到DBF文件中。保存当前工作表中数据，并关闭、退出OLE工作区。 项目8——设计报表模块 任务3——应用OLE创建Excel工作表 触类旁通 2.DBF文件转换成Excel文件，实现数据共享 说明：在下面的程序段中，定义一个a数组，用以存储各字段的字段名。 SELECT ExcelToDbf n=FCOUNT() n为当前数据表的字段个数 m=RECCOUNT() m为当前数据表的记录个数 DIME a(n) FOR i=1 TO n a(i)=FIELD(i) NEXT i 说明：在下面的程序段中，利用OLE对象创建一个Excel工作区，将数组a各元素分别赋给Excel的第一行的各单元格，将字段名称作为各列标题。 oExcel=Createobject(Excel.application) oExcel.Workbooks.Add oExcel.Worksheets(sheet1).Activate oExcel.Visible=.t. oExcel.Caption=VFP应用程序调用Microsoft Excel oExcel.Columns(a:n).SELECT 选中数据 oExcel.Selection.NumberFormatLocal=@“ 把被选定的单元格设为文本格式 FOR i=1 TO n oExcel.Cells(1,i).Value=a(i) NEXT i 说明：在下面的程序段中，将DBF文件中数据存储在Excel工作表从第2行开始的各个单元格式中，并设置各列为最适合的列宽。 FOR i=2 TO m+1 FOR j=1 TO n oExcel.Cells(i,j).Value=a(j) NEXT j SKIP NEXT i oExcel.Columns.AutoFit 设置各列为最合适的列宽 项目8——设计