下载 >  数据库 >  其它 > 使用VFP读取EXCEL中的数据示例

使用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 o bjExcel = CreateObject("Excel.Application") &&创建一个EXCEL应用程序实例 wjm=getfile("xls") objExcel.Workbooks.Open(wjm) &&调用workbooks(Microsoft Excel 应用程序; 中当前打开的所有 Workbook 对象的集合。); 对象的open方法程序来打开指定的文件,并为; 打开的文件创建一个新的工作簿 *objexcel.visible=.f. ***下面的代码判断出生日期字段的格式是否满足要求*** *IF !varTYPE(objexcel.cells(10,6))="d" * MESSAGEBOX("出生日期字段不满足格式要求,不能导入,请将出生日期字段修改为:"+CHR(13); +"mm.dd.yy的格式,如:05.19.83 表示1983年5月19 然后再运行此导入程序") * RETURN *ENDIF inf(1)=substr(objexcel.cells(2,1).value,7)&&校区 Inf(2)=objexcel.cells(2,4).value&&学历 inf(3)=objexcel.cells(2,6).value&&专业 inf(4)=objexcel.cells(2,7).value&&班 LOCAL nrow as Number ,i as Number i=0 *MESSAGEBOX("计算行数") *MESSAGEBOX(objexcel.cells(5,1).value) *MESSAGEBOX(VARTYPE(objexcel.cells(22,1).value)) DO WHILE .t. i=i+1 ?objexcel.cells(i,1).value IF !VARTYPE(objexcel.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)=objexcel.cells(i,1).value&&学号  arecord(2)=objexcel.cells(i,2).value&&姓名 arecord(3)=objexcel.cells(i,3).value&&性别 arecord(4)=objexcel.cells(i,4).value&&籍贯 arecord(5)=objexcel.cells(i,5).value&&民族 *MESSAGEBOX(VARTYPE(objexcel.cells(i,6).value)) IF VARTYPE(objexcel.cells(i,6).value)="C" arecord(6)=RIGHT(objexcel.cells(i,6).value,2)+"/"+"01"+'/'; +LEFT(objexcel.cells(i,6).value,2) ELSE arecord(6)= RIGHT(STR(objexcel.cells(i,6).value,5,2),2); +"/"+"01"+"/"; +LEFT(STR(objexcel.cells(i,6).value,5,2),2) ENDIF &&arecord(6)=IIF(VARTYPE(objexcel.cells(i,6).value)="c",RIGHT(objexcel.cells(i,6).value,2)+"/"+"01"+'/'+LEFT(objexcel.cells(i,6).value,2),; RIGHT(STR(objexcel.cells(i,6).value,5,2),2)+"/"+"01"+'/'+LEFT(STR(objexcel.cells(i,6).value,5,2),2))&&出生年月 arecord(7)=LEFT(ALLTRIM(STR(objexcel.cells(i,8).value,6,0)),6)&&邮政编码 arecord(8)=objexcel.cells(i,7).value&&通讯地址 arecord(9)=objexcel.cells(i,9).value &&收信人 arecord(10)=iif(!ALLTRIM(objexcel.cells(i,10).value)=="",objexcel.cells(i,10).value; ,"无")&&家庭电话 arecord(11)=inf(3)&&专业 arecord(12)=inf(4)&&班级 arecord(13)=objexcel.cells(i,11).value&&寝室号码 arecord(14)=STR(objexcel.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 objexcel.quit RELEASE objexcel *!* objexcel.save *!* *objExcel.ActiveWorkbook.saved=.f. *!* objexcel.Quit &&退出 *!* RELEASE objexcel *!* retu
...展开详情收缩
2011-03-20 上传大小:7KB
分享
收藏 举报

评论 共6条

wangguowua1 很好,我想在下载下来学习下!
2018-05-29
回复
qazwsx_cd 感谢分享,期待更多。
2018-04-22
回复
any1where 用是可以用,就是有点简单了,通用性不太强,可以自行改造一下再用。
2017-06-05
回复
axyzlsh 很好用,值得下载!
2017-05-05
回复
hzyhzy1973 这个可用,我就是参考的这样的代码,不错,支持一下,很好!
2013-04-01
回复
c24632066 感觉没啥用
2013-02-05
回复
如何在vfp中导入excel表格数据?
请问如何在VFP6中导入EXCEL数据?
VFP导入导出EXCEL2007、2010程序源码

VFP导入导出EXCEL2007、2010程序源码

立即下载
请大神告知下VFP导入EXCEL
在VFP里面导入Excel数据时,出现很怪的现象。请大侠指点。。
VFP数据导入EXCEL后数据格式不正确的问题
EXCEL文件导入VFP,丢失数据,实在找不到问题在哪里
各位好,我想问一下怎样才能将Excel表格数据导入到VFP中的表文件中啊?
vfp直接读取excel代码.doc

visual foxpro直接读取excel代码,源自网络搜索

立即下载
VFP9 控制EXCEL命令大全

VFP9 控制EXCEL命令大全,对象、属性集合

立即下载
VFP利用MsComm32控件接收串口(COM)数据示列

VFP利用MsComm32控件接收串口(COM)数据示列

立即下载
ADIR()函数用法

adir()函数用法介绍及实例说明 ,如何取得某个文件的大小、修改日期及属性 Vfp为我们提供了一个非常强大函数ADIR(),

立即下载
VFP报表示例(关于分组输出)

一个VFP报表示例 *输出全部页面 REPORT FORM bb1 prev REPORT FORM bb2 prev *输出指定单位 REPORT FORM bb1 FOR dwdm="bj01" prev REPORT FORM bb2 FOR dwdm="bj01" prev *输入指定单位特定年份月份 REPORT FORM bb1 FOR dwdm="bj01" AND cyear="2012" AND cmonth="02" prev REPORT FORM bb2 FOR dwdm="bj01" AND cyear="2012" AND cmonth="02" prev

立即下载
Excel与DBF数据的读取与写入

Excel与DBF数据的读取与写入

立即下载
VFP中使用工具栏示例

VFP中使用工具栏示例 使用VFP自带的控件MsComCtl.ocx

立即下载
vfp 控件类

包括VFP中使用的控件,并带有示例 包括VFP中使用的控件,并带有示例

立即下载
ODBC 直接访问 excel

提供了ODBC 直接访问excel 的实例源码,仅供参考

立即下载
vfp经典实例150例

Visual FoxPro 7.0应用编程150例\ Visual FoxPro 7.0应用编程150例\ Visual FoxPro 7.0应用编程150例\ Visual FoxPro 7.0应用编程150例\

立即下载
VFP可视类转为PRG

很多VFP程序员都希望可视类,甚至不可视类,转为源代码PRG, 以方便调试及跟踪,这个小程序就能如你所愿! 它可以把整个类库中的所有类(包括可视类/不可视类), 独个转为PRG。 它也是VFP写的,高手可对它加以改进!

立即下载
VFP 9 电子称串口读取代码。

VFP 9 电子称串口读取代码,通用所有电子秤。

立即下载

热点文章

img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

使用VFP读取EXCEL中的数据示例

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
1 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: