| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 153 人关注过本帖
标题:用DataToClip方法把dbf数据导入excel表如何去掉剪切版的字段名
只看楼主 加入收藏
yuyan663
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2019-9-1
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
用DataToClip方法把dbf数据导入excel表如何去掉剪切版的字段名
请问大家用DataToClip方法把dbf数据导入excel表如何去掉剪切版的字段名。


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

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






如上图excel文件内红框部分是原始DBF文件的字段名,有什么办法可以取掉落这行吗?


程序代码:
CLOSE data
*USE b7
USE b7    &&打开数据原始表
_vfp.DataToClip(1,,3)     &&将数据原始表的内容读入剪切版
lcFileName='bb7.xls'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('bb7.xls') &&打开模版文件
oExcel.Visible=.T.
oExcel.Workbooks(lcFileName).Sheets(1).Range("a3:a3").Select && 指向拷贝目标区域左上角单元 
oExcel.Workbooks(lcFileName).Sheets(1).Paste && 粘贴搜索结果 
搜索更多相关主题的帖子: 字段 excel 数据 dbf 方法 
2021-02-16 17:52
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:242
帖 子:8369
专家分:21742
注 册:2012-2-5
收藏
得分:20 
删除活动工作表第一行
oExcel.ActiveSheet.Rows(1).Delete        

删除指定工作表指定行
oExcel.WorkSheets("Sheet1").Rows(3).Delete               

[此贴子已经被作者于2021-2-16 18:23编辑过]


坚守VFP最后的阵地
2021-02-16 18:14
yuyan663
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2019-9-1
收藏
得分:0 
回复 楼主 yuyan663
谢谢大神,先祝您新年快乐。
这个办法之前想到过之前也想到过,只是考虑到实际应用中些excel文件内内还有一些图表会引用这些数据,这种删除行的方法可能会对图表引用数据造成影响,所以想研究个可以批量导入数据不删除行的办法。
2021-02-16 18:21
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:242
帖 子:8369
专家分:21742
注 册:2012-2-5
收藏
得分:0 
清除指定区域
oExcel.ActiveSheet.Range("A1:E1").Clear                    
不引起表中数据行移动

坚守VFP最后的阵地
2021-02-16 18:26
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:242
帖 子:8369
专家分:21742
注 册:2012-2-5
收藏
得分:0 
以下是引用yuyan663在2021-2-16 18:21:05的发言:

谢谢大神,先祝您新年快乐。
这个办法之前想到过之前也想到过,只是考虑到实际应用中些excel文件内内还有一些图表会引用这些数据,这种删除行的方法可能会对图表引用数据造成影响,所以想研究个可以批量导入数据不删除行的办法。

先有数据,才有图表,先删除第一行,不会引起图表数据位置的变动吧
也可以修改第一行各个单元格的内容

坚守VFP最后的阵地
2021-02-16 18:29
yuyan663
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2019-9-1
收藏
得分:0 
回复 5楼 sdta
我在目标EXCEL文件里已经用测试数据做好了图表,现在想的的是后期只管导入数据,统计图随数据自动刷新就好。
我先测试一下看看数据会不会有影响。
2021-02-16 18:33
快速回复:用DataToClip方法把dbf数据导入excel表如何去掉剪切版的字段名
数据加载中...
 
   



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

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