提供2种方法, 大致思路如下:
OLE方式打开Excel,读取前2行,遍历所有列,分析出列的名称和列的类型,
根据分析的结果,建立列结构对应的空白的DBF.
控制OLE对象,另存为CSV,或TXT
OLE对象退出.
打开上一步建立的空白DBF,Append from ... 刚才另存的CSV,或TXT
这种方式避开的逐格子读取,应该是最快的.
*=============================================================*
当然,把Excel作为一个数据源,用ADO方式访问也可以,大致思路描述如下:
ADO建立连接,访问指定Sheet的数据,并保存于RecordSet中
遍历RecordSet各列,分析各列的名称和列数据类型,
根据分析的结果,建立列结构对应的空白的DBF.
RecordSet以TXT格式,保存到硬盘
ADO连接关闭
打开上一步建立的空白DBF,Append from ... 刚才另存的TXT
这种方式同样避开的逐格子读取.
这里只给出思路,代码的话,论坛中已经有很多前辈有示范了.这里就不重复了.