标题:将EXCEL中的十个竖排单元格的数据粘到TXT上,如何以备注格式数据导入VFP表十 ...
只看楼主
dznbomingzhi
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2019-5-26
结帖率:80%
已结贴  问题点数:20 回复次数:5 
将EXCEL中的十个竖排单元格的数据粘到TXT上,如何以备注格式数据导入VFP表十个单元格中
我手头有一个EXCEL表,其中有一列内容很多,导入VFP表中想以备注格式保存。现在将EXCEL粘到TXT中,如何导入VFP表中的备注格式字段?
搜索更多相关主题的帖子: 单元格 导入 EXCEL VFP 数据 
2019-11-04 22:57
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
给个EXCEL文件看看
2019-11-05 05:37
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:0 
回复 楼主 dznbomingzhi
先按照自己的要求创建好数据表结构,然后从txt文件导入即可。
2019-11-05 07:26
dznbomingzhi
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2019-5-26
得分:0 
回复 2楼 吹水佬
打个比方,要将以下人员的简历导入数据库。
人员简历.zip (9.86 KB)
谢谢。
2019-11-05 09:44
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:20 
回复 4楼 dznbomingzhi
读一行写一个记录

CREATE CURSOR tt (姓名 C(10), 简历 M)
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open("C:\TEMP\人员简历\人员简历.xlsx")
FOR i=1 TO oExcel.ActiveSheet.UsedRange.Rows.Count
    IF !(oExcel.Cells[i,1].Value==".NULL.")
        INSERT INTO tt VALUES (oExcel.Cells[i,1].Value, oExcel.Cells[i,2].Value)
    ENDIF
ENDFOR
oExcel.ActiveWorkBook.Saved = .T.
oExcel.WorkBooks.Close
oExcel.Quit
BROWSE
RETURN
2019-11-05 12:10
dznbomingzhi
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2019-5-26
得分:0 
谢谢了,问题解决了,我现在看的书都是入门的书籍,你能推荐本专业书吗,你上面写的代码很多函数我都没见过?
2019-11-05 13:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-497618-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023801 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved