用DataToClip方法把dbf数据导入excel表如何去掉剪切版的字段名

yuyan663 发布于 2021-02-16 17:52， 1526 次点击

请问大家用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 && 粘贴搜索结果

5 回复

sdta2021-02-16 18:14

删除活动工作表第一行
oExcel.ActiveSheet.Rows(1).Delete

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

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

yuyan6632021-02-16 18:21

回复楼主 yuyan663

谢谢大神，先祝您新年快乐。

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

sdta2021-02-16 18:26

清除指定区域
oExcel.ActiveSheet.Range("A1:E1").Clear
不引起表中数据行移动

sdta2021-02-16 18:29

以下是引用yuyan663在2021-2-16 18:21:05的发言：

谢谢大神，先祝您新年快乐。

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

yuyan6632021-02-16 18:33

回复 5楼 sdta

我在目标EXCEL文件里已经用测试数据做好了图表，现在想的的是后期只管导入数据，统计图随数据自动刷新就好。
我先测试一下看看数据会不会有影响。