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表的字段