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

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

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

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

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

只看楼主加入收藏

laowan001

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

第 11 楼

得分:0

回复 9楼 ls_y041

我的想法确实有问题，因为基本不用xls，所以没注意到还会这样子
你7楼的程序里不是已经改了sheet的名字了吗？
   oExcel.Worksheets(fsheet).Activate && 激活sheet表格，因为导进去的名称是文件名称
   oExcel.ActiveSheet.Name="销售出库明细导入"
   oExcel.ActiveWorkbook.Save

2021-11-14 21:33

吹水佬

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

第 12 楼

得分:0

回复 10楼 ls_y041

7楼的做法就可以，喜欢用EXCEL就要接受慢的感觉

2021-11-15 10:00

laowan001

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

第 13 楼

得分:0

一定要用xls格式吗？

2021-11-15 10:50

ls_y041

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

第 14 楼

得分:0

回复 12楼吹水佬

图片附件: 游客没有浏览图片的权限，请登录或注册

2021-11-15 12:43

wengjl

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

第 15 楼

得分:0

以下是引用吹水佬在2021-11-13 21:19:06的发言：

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
xlsFile = cDefPath + "信息管理.xls"
WITH CREATEOBJECT("Excel.Application")
    .DisplayAlerts = 0
    .WorkBooks.Open(xlsFile)
    nRow = .CountA(.Range("A:A")) - 2
    nCol = .CountA(.Range("4:4"))
    arr  = .Cells(5,1).Resize(nRow,nCol).Value
    .WorkBooks.Close
    .Quit
ENDWITH
CREATE CURSOR tt (序号 I, 零部件代码 C(10),零部件名称 C(10),建议销售价 I,销售分类 C(10),拼音代码 C(10),单位 C(10))
INSERT INTO tt FROM ARRAY arr
SELECT * FROM tt

吹版好：
上述代码测试很灵光。所以，换成我的EXCEL表，因为有31万多条记录，25个字段，我想提高效率，结果执行到上面标红的那一句数组，就卡住了。
请问　数组里最多能存放多少条记录？

因为我一个一个单元格读，要花一节课左右的时间，想提高效率，还有点难啊！

[此贴子已经被作者于2021-11-17 14:27编辑过]