| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2390 人关注过本帖
标题:VFP怎样自动读取多张样式相同的个人信息采集表(Excel格式)到dbf汇总表中
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:15 
Use Grxx in 0 && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
SELECT grxx
Local Axx[Reccount()] && 无效的下标引用

或者
Use Grxx in 0 && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
Local Axx[Reccount("Grxx")] && 无效的下标引用

楼主的基础实在是太弱了

[此贴子已经被作者于2021-4-13 12:31编辑过]


坚守VFP最后的阵地
2021-04-13 12:26
王咸美
Rank: 1
等 级:新手上路
帖 子:658
专家分:3
注 册:2018-1-4
收藏(1)
得分:0 
@sdta 非常感谢!!!完美解决问题。
2021-04-13 12:53
radiofan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:466
专家分:696
注 册:2006-7-30
收藏
得分:0 
以下是引用sdta在2021-4-13 12:26:54的发言:

Use Grxx in 0 && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
SELECT grxx
Local Axx[Reccount()] && 无效的下标引用

或者
Use Grxx in 0 && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
Local Axx[Reccount("Grxx")] && 无效的下标引用

楼主的基础实在是太弱了

2021-04-13 13:08
ycvf
Rank: 2
等 级:论坛游民
帖 子:210
专家分:56
注 册:2012-8-25
收藏
得分:0 
回复 10楼 王咸美
能否补齐每行代码的注释
图片附件: 游客没有浏览图片的权限,请 登录注册

落花人独立,微雨燕双飞。
2021-04-15 16:47
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
这里的位置,是叫你换成数据在EXCEL中的单元格坐标

只求每天有一丁点儿的进步就可以了
2021-04-16 08:09
ycvf
Rank: 2
等 级:论坛游民
帖 子:210
专家分:56
注 册:2012-8-25
收藏
得分:0 
回复 15楼 wengjl
图片附件: 游客没有浏览图片的权限,请 登录注册

尽管查了很多资料,也看不懂这几行的代码?能否帮加个注释

落花人独立,微雨燕双飞。
2021-04-16 08:38
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏(1)
得分:0 
程序代码:
    *************************************
    * 名称:读取E表中的个人信息
    * 思路:
    *************************************
    SET ENGINEBEHAVIOR 70
    SET SAFETY OFF 
    SET TALK OFF 
    *---
    PUBLIC mypath
    cCurrentProcedure = SYS(16,1)
    nPathStart = AT(":",cCurrentProcedure)- 1
    nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
    mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
    SET DEFAULT TO (mypath)
    t=SECONDS()
    CLOSE DATABASES    
    SELECT 0
    USE 信息汇总表 ALIAS bmk
    ZAP 
    SELECT 0
    USE grxx ALIAS kg
    MyExcel=createobject('excel.application')          &&创建一个对象
    IF !VARTYPE(myexcel)$"O.o"      &&& 如果用户的电脑上未装EXCEL软件,则结束运行。
     MESSAGEBOX("建立EXCEL文件失败,请检查OFFICE是否正常!",48,"提醒:")
     RETURN 
    ENDIF
    MyExcel.visible=.T.                    &&& 对象不可见
    MyExcel.DisplayAlerts = .F.            &&& 关闭EXCEL的系统对话框
    FOR i=1 TO 9   
      filemc="个人信息采集表00"+STR(i,1)+".xls"
      Mb_excel=myexcel.workbooks.open(mypath+"\"+filemc)     && 打开指定文件
      SELECT bmk 
      APPEND BLANK 
      SELECT kg
      GO TOP 
      SCAN   
        c_fnam=ALLTRIM(kg.字段内容)
        c_wz=ALLTRIM(kg.位置)
        SELECT bmk
        REPLACE ('bmk.'+c_fnam) WITH Mb_excel.activesheet.cells(&c_wz.).text
        SELECT kg
      ENDSCAN  
      MyExcel.ActiveWorkbook.close     
    ENDFOR  
    *-------    
    MyExcel.DisplayAlerts = .T.   &&& 恢复EXCEL的系统对话框 
    MyExcel.WorkBooks.close       &&& 关闭工作区  
    MyExcel.QUIT                  &&& 关闭excel
    RELEASE MyExcel               &&& 释放对象变量,以完全结束EXCEL的进程
    CLOSE DATABASES 
    ? SECONDS()-t
    MESSAGEBOX('读取结束!',64,'提示:',1000)
    QUIT    

只求每天有一丁点儿的进步就可以了
2021-04-16 12:25
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
range("A3") 可识别。RANGE(3,1) 无法识别

只求每天有一丁点儿的进步就可以了
2021-04-16 13:15
快速回复:VFP怎样自动读取多张样式相同的个人信息采集表(Excel格式)到dbf汇总 ...
数据加载中...
 
   



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

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