|
EXCEL2007以上版本已没有另存为DBF文件格式,我们知道在EXCEL2007以下版本时,在VFP语言中用下列语句就可以将EXCEL文件转换为dbf文件:oExcel.ActiveWorkbook.SaveAs('TEST.DBF',8),但是EXCEL2007以上版本就不行了,所以首先要将EXCEL2007以上版本用程序转换为5.0版本格式,程序如下cFileName='C:\2010格式.xls'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('C:\NewTest95格式.xls',39) && 43为97/2003 xlExcel9795(39为5.0/95 xlExcel5 & xlExcel7)
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量
Messagebox('另存为5.0格式完成!',64,'信息提示')
此时你再用oExcel.ActiveWorkbook.SaveAs('TEST.DBF',8)就可以实现转换
前提你要安装VFP工具语言。 |
|