主题:[原创]献上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 &&
有时出现“至命错误”,就算勉强转为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 &&