| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2820 人关注过本帖
标题:将excel逐个转为dbf,代码未运行成功,请问错在哪里了?能帮我指出来吗?谢谢 ...
取消只看楼主 加入收藏
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
结帖率:96%
收藏
已结贴  问题点数:20 回复次数:3 
将excel逐个转为dbf,代码未运行成功,请问错在哪里了?能帮我指出来吗?谢谢!
程序代码:
SET DEFAULT TO ADDBS(JUSTPATH(SYS(16)))                 
CLEAR  
CLOSE  all
SET SAFETY OFF 

iCount=ADIR(xlsList,"xls")
FOR i=1 to iCount
    xlsName=xlsList(i,1)
    ff=JUSTSTEM(xlsName)
      
cExcel =SYS(5)+SYS(2003)+"\"+ff+'.xls'   
cHDR = "YES"    
cSheet = "[sheet1$A2:d]"
cSQL = "SELECT * FROM " + cSheet
    cConn = "Provider=Microsoft.ACE.OLEDB.12.0;";
            + "Extended Properties='Excel 12.0;HDR="+cHDR+";IMEX=1';";
            + "Data Source=" + cExcel 
oConn = CREATEOBJECT("ADODB.Connection")
oConn.Open(cConn)
oRs = CREATEOBJECT("ADODB.Recordset")
oRs.Open(cSQL, oConn, 1, 3, 1)
oRs.MoveFirst
cstr = ""

CREATE CURSOR tt (编号 I, 姓名 C(10), 联系电话 C(20), 部门 C(10))
cStr = oRs.GetString()
STRTOFILE(cStr, "tmp.txt")
SELECT tt
APPEND FROM tmp.txt DELIMITED WITH TAB  FOR 编号<>0

 COPY TO &ff 
oRs.Close
oConn.Close
CLEAR ALL 
*RETURN
ENDFOR

****以上代码未运行成功,请问错在哪里了?能帮我指出来吗?谢谢!
通讯录教导处.rar (2.8 KB)

通讯录校长室.rar (2.98 KB)


[此贴子已经被作者于2020-12-5 06:21编辑过]

搜索更多相关主题的帖子: excel 运行 CLOSE 代码 运行 成功 excel 成功 CLOSE 代码 
2020-12-04 21:52
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
谢谢吹水佬
谢谢schtg
在学习中……,不明白的地方再请教。
最终想实现:
1、程序放在哪儿都能运行;
2、excel有20~30个结构完全相同,只不过是excel表文件名不同;
3、excel逐个转换成同名dbf表后,合并生成一个总表dbf。

[此贴子已经被作者于2020-12-7 06:11编辑过]

2020-12-07 05:56
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 9楼 shenkj001
运行到cStr = oRs.GetString()时出现
图片附件: 游客没有浏览图片的权限,请 登录注册

这个提示不明白。
2020-12-07 19:28
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 9楼 shenkj001
运行到cStr = oRs.GetString()时出现
图片附件: 游客没有浏览图片的权限,请 登录注册

这个提示不明白。
2020-12-07 19:28
快速回复:将excel逐个转为dbf,代码未运行成功,请问错在哪里了?能帮我指出来吗 ...
数据加载中...
 
   



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

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