Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2978|回复: 8

[已解决]请各位高手给看下如何修改下这个文件代码,能实现覆盖原数据而不是增加。

[复制链接]
发表于 2017-6-28 09:59 | 显示全部楼层 |阅读模式
本帖最后由 qinshuai8507 于 2017-6-28 10:18 编辑

请问如何修改下这个文件代码,能实现覆盖原数据而不是增加。
最佳答案
2017-6-28 11:43
  With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("A11")) '开始目的单元格
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertCells ' xlInsertDeleteCells

读取数据.zip

9.11 KB, 下载次数: 15

发表于 2017-6-28 10:15 | 显示全部楼层
End If
    Cells.ClearContents
    Range("A1").Select
第四行增加一行清除的代码Cells.ClearContents
回复

使用道具 举报

 楼主| 发表于 2017-6-28 10:22 | 显示全部楼层
yonhe 发表于 2017-6-28 10:15
End If
    Cells.ClearContents
    Range("A1").Select

你好高手,这样的话不想清除的数据也被清除了,能不能有部分数据保留部分覆盖,而不是全部清空呢?
回复

使用道具 举报

发表于 2017-6-28 10:24 | 显示全部楼层
那要逐条读入数据和原区域比较的,还要给出保留或覆盖的规则。
回复

使用道具 举报

 楼主| 发表于 2017-6-28 10:25 | 显示全部楼层
qinshuai8507 发表于 2017-6-28 10:22
你好高手,这样的话不想清除的数据也被清除了,能不能有部分数据保留部分覆盖,而不是全部清空呢?

前9行数据需要是固定的,每次的数据都是覆盖10-28行
回复

使用道具 举报

 楼主| 发表于 2017-6-28 10:31 | 显示全部楼层
qinshuai8507 发表于 2017-6-28 10:22
你好高手,这样的话不想清除的数据也被清除了,能不能有部分数据保留部分覆盖,而不是全部清空呢?

我想到了个办法,请问如何修改清空的那个代码,我需要覆盖第几行就清空第几行,如果我想覆盖10-28行,如何编写清空10-28行的数据代码。
回复

使用道具 举报

发表于 2017-6-28 11:43 | 显示全部楼层    本楼为最佳答案   
  With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("A11")) '开始目的单元格
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertCells ' xlInsertDeleteCells
回复

使用道具 举报

发表于 2017-6-28 11:51 | 显示全部楼层
请仔细阅读提问技巧,把问题想清楚了再发出来。
回复

使用道具 举报

 楼主| 发表于 2017-6-28 16:47 | 显示全部楼层
苏子龙 发表于 2017-6-28 11:43
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("A11")) '开 ...

你好高手,上边的问题已经解决了,还有个问题就是如何修改下让它只读取前9行的数据呢?从第几行开始读取和读取到哪个单元格开始我都知道修改哪个地方,就是这个读取到第几行不知道修改哪个地方。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:52 , Processed in 0.723402 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表