dbf 到 excel转换

&& Dbf2Excel.PRG && 记得要安装Excel啊，否则不好用 CLOSE DATABASES ALL SET DATE ANSI SET CENTURY ON cDbfFile = GETFILE("dbf") IF EMPTY(cDbfFile) RETURN ENDIF USE (cDbfFile) ALIAS FoxTable IN 0 IF NOT USED("FoxTable") =MESSAGEBOX("打开表失败，程序将中止！", 16, "Error") RETURN ENDIF cExcelFile = PUTFILE("保存为(&N):",JUSTSTEM(cDbfFile)+".xls","xls") IF EMPTY(cExcelFile) CLOSE DATABASES ALL RETURN ENDIF SELECT FoxTable oExcelSheet = GETOBJECT("","Excel.Sheet") && 产生Excel对象 IF NOT TYPE("oExcelSheet") = "O" =MESSAGEBOX("Excel对象创建失败，程序将中止！", 16, "Error") RETURN ENDIF oExcelApp = oExcelSheet.Application oExcelApp.Workbooks.Add() oExcelApp.ActiveWindow.WindowState=2 oSheet = oExcelApp.ActiveSheet nFldCount = AFIELDS(aFldList, "FoxTable") FOR i = 1 TO nFldCount oSheet.Cells(1,i).Value = aFldList[i, 1] ENDFOR cRecc = STR(RECCOUNT("FoxTable")) SCAN WAIT WINDOW ALLTRIM(STR(RECNO())) + "/" + cRecc NOWAIT FOR i = 1 TO nFldCount vValue = .NULL. IF AT(aFldList[i, 2], "CDLMNFIBYT") = 0 LOOP ENDIF cFldName = aFldList[i, 1] vValue = EVALUATE(cFldName) DO CASE CASE aFldList[i, 2] = "C" && 字符/字符串 vValue = TRIM(vValue) CASE aFldList[i, 2] = "D" && 日期 vValue = DTOC(vValue) CASE aFldList[i, 2] = "T" && 日期时间 vValue = TTOC(vValue) CASE INLIST(aFldList[i, 2], "N", "F", "I", "B", "Y") && 数值 CASE aFldList[i, 2] = "L" && 逻辑 CASE aFldList[i, 2] = "M" && 备注型 OTHERWISE vValue = .NULL. ENDCASE IF VARTYPE(vValue) = "C" AND EMPTY(vValue) LOOP ENDIF IF NOT ISNULL(vValue) oSheet.Cells(RECNO("FoxTable")+1, i).Value = vValue ENDIF ENDFOR ENDSCAN cChrStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" FOR i = 1 TO nFldCount cColumn = SUBSTR(cChrStr, INT((i-1)/26), 1) + SUBSTR(cChrStr, IIF(MOD(i, 26)= 0, 26, MOD(i, 26)) , 1) oSheet.Columns(cColumn + ":" + cColumn).ColumnWidth = 12 IF aFldList[i, 2] = "M" oSheet.Columns(cColumn + ":" + cColumn).WrapText = .F. ENDIF ENDFOR oExcelApp.ActiveWorkbook.SaveAs(cExcelFile) oExcelApp.ActiveWorkbook.Close(.F.) oExcelApp.ActiveWorkbook.Close(.F.) oExcelApp.Quit oExcelSheet = .NULL. oExcelApp = .NULL. WAIT CLEAR =MESSAGEBOX("转换完毕！", 64, "OK") CLOSE DATABASES ALL 程序是用VFP 8写的，记得好像在VFP 6中也试过，没有问题。只要能够执行完成，就会是正确的，行数只受你安装的Excel最大行数限制，至少大于65535行我做这个程序就是因为转换数据时，有MEMO类型的字段，到了Excel里面就只有250个字节长了。 -------------------------------------------------------------- xlQuery=exlapp.ActiveSheet.QueryTables.Add("OLEDB;Provider=VFPOLEDB;Data Source="+ipath+";Mode=Share Deny None;Password='';Collating Sequence=MACHINE", exlapp.Range("A2"), "select * from table") 此种方法不支持包含MEMO超长的数据 --------------------------------------------------------------- 如果你的数据中都是普通的数值和字符串类型，直接用Excel打开表，然后“另存为”一个Excel就可以了，简单明了，不出错。

dbf 到 excel转换相关推荐

kml文件转成cvs_如何将excel转换成kml
程序功能:可以实现EXCEL文件向KML文件转化,EXCEL文件要求在4列以上.首行为标题,首列为经度,次列为纬度. 打开程序KmlGenerator(Excel 转KML文件工具),打开Excel ...
excel转换成html工具,Convert Excel to HTML(Excel转HTML工具) V29.11.15 官方版
Convert Excel to HTML 是一款简洁实用的批处理HTML转换器,转换Excel到HTML和MHT格式文件.它允许您在一个或多个Excel文件中将每个Excel表转换为新的HTML和M ...
TestLink1.9.3测试用例：Excel转换XML工具一
最近在整理测试用例,所以想找一个合适的工具来完成对测试需求.测试用例的管理.对比了一翻,发现开源工具中扩展比较好的还属TestLink,而且还可以与JIRA进行对接,这样就引起了我更大的兴趣.加上之前 ...
TestLink学习七：TestLink测试用例Excel转换XML工具
TestLink对于测试用例的管理来说,是蛮强大的,但是在导入导出这块,功能有点弱,本文针对测试用例的导入,转载了一个Excel转换成xml工具. 1.根据到处的测试用例xml,定义一下我的Excel ...
转：TestLink1.9.3测试用例：Excel转换XML工具二实现代码
TestLink1.9.3测试用例:Excel转换XML工具<二>实现代码 http://blog.csdn.net/candle806/article/details/7490599 以 ...
TestLink测试用例：Excel转换XML工具二实现代码
以下是通过VBScript实现的Excel数据转换成XML格式,主要用于实现Testlink1.9.3-1.9.10的测试用例导入.代码实现如下: 根据到处的测试用例xml,定义一下我的Excel的格 ...
Excel转换成Json工具
Excel转换成Json工具: 可执行版本下载:https://github.com/neil3d/excel2json/releases 完整项目源代码下载:https://github.com/n ...
转换文档参数_1分钟教会你将Excel转换成Word，简单高效，办公人士必备神技
现在不管是在学习上还是工作中,我们和Word文档.Excel表格的接触是越来越多了.有一些小伙伴在用Excel做完表格数据以后,有的时候会因为便于查看等等原因需要用Word打开Excel表格.这时候我 ...
Java实现office转PDF文件支持全部转换及Excel转换乱码和格式错乱解决
本人用的时springboot + LiberOffice ,根据需要进行代码调整 1.所需软件:LiberOffice,可到管网下载,它支持Linux与Owindows系统,挺好用官网地址:下载 ...

dbf 到 excel转换

dbf 到 excel转换相关推荐

最新文章

热门文章