Excel转DBF.docVIP

供参考： (1)在 Excel 中，选中所有列 (2)选择菜单：“格式”“列”“最适合的列宽” (3)把选中列的字体缩小（推荐使用宋体字） (4)保存为 DBF 如何把excel表中的数据添加到数据库的.dbf表中 sele dbf表 APPEND FROM 文件名 TYPE XL8 从外部格式文件导入数据，来创建一张新的 Visual FoxPro 表。 IMPORT FROM 文件名 TYPE XL8 要选转成XLS5的格式，再APPEND FROM I:\TJFX\REPORTS\BOOK1.XLS TYPE XLs,可以全部在VFP系统中完成的。 我的习惯是，不要EXCEL的标头，然后直接用命令 import from d:\ss.xls type xl5 这样就可把文件导入到ss.dbf中，不过字段名依次为A、B、C、D......，这样也有好处，就是字段使用简单，好写，如果想改变字段名的话也简单，用查询 select a as ma,b as mb,c as mc from ss 这样就生成一个新表。 当然，利用APP对象也可操作EXCEL，有点麻烦，编程时可用，在命令窗口就不实用了。 如果你的記錄數不會超過65535，那麼，直接用copy XXX to **.xls type xl5便可以，XL5最大導出的記錄數65535行，如果超過了就得自行處理，分段截取記錄導出 ********************** 一个EXCEL转DBF的好工具，谁能帮助修改一下: 另外我看了那个软件，要改也容易，改一行就 *************** COLcount = 0 For NCol = 1 To 256 If Not IsEmpty(Sheets(1).Cells(1, NCol).Value) Then COLcount = COLcount + 1 Else Exit For End If Next NCol MsgBox CHA(COLcount) Columns(A: CHA(COLcount)).Select ************** 改为一句 ActiveWorkbook.UsedRange.Select 就行了 ********* use table_name zap append from excel_name type xls ********************* 在excel中点文件下另存为，文件名自己输，文件类型dbf4，点保存即可 ******************* 这是以前论坛上一位朋友的，在我的系统中经常用，不知对你是否有用。 CLOSE TABLES ALL LOCAL Bg1 AS Excel.APPLICATION FileName=1.xlsexcel文件名 SheetName=sheet1工作表名 DbfName=SYS(5)+SYS(2003)+[\datas\ksdata]data为数据表名 IF EMPTY(FileName) MESSAGEBOX(请选择要导出的Execl名称,64,系统信息) RETURN ENDIF IF EMPTY(SheetName) MESSAGEBOX(请选择要导出的Execl工作表名称,64,系统信息) RETURN ENDIF IF EMPTY(DbfName) MESSAGEBOX(请选择要导入的DBF表,64,系统信息) RETURN ENDIF IF USED(lsdbf) USE IN lsdbf ENDIF USE DbfName SHARED ALIAS lsdbf FOR gnCount = 1 TO FCOUNT( ) IF gnCount=1 ZdName=field(gnCount) ELSE ZdName=ZdName+[,]+FIELD(gnCount) ENDIF NEXT TRY Bg1=CREATEOBJECT(Excel.Application) CATCH MESSAGEBOX(请确认系统是否安装了Microsoft Execl应用程序。,64,系统信息) ENDTRY Bg1.Workbooks.OPEN(FileName) 打开指定的Execl Bg1.Sheets(SheetName).SELECT ExeclEnd=.F. *下面四句可根据实际情况设定 ksh=3excel表中有数据开始的行 jsh=85excel表中有数据结束的行 ksl=1excel表中有数据开始的列 jsl=11excel表中有数据结束的列 cc=ksh DO WHILE cc=jsh zdname1=ZdName SELECT lsdbf APPEND BLANK FOR a=ksl TO j