回 帖 发 新 帖 刷新版面

主题:[原创]献上EXCEL转为DBF文件的代码

初学者经常会遇到在EXCEL转为DBF文件时,
有时出现“至命错误”,就算勉强转为DBF文件,会发现小了一部分数据。
以下代码会帮初学者解决以上2个问题。
将   f:\股票2\深沪A股1.xls   改为你的EXCEL的祥细地址就可以了。

set safety off
close all
xlsname1='f:\股票2\深沪A股1.xls'            && 输入EXCEL的祥细地址
OleApp=CREATEOBJECT("Excel.Application") 
OleApp.Application.WorkBooks.Open(xlsname1)  && 
OleApp.Cells.Select  
OleApp.Selection.NumberFormatLocal = "@" 
OleApp.Selection.Font.Size = 10
OleApp.Selection.Font.Name='宋体'
oleApp.DisplayAlerts= .F.
OleApp.Workbooks[1].SaveAs(xlsname1,39)      &&
OleApp.Workbooks.close 
OleApp.quit 
RELEASE OleApp 

clos all
IMPORT FROM (xlsname1) TYPE XL8              &&

回复列表 (共4个回复)

沙发

好贴!最可贵之处,是将Excel 表格去掉了。

板凳

学习了!

3 楼

没有楼主说的那么麻烦,说个简单的.
1.打开excel另存为dbf即可.
2.用一条语句:SELECT * INTO book FROM [Excel 5.0;database=D:\book.xls].[Sheet1$];

4 楼

日期不能导入

我来回复

您尚未登录,请登录后再回复。点此登录或注册