VFP应用教程

VFP应用教程

将表文件转换成电子表格文件

指定第6列的数字显示格式为一位小数：

oExcel.ActiveSheet.Columns(6).NumberFormatLocal = \指定第7列的日期显示格式为\：

oExcel.ActiveSheet.Columns(7).NumberFormatLocal = \指定显示日期和日期时间表达式的格式。（最适用） SET DATE ymd

比喻说你的EXCEL中的文件名为:AA.XLS

IMPORT FROM AA TYPE XLS &&注意这个AA不要与你的数据库中的某一个表名相同. USE AA

COPY TO ARRAY MYARRAY OPEN DATA 你的数据库

USE 你的表名 &&表结构得与你的AA.XLS一样. APPEND FROM ARRAY MYARRAY 然后你就可以处理这个表了.

导入指定的电子表格文件

FOX控制EXCL文件另存为DBF（EXCL后台运行)

fil=Thisform.List1.Value &&其值为一个包含路径的文件名 eole=CREATEOBJECT('Excel.application') eole.Workbooks.Open(fil) &&打开文件 eole.Selection.AutoFilter &&关闭(如果无则打开)自动筛选 eole.Range(\选中从第1行到1000行的前6列数据(

另

存

后

只

有

这

些

数

据

)

asfil=STRTRAN(UPPER(STRTRAN(fil,SUBSTR(fil,1,RAT('\\',fil)),'c:\\windows\\desktop\\cphz\\')),'.XLS','.dbf') &&要保存的文件名 IF FILE(asfil) DELETE FILE &asfil ENDIF

打开文件

eole=CREATEOBJECT('Excel.application') eole.Workbooks.Open(fil) &&打开文件

从电子表格中导入VFP filename=Getfile(\If Empty(filename) Return Endif

_ole_excel=Createobject(\_ole_excel.Workbooks.Open(filename) _ole_excel.worksheets(1).Activate

dbfname=Forceext(filename,\

_ole_excel.activeworkbook.SaveAs(dbfname,8)

If File(dbfname)

Delete File (dbfname) Endif

_ole_excel.activeworkbook.Close(.F.) _ole_excel.application.quit() Use gz Exclusive

Append From (dbfname)

方法二

_ole_excel = CreateObject(\filename=GETFILE(\

_ole_excel.WorkBooks.Open(filename) && 要打开的工作表名

_ole_excel.WorkSheets(1).Activate &&激活工作簿1 dbfname=forceext(filename,\

_ole_excel.ActiveWorkbook.SaveAs(dbfname, 8) &&DBASE3格式 use (dbfname) 方法三

use dbfname

append from &filename type xl5

其中dbfname是数据库名，filename是电子表格名。

EXCEL转换为DBF

代码在这里：

_ole_excel = CreateObject(\filename=GETFILE(\

_ole_excel.WorkBooks.Open(filename) && 要打开的工作表名 _ole_excel.WorkSheets(1).Activate &&激活工作簿1 dbfname=forceext(filename,\

_ole_excel.ActiveWorkbook.SaveAs(dbfname, 8) &&DBASE3格式 use (dbfname) BROWSE 方法四

IMPORT FROM D:\\原表.xls TYPE XL5 COPY TO TEST.DBF FOR RECNO()>1 GO TOP

lnFieldNum=FCOUNT() lcString='Select '

FOR lnCount=1 TO lnFieldNum

lcString=lcString+FIELD(lnCount)+'As '+ALLTRIM(EVALUATE(FIELD(lnCount)))+',' ENDFOR

lcString=LEFT(lcString,LEN(lcString)-1)+' INTO TABLE 目标表 FROM TEST' &lcString select 目标表 brow

这样导入的表含EXCELL表的字段

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库VFP应用教程在线全文阅读。