给LS_Y041的回复：灵活读取EXCEL表到DBF

wengjl 发布于 2022-03-22 11:19， 2591 次点击

第一步：为创建DBF表，修改EXCEL成下图所示：（因你的表已被加密了，所以贴个图）

只有本站会员才能查看附件，请登录

第二步：执行“create建表.prg”，得到flmx_sjk.dbf 和 flmx_zdlh.dbf二个表
第三步：打开flmx_zdlh.dbf 逻辑删除几个你不想导入的字段，不删除全部导入
第四步：执行“excel_to_dbf.prg”，就得到你想要的结果了

只有本站会员才能查看附件，请登录

11 回复

wengjl2022-03-22 11:24

换另一个列数更多的EXCEL表要读取，只要做一下第一步和第二步，后面的不用修改直接执行就行。

如果你执行第二步时生成的二个表的名称改了，那第四步执行的PRG里也得修改一下打开表的名称

ls_y0412022-03-22 17:00

只有本站会员才能查看附件，请登录

ls_y0412022-03-22 17:03

只有本站会员才能查看附件，请登录

表已上传运行有错误，谢谢！！！

wengjl2022-03-23 08:04

建对应表，也可以手工。

要用命令来建表，对EXCEL的首5行，按1楼的图。

我只所以想出这个办法，是因为我的工作中，遇到EXCEL表字段数有近百个，每次建这个字段对应表，感觉很麻烦，才想了这个方法。

wengjl2022-03-23 08:12

1楼图中
第1行 txt 与 val 是决定以文本方式，还是以值的方式写入到DBF表
第2行的数据决定 DBF表的字段宽度
第3行是控制DBF表的字段类型
第4行是DBF表的字段名，这一行中不能有重复
第5行是EXCEL的字段名，在EXCEL中允许重复，但VF读的时候，如有重复，会出错需要手工处理一下，使之不重复

wengjl2022-03-23 08:16

二个D表创建好后，1楼图中的首4行也可以删除，可以对你3楼的附件直接读取（读前有二个地方的代码要修改一下：1个是检测字段名在哪列的行号，2个是从第几行开始读的i值）

zhousr2022-03-23 13:31

wengjl2022-03-24 08:28

谢谢！@zhousr
10多次下载，除我交流的对象（Ls_y041）外，只你有回复，看样子你是看懂了偶那代码中的思路。祝你进步

#10

zhousr2022-03-24 14:32

回复 9楼 wengjl

是要谢谢你！你分享了个好东西

#11

jwcyf2022-03-30 17:19

谢谢

#12

ljlhpop2022-03-30 17:45

先下载，非常感谢，收藏收藏

[此贴子已经被作者于2022-3-30 17:49编辑过]