首先,假定你的DBF空文件已经就绪,各列的设置已经与Excel文件相符。
1、用adir()获取指定文件夹中的文件名,再遍历这个数组。
2、用对象方法打开一个Excel文件,这里有一个问题:不同的文件,数据是否都在Sheet1?
如果不满足,还需要一个找数据的过程,即在每个Sheet中遍历,比如正常的数据,第3列的表头叫“入库日期”那么符合这个条件的,才调用导入数据的Function
3、继续执行这个循环,直到结束。
这里只给出整体思路,代码以前的帖子有现成的,这里就不重复了。
从Excel中取数据的方法很多,比较简单的是以前老版主的方法:取到一个数组中,再从数组输出到DBF,这个过程比较方便。
其实这里只是设想了最理想的情况,实际情况中,你未必能如此幸运,因为Excel的随意性,我们实际收上来的表,千差万别,各种奇葩的列名字都有,
比如我们有时收集上来的表,同样的列,甲做的表,这列叫“代扣费用 工会会费”中间是一个空格,乙做的表,这列叫“代扣费用 工会会费”中间是一个TAB 符号,丙做的表,这列叫“代扣费用 工会会费”中间是一个全角的空格符号,丁做的表更奇葩,这列叫做“代扣费用 工会会费”中间是一个回车符。
总之,单位上如果叫下属单位用Excel收集数据,归总数据的职工真得会累成狗。我们现在已经尽可能避免用Excel做数据,真的伤不起。