社区
VFP
帖子详情
excel2007文档导入vfp的问题
jxjdzwang5555
2011-11-10 10:57:41
我原来excel2003文档导入vfp一直没有问题,但现在excel2007另存为97-2003格式的文档后,手工导入vfp,提示microsoft excel 文件格式无效 。不知道什么原因,求高手指导,谢谢。
...全文
372
5
打赏
收藏
excel2007文档导入vfp的问题
我原来excel2003文档导入vfp一直没有问题,但现在excel2007另存为97-2003格式的文档后,手工导入vfp,提示microsoft excel 文件格式无效 。不知道什么原因,求高手指导,谢谢。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lygcw9602
2014-03-29
打赏
举报
回复
任意版本的EXCEL:将EXCEL中的数据保存为数组,可以直接导入VFP。不需要转换版本格式。
thinclient
2012-10-25
打赏
举报
回复
看不到啊怎么回事
ACMAIN_CHM
2011-11-10
打赏
举报
回复
这个是因为即使用EXCEL2007另存为Excel 97-2003 Workbook,但EXCEL2007仍然向文件中添加一些额外的信息,导致VFP在导入是产生文件格式无效。
你可以从EXCEL2007,另存文件为 Microsoft Excel 97-Excel 2003 & 5.0/95 Workbook (*.xls) 格式,或者 Microsoft Excel 5.0/95 Workbook (*.xls) ,然后再用VFP导入试一下。
WWWWA
2011-11-10
打赏
举报
回复
转换成2000-2003格式 ,再导入
jxjdzwang5555
2011-11-10
打赏
举报
回复
谢谢ACMAIN_CHM老师,
另存为Microsoft Excel 5.0/95 Workbook (*.xls) ,然后再用VFP导入,
可行!
谢谢!
明天结贴。
VFP
导入
导出
EXCEL
2007
、2010程序源码
VFP
导入
导出
EXCEL
2007
、2010程序源码
使用
VFP
读取
EXCEL
中的数据示例
使用
VFP
读取
EXCEL
中的数据示例 *!* *****数据
导入
程序,由“学生基本基本情况表模板.xls”
导入
数据 *!* ***使用
VFP
控制
EXCEL
表,计取中指定列的内容*********** *!* "学生基本基本情况表模板.xls"的数据布局 *!* cells(1,1):“标题” *!* cells(2,1):校区 *!* cells(2,3):学历 *!* cells(2,5):专业 *!* cells(2,6):班级 *!* *!* set safe off set talk on LOCAL inf(4) as String *dele file C:\MyDocu~1\Resume.xlw obj
Excel
= CreateObject("
Excel
.Application") &&创建一个
EXCEL
应用程序实例 wjm=getfile("xls") obj
Excel
.Workbooks.Open(wjm) &&调用workbooks(Microsoft
Excel
应用程序; 中当前打开的所有 Workbook 对象的集合。); 对象的open方法程序来打开指定的文件,并为; 打开的文件创建一个新的工作簿 *obj
excel
.visible=.f. ***下面的代码判断出生日期字段的格式是否满足要求*** *IF !varTYPE(obj
excel
.cells(10,6))="d" * MESSAGEBOX("出生日期字段不满足格式要求,不能
导入
,请将出生日期字段修改为:"+CHR(13); +"mm.dd.yy的格式,如:05.19.83 表示1983年5月19 然后再运行此
导入
程序") * RETURN *ENDIF inf(1)=substr(obj
excel
.cells(2,1).value,7)&&校区 Inf(2)=obj
excel
.cells(2,4).value&&学历 inf(3)=obj
excel
.cells(2,6).value&&专业 inf(4)=obj
excel
.cells(2,7).value&&班 LOCAL nrow as Number ,i as Number i=0 *MESSAGEBOX("计算行数") *MESSAGEBOX(obj
excel
.cells(5,1).value) *MESSAGEBOX(VARTYPE(obj
excel
.cells(22,1).value)) DO WHILE .t. i=i+1 ?obj
excel
.cells(i,1).value IF !VARTYPE(obj
excel
.cells(i,1).value)="C" nrow=i-1 EXIT ENDIF ENDDO *nrow=20 LOCAL arecord(16) *MESSAGEBOX("循环添加记录") USE zlb disinf("zlb.dbf中现有记录"+ALLTRIM(STR(RECCOUNT()))+"条") disinf("正在添加记录") FOR i=4 TO nrow arecord(1)=obj
excel
.cells(i,1).value&&学号 arecord(2)=obj
excel
.cells(i,2).value&&姓名 arecord(3)=obj
excel
.cells(i,3).value&&性别 arecord(4)=obj
excel
.cells(i,4).value&&籍贯 arecord(5)=obj
excel
.cells(i,5).value&&民族 *MESSAGEBOX(VARTYPE(obj
excel
.cells(i,6).value)) IF VARTYPE(obj
excel
.cells(i,6).value)="C" arecord(6)=RIGHT(obj
excel
.cells(i,6).value,2)+"/"+"01"+'/'; +LEFT(obj
excel
.cells(i,6).value,2) ELSE arecord(6)= RIGHT(STR(obj
excel
.cells(i,6).value,5,2),2); +"/"+"01"+"/"; +LEFT(STR(obj
excel
.cells(i,6).value,5,2),2) ENDIF &&arecord(6)=IIF(VARTYPE(obj
excel
.cells(i,6).value)="c",RIGHT(obj
excel
.cells(i,6).value,2)+"/"+"01"+'/'+LEFT(obj
excel
.cells(i,6).value,2),; RIGHT(STR(obj
excel
.cells(i,6).value,5,2),2)+"/"+"01"+'/'+LEFT(STR(obj
excel
.cells(i,6).value,5,2),2))&&出生年月 arecord(7)=LEFT(ALLTRIM(STR(obj
excel
.cells(i,8).value,6,0)),6)&&邮政编码 arecord(8)=obj
excel
.cells(i,7).value&&通讯地址 arecord(9)=obj
excel
.cells(i,9).value &&收信人 arecord(10)=iif(!ALLTRIM(obj
excel
.cells(i,10).value)=="",obj
excel
.cells(i,10).value; ,"无")&&家庭电话 arecord(11)=inf(3)&&专业 arecord(12)=inf(4)&&班级 arecord(13)=obj
excel
.cells(i,11).value&&寝室号码 arecord(14)=STR(obj
excel
.cells(i,12).value,7,0)&&寝室电话 arecord(15)=inf(1)&&校区 arecord(16)=inf(2)&&学历 SELECT zlb APPEND FROM ARRAY arecord ENDFOR disinf("zlb.dbf中现有记录"+ALLTRIM(STR(RECCOUNT()))+"条") disinf("记录添加完毕,共添加了"+ALLTRIM(STR(nrow-3))+"条记录,请查检") INKEY(3) WAIT CLEAR ****定义日期转换函数,此函数能将各种格式的日期转换成mm/dd/yy的格式**** ****如果要转换的日期只有年和月,则自动添加日为'01'*** *!* FUNCTION datetran *!* PARAMETERS soudate *!* IF VARTYPE(soudate)="N" *!* DO case *!* CASE LEN(souDATE) ***关闭工作簿,退出
EXCEL
obj
excel
.quit RELEASE obj
excel
*!* obj
excel
.save *!* *obj
Excel
.ActiveWorkbook.saved=.f. *!* obj
excel
.Quit &&退出 *!* RELEASE obj
excel
*!* retu
EXCEL
_FILE_IMPORT.rar_
excel
_import_
vfp
program to import
excel
files into dbf . GUI version
将
Excel
工作表 转换成 FoxPro 的 dbf 格式
将
Excel
工作表 转换成 dbf自由表,这个软件最好用、最专业。 最强的是:该软件支持 xls 和 xlsx 两种格式,转换为 dbf
VFP
全面控制
EXCEL
VFP
全面控制
EXCEL
,VF到
Excel
的转换
VFP
2,748
社区成员
29,138
社区内容
发帖
与我相关
我的任务
VFP
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
复制链接
扫一扫
分享
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章