xls工作表有表头的想导入DBF字段要如何处理一下 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → xls工作表有表头的想导入DBF字段要如何处理一下

我的收件箱(0)

共有 5074 人关注过本帖， 3 人收藏

标题：xls工作表有表头的想导入DBF字段要如何处理一下

只看楼主加入收藏

laowan001

等　级：版主
威　望：66
帖　子：1118
专家分：2757
注　册：2015-12-30

第 31 楼

得分:0

realease arr 呢

2021-11-17 19:01

吹水佬

等　级：版主
威　望：451
帖　子：10796
专家分：43364
注　册：2014-5-20

第 32 楼

得分:0

以下是引用吹水佬在2021-11-17 18:51:05的发言：

还有最后不足500行的问题，会产生空记录

这样试试

程序代码：

rs = 500  && 每次行数
FOR i=1 TO nRow STEP rs
    r = IIF((i+rs)<=nRow, rs, nRow-i+1)
    arr = myexcel.cells(i,1).resize(r,nCol).value  
    INSERT INTO bmk FROM ARRAY arr        &&& 将数组中的数据，追加到DBF表中
ENDFOR

2021-11-17 21:16

wengjl

等　级：贵宾
威　望：109
帖　子：2319
专家分：4195
注　册：2007-4-27

第 33 楼

得分:0

以下是引用吹水佬在2021-11-17 18:48:00的发言：

arr= myexcel.cells(i,1).resize(i+499,nCol).value
resize是每次的行数和列数
arr= myexcel.cells(i,1).resize(500,nCol).value

非常感谢吹版的指导。　原来是我没明白　的缘故。　完美解决，原来要40分钟，现在只是1分钟解决了31万多数据的转换，最后有多余的空行，只要加一个dele和pack就好了。再次感谢！

只求每天有一丁点儿的进步就可以了

2021-11-18 08:17

ls_y041

等　级：论坛游民
威　望：2
帖　子：201
专家分：69
注　册：2005-9-29

第 34 楼

得分:0

想问一下用vfp 可以生成excel 2003版本的吗文件吗

2021-11-24 06:09

wengjl

等　级：贵宾
威　望：109
帖　子：2319
专家分：4195
注　册：2007-4-27

第 35 楼

得分:0

SET SAFETY OFF
MyPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (MyPath)
WITH CREATEOBJECT("Excel.Application")
    .visible=.t.
    .DisplayAlerts = 0
    .workbooks.add
    .cells(1,1).value="测试EXCEL另存为各种格式的参数"
    .activeworkbook.SaveAs(MyPath+"测试EXCEL另存为各种格式的参数.xls",56)     &&& 39-表示：5.0/95工作簿，56－EXCEL 97-2003工作簿
    .WorkBooks.Close
    .Quit
ENDWITH

以上VFP8 和 EXCEL2007 通过

[此贴子已经被作者于2021-11-24 10:09编辑过]

只求每天有一丁点儿的进步就可以了

2021-11-24 08:31