| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7570 人关注过本帖, 11 人收藏
标题:使用 VFP 读取 excel 的信息采集表各项内容
只看楼主 加入收藏
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
以下是引用sdta在2014-7-31 14:03:29的发言:

这个EXCEL表不是规则表,表中的数据不是全部提取。


那是你没想到办法,呵呵。

授人以渔,不授人以鱼。
2014-08-01 02:59
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
读取E表信息到D表(改进为一次性导入).rar (100.01 KB)

楼主好,昨天的工具改进了一下,你只要把所有的“个人信息采集表…….xls”放在同一目录中,可以一次性完成导入。

然后,你可以根据需要另行处理了……
收到的鲜花
  • vereesa2014-08-05 14:41 送鲜花  3朵   附言:非常感谢!!

只求每天有一丁点儿的进步就可以了
2014-08-01 15:25
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用wengjl在2014-8-1 15:25:29的发言:


楼主好,昨天的工具改进了一下,你只要把所有的“个人信息采集表…….xls”放在同一目录中,可以一次性完成导入。

然后,你可以根据需要另行处理了……

你写的代码在那里

坚守VFP最后的阵地
2014-08-01 15:38
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
代码是与你的差不多,所以没发,好用了,省力

只求每天有一丁点儿的进步就可以了
2014-08-01 15:49
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
发上来了

第一个按钮的代码
程序代码:
  CREATE TABLE wjmk( fname c(30))
  aa=ADIR(mm,'个人信息采集表*.xls')   
  FOR nn=1 to aa
    APPEND BLANK
    REPLACE fname with mm(nn,1)
  ENDFOR
  SELECT wjmk
  GO top
  thisform.grid2.RecordSource =''
  thisform.grid2.ColumnCount =-1
  thisform.grid2.RecordSourceType = 1
  thisform.grid2.RecordSource ='wjmk' 
  Thisform.Refresh  
  RETURN 
第二个按钮的代码
程序代码:
thisform.grid1.Visible = .F.
thisform.Refresh
*-----------------------------------------------------
SELECT wjmk
GO top
SCAN
  M_File=ALLTRIM(fname)   &&&GETFILE('xls','录用名单文件')
  IF USED('bmk')
    SELECT bmk
  ELSE 
    SELECT 0
    USE grxxk alia bmk
  ENDIF

 
  IF EMPTY(M_File)
    MESSAGEBOX("请选择待导入的EXCEL文档!",0+48,"提示")
    RETURN
  ELSE
   IF !JUSTEXT(M_FILE)$"XLS.xlsx"                             &&获得文件扩展名(JUSTEXT(M_FILE)#"XLS.xlsx")
     =MESSAGEBOX("您选择的不是EXCEL文档!",0+48,"提示")
     RETURN
   ENDIF
  ENDIF

  myexcel=createobject('excel.application')        && 创建一个对象
  IF !VARTYPE(myexcel)$"Oo"                        &&& 如果用户的电脑上未装EXCEL软件,则结束运行。
    MESSAGEBOX("建立EXCEL文件失败,请检查OFFICE是否正常!",48,"提醒:")
    RETURN
  ENDIF
  myexcel.visible=.F.                                && 对象不可见
  bookexcel=myexcel.workbooks.open(mypath+M_File)            && 打开指定文件
  *o_SheetName=myexcel.application.ActiveSheet.Name    && 获取当前激活工作表的名称
  *o_UsedRange =bookexcel.worksheets(o_SheetName).UsedRange     && 返回工作表中可使用的区域,UsedRange表的属性
  *o_rows=o_UsedRange.rows.count                        && 汇总行
  *o_cols=o_UsedRange.columns.count                     && 汇总列

 
  LOCAL m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18,m19,m20
  LOCAL m21,m22,m23,m24,m25,m26,m27
       m1=myexcel.cells(1,2).text      &&身份证号  
       m2=myexcel.cells(2,2).text      &&姓名     
       m3=myexcel.cells(2,4).text      &&学校代码
       m4=myexcel.cells(2,6).text      &&学校名称全称 
       m5=myexcel.cells(2,8).text      &&年级
       m6=myexcel.cells(3,2).text      &&班级名称      
       m7=myexcel.cells(3,7).text      &&性别
       m8=myexcel.cells(4,2).text      &&民族
       m9=myexcel.cells(4,7).text       &&户籍镇街      
       m10=myexcel.cells(5,2).text      &&监护人      数值型的写法:m10=myexcel.cells(i,10).value
       m11=myexcel.cells(6,2).text      &&监护人手机
       m12=myexcel.cells(6,5).text      &&家庭住址      
       m13=myexcel.cells(7,2).text      &&学籍辅号
       m14=myexcel.cells(7,4).text      &&身份证号  
       m15=myexcel.cells(7,6).text      &&姓名     
       m16=myexcel.cells(8,3).text      &&学校代码
       m17=myexcel.cells(8,6).text      &&学校名称全称 
       m18=myexcel.cells(9,3).text      &&年级
       m19=myexcel.cells(9,6).text      &&班级名称      
       m20=myexcel.cells(10,2).text      &&性别        数值型的写法:m10=myexcel.cells(i,10).value
       m21=myexcel.cells(10,4).text      &&民族
       m22=myexcel.cells(10,9).text      &&户籍镇街      
       m23=myexcel.cells(12,2).text      &&监护人
       m24=myexcel.cells(13,2).text      &&监护人手机
       m25=myexcel.cells(11,2).text      &&家庭住址      
       m26=myexcel.cells(11,5).text      &&学籍辅号
       m27=myexcel.cells(11,9).text      &&身份证号 
       SELECT bmk
       APPEND BLANK
       REPLACE bh WITH m1,xm WITH m2,xb WITH m3,csrq WITH m4,mz WITH m5,jg WITH m6,csd WITH m7,jtzz WITH m8,post WITH m9
       REPLACE gzdw WITH m10,tel WITH m11,telm WITH m12,cjgzsj WITH m13,rdsj WITH m14,sfzh WITH m15,xl WITH m16,byxxzy WITH m17
       REPLACE zjxl WITH m18,zjbyxxzy WITH m19,xrzw WITH m20,jszw WITH m21,jszc WITH m22,jzqk WITH m23,ndkhqk WITH m24
       REPLACE hyzk WITH m25,jscs WITH m26,jslssj WITH m27
  
  myexcel.workbooks.close    && 关闭工作簿
  myexcel.quit               && 关闭excel
  RELEASE myexcel            && 释放对象变量,以完全结束EXCEL的进程
  SELECT wjmk
ENDSCAN
*-------------------------
SELECT bmk
GO top

thisform.grid1.ColumnCount =-1
thisform.grid1.RecordSource ='bmk'
thisform.grid1.RecordSourceType =1
thisform.grid1.Visible = .T.
thisform.Refresh
MESSAGEBOX('恭喜您,员工数据信息导入成功!',64,'提示:',1500)

&&后的注释对不上,请忽略。我是从自己用的导学生信息中改改的。

只求每天有一丁点儿的进步就可以了
2014-08-01 15:56
vereesa
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2014-4-28
收藏
得分:0 
以下是引用wengjl在2014-8-1 15:25:29的发言:


楼主好,昨天的工具改进了一下,你只要把所有的“个人信息采集表…….xls”放在同一目录中,可以一次性完成导入。

然后,你可以根据需要另行处理了……



谢谢wengjl老师,我正在看您的工具和代码,改进后的功能太棒了,这个工具真的很实用!相信这个工具能帮助到更多需要的人!非常感谢!!
2014-08-01 16:50
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
编程的关键是思路,代码的优劣是基础。

坚守VFP最后的阵地
2014-08-01 16:54
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
我的导入是每年中考报名时各初中有用。

只求每天有一丁点儿的进步就可以了
2014-08-01 16:55
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
网上和论坛中收集来的小段小段的代码是一块块的砖——基础

用它砌成了墙,造好的房————架构思路与劳作的体现

于是乎成了砖家,与专家没得比哎…… 哈哈…… 哈哈…… 哈哈…… 哈哈…… 哈哈…… 哈哈……

只求每天有一丁点儿的进步就可以了
2014-08-01 17:07
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
这一次导入,节约很多的时间哦
2014-08-01 18:45
快速回复:使用 VFP 读取 excel 的信息采集表各项内容
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.106252 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved