我用 oExcel.ActiveWorkbook.SAVEAS(objFolder.path+"\"+"&WJMT"+".txt",-4158) &&另存TXT是考虑到EXCEL表太大,如果直接追加到DBF会出现记录追加不完整的情况.
将EXCEL表另存为TXT后，以TAB隔开，但头痛的是另存为TXT后个别字段被加了双引号，如 "黑色；HIPS新料压制。SCART状态，带CI卡，不带DVD,不旋转。"
再用追加到DBF表中时： APPEND FROM "&WJMT"+".txt" DELIMITED WITH TAB
只要TXT文档中被加双引号的行项目，导入DBF都是错位的。目前没有好的解决方案，特请教高手。
另预祝朋友们节日快乐！
------解决方案--------------------------------------------------------
你你上传的XLS文件，直接另成为DBF，格式正确，
如果有备注字段且长度过长的话，要用代码来导入
------解决方案--------------------------------------------------------
Csv 格式，你试一下
oExcel.ActiveWorkbook.SAVEAS(objFolder.path+"\"+"&WJMT"+".Csv",6)
或
oExcel.ActiveWorkbook.SAVEAS(objFolder.path+"\"+"&WJMT"+".Csv",22)
或
oExcel.ActiveWorkbook.SAVEAS(objFolder.path+"\"+"&WJMT"+".Csv",23)
或
oExcel.ActiveWorkbook.SAVEAS(objFolder.path+"\"+"&WJMT"+".Csv",24)