| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2148 人关注过本帖
标题:将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
等 级:版主
威 望:451
帖 子:10538
专家分:42927
注 册:2014-5-20
收藏
得分:0 
给个EXCEL文件看看
2019-11-05 05:37
schtg
Rank: 12Rank: 12Rank: 12
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1545
专家分:3003
注 册: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
等 级:版主
威 望:451
帖 子:10538
专家分:42927
注 册: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
快速回复:将EXCEL中的十个竖排单元格的数据粘到TXT上,如何以备注格式数据导入V ...
数据加载中...
 
   



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

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