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

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

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

只看楼主

laowan001

等　级：版主
威　望：54
帖　子：802
专家分：1914
注　册：2015-12-30

第 31 楼

得分:0

realease arr 呢

2021-11-17 19:01

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：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

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：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

等　级：论坛游民
威　望：1
帖　子：157
专家分：35
注　册：2005-9-29

第 34 楼

得分:0

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

2021-11-24 06:09

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：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

ls_y041

等　级：论坛游民
威　望：1
帖　子：157
专家分：35
注　册：2005-9-29

第 36 楼

得分:0

还想再问一下如果是csv的文件吹版主的代码要如何实现，谢谢

2021-11-24 18:56

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 37 楼