| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4241 人关注过本帖, 3 人收藏
标题:xls工作表有表头的想导入DBF字段要如何处理一下
只看楼主 加入收藏
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
回复 40楼 ls_y041
编译VFP的项目生成EXE
2021-11-24 20:37
ls_y041
Rank: 2
等 级:论坛游民
威 望:2
帖 子:176
专家分:66
注 册:2005-9-29
收藏
得分:0 
cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
xlsFile = cDefPath + "信息管理.xls"
WITH CREATEOBJECT("Excel.Application")
    .DisplayAlerts = 0
    .WorkBooks.Open(xlsFile)
    nRow = .CountA(.Range("A:A")) - 2
    nCol = .CountA(.Range("4:4"))
    arr  = .Cells(5,1).Resize(nRow,nCol).Value
    .WorkBooks.Close
    .Quit
ENDWITH
CREATE CURSOR tt (序号 I, 零部件代码 C(10),零部件名称 C(10),建议销售价 I,销售分类 C(10),拼音代码 C(10),单位 C(10))
INSERT INTO tt FROM ARRAY arr
SELECT * FROM tt

想问一下如何这个工作表的字段是不固定的时候,CREATE CURSOR tt (序号 I, 零部件代码 C(10),零部件名称 C(10),建议销售价 I,销售分类 C(10),拼音代码 C(10),单位 C(10))这个要如何处理一下来适应,谢谢!!!
2022-03-21 11:15
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
回复 42楼 ls_y041
先取出EXCEL表栏目的行,然后动态生成语句:code = "CREATE CURSOR tt (,,,,,,)" 串,用 EXECSCRIPT(code)
2022-03-21 14:28
ls_y041
Rank: 2
等 级:论坛游民
威 望:2
帖 子:176
专家分:66
注 册:2005-9-29
收藏
得分:0 
有空帮助示例一下吧,这个不太会处理。谢谢!!!!
2022-03-21 14:46
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用ls_y041在2022-3-21 14:46:23的发言:

有空帮助示例一下吧,这个不太会处理。谢谢!!!!

上面的代码不是有行列变量值,乱改也能撞得到吧,动动手好过在等
2022-03-21 21:13
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
以下是引用ls_y041在2022-3-21 14:46:23的发言:

有空帮助示例一下吧,这个不太会处理。谢谢!!!!

把数据发上来,帮你做一个。因为这二天有时间

只求每天有一丁点儿的进步就可以了
2022-03-22 08:12
ls_y041
Rank: 2
等 级:论坛游民
威 望:2
帖 子:176
专家分:66
注 册:2005-9-29
收藏
得分:0 
发料统计.rar (6.34 KB)
这个是我想实现的表,带黄色是我想要的字段,其他的字段都 可以不要了,但这个表是别人的有时字段总不是固定的,左右顺序不固定,我想要的字段是有的,请帮助示例一下,谢谢。。。。
2022-03-22 09:20
快速回复:xls工作表有表头的想导入DBF字段要如何处理一下
数据加载中...
 
   



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

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