关于数据表自动导入问题

luchou2012

魂断蓝桥 发表于 2015-4-17 14:30
Sub a()
MsgBox "选择数据1文件位置"
Dim op, d, L, cm, hc As String

谢谢回答，刚才试了一下，你的代码会用数据2覆盖掉报表，而原来的数据1数据2没有变化。
      我想要的功能是把20日的数据1和数据2用数值方式覆盖掉原来公式表中的数据1、2，请问有没有办法呢

魂断蓝桥

luchou2012 发表于 2015-4-17 14:43
谢谢回答，刚才试了一下，你的代码会用数据2覆盖掉报表，而原来的数据1数据2没有变化。
      我想要的功 ...

没看懂，例子工作簿中d3可用公式

=SUMIF(数据1!B:B,"资产*",数据1!C:C)

这样和数据1中的行就没有关系了，但你导出的数据，格式要一样才行。

luchou2012

魂断蓝桥 发表于 2015-4-17 15:58
没看懂，例子工作簿中d3可用公式

=SUMIF(数据1!B:B,"资产*",数据1!C:C)

7楼发的例子中有我做的旬报的完整一套，数据表是业务状况表本外币1、2、3级和人民币1、2、3级共6张
    每次我做的时候都是系统下载好这6张表（名字中日期变化，内容中借贷方上期末、期中、本期值共6列数据以及表内日期会改变，其他单元格不会变化），然后整张工作表复制，选择数值后整张覆盖到公式工作簿中对应的工作表中，然后前面四张旬报因为公式做好了，就会自动生成数据了。
     这样说清楚吗？

luchou2012

魂断蓝桥 发表于 2015-4-17 15:58
没看懂，例子工作簿中d3可用公式

=SUMIF(数据1!B:B,"资产*",数据1!C:C)

有办法解决吗

魂断蓝桥

luchou2012 发表于 2015-4-27 08:56
有办法解决吗

没看懂你的问题

luchou2012

魂断蓝桥 发表于 2015-4-28 12:55
没看懂你的问题

哪里不懂，你前面给的代码没有用
       你看看我后面给的压缩包呢   那个能够用导入的方法更新6张灰色的数据表就可以解决问题了

LMY123

For Each MyTable In cat.Tables