1、如果要从单个固定格式 excel 中取数,代码如下 oExcel=Createobject("EXCEL.APPLICATION") &;&;创建 Excel 对象 oExcel.WORKBOOKS.Open("filename") &;&;打开指定工作簿 m1=oexcel.cells(4,3).value m2=oexcel.cells(79,3).value m3=oexcel.cells(71,3).value m4=oexcel.cells(42,3).value m5=oexcel.cells(4,9).value 然后可以把这些需要的变量放到 dbf 中去。
2、如果要在一个有相同格式的、有许多表单的 excel 表中取数,代码可以这样: oExcel=Createobject("EXCEL.APPLICATION") &;&;创建 Excel 对象 oExcel.WORKBOOKS.Open("file") &;&;打开指定工作簿 USE sheetname &;&;建立一个数据库,放 excel 文件的所有表单名 ZAP &;&;清空
For Each oMyVar In oExcel.sheets &;&;读 excel 的表单名 APPEND BLANK REPLACE sheetn WITH oMyVar.Name &;&;加入 Excel 表中所有工作表到 sheetn ame 中的 sheetn 字段 Next oMyVar &;&;读下一个表单名
USE sheetname sheetnn=TRIM(sheetn) oExcel.worksheets("&;sheetnn").select &;&;打开 sheetname 数据库,读出表单名,并 选定。
m1=oexcel.cells(4,3).value m2=oexcel.cells(10,3).value &;&;读数据
oExcel.DisplayAlerts = .F.
oExcel.Workbooks.close oExcel.quit RELEASE oExcel (其中可以用循环,打开每一张工作表,并取出数据进行加工)
3、把一个 excel 文件,转出成为一个 dbf。 oExcel=Createobject("EXCEL.APPLICATION") &;&;创建 Excel 对象 oExcel.WORKBOOKS.Open("file") &;&;打开指定
工作簿 oExcel.worksheets("sheet1").select &;&;选定工作表 oExcel.Range("A1:d500").Select &;&;选择 excel 表中的 A1:D500 的区域 oExcel.ActiveWorkbook.SaveAs('TEST.DBF',8) &;&;存为 dbf oExcel.Workbooks.close oExcel.quit RELEASE oExcel
把 2、3 例结合起来,可以把一个 excel 文件中的所有工作表分别转换成一个 dbf 库。 这些代码很多都来自于网上,最近终于有点明白。和大家分享。 虽然 vfp 有人说已经过时了,但个人觉得,自己在工作上用
vfp 编写了一些小
程序,能 大大提高工作效率。别人可能需要做 1 个小时,用 vfp 只要 1 分钟就搞定。还是不错的 一个手段。