主题：excel到dbf
yjc9894301
[专家分：0] 发布于 2009-04-16 17:56:00
现用程序方式将exce格式文件转换为dbf文件格式,我试着写了一段程序，为啥转换不成,请高手指点一下.附程序.
最后更新于：2009-04-19 10:31:00
回复列表 （共3个回复）
沙发
qjbzjp [专家分：8830] 发布于 2009-04-26 17:11:00
eole=CREATEOBJECT('Excel.application') && 创建Excel对象
eole.Workbooks.Open(GETFILE("xls")) && 要打开的工作表名
eole.visible=.f. && 不显示Excel窗口
eole.WorkSheets(1).Activate &&激活工作簿1
nrows=eole.Worksheets('Sheet1')
UsedRange =nrows.UsedRange
lnRow = UsedRange.ROWS.COUNT &&获取的总行数(“有内容的”)
CREATE TABLE 表1(编号 C(10),地址 C(10),姓名 C(8)) &&新建表1
for i=4 to lnrow &&从第4行起读到最后一行
****
x1=alltrim(eole.Cells(i,1).value) &&取第i行第一列的值
x2=alltrim(eole.Cells(i,2).value) &&取第i行第二列的值
x3=alltrim(eole.Cells(i,3).value) &&取第i行第三列的值
**
INSERT INTO 表1 (编号,姓名,地址) VALUES (x1,x2,x3)
endfor
eole.Workbooks.close && 关闭工作簿
eole.quit && 退出Excel
板凳
yjc9894301 [专家分：0] 发布于 2009-07-11 16:58:00
多谢指点!
3 楼
jinlonggao [专家分：17130] 发布于 2009-07-11 17:58:00
可以看一下我发布的贴子,有相关的内容.
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — excel到dbf