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


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

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

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

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

建对应表，也可以手工。

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


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

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

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

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

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