怎样将一个工作簿指定区域复制到另一个工作簿新生成的以日期命名的表格里

fatcat88888888

wp231957 发表于 2020-5-29 11:00
可以，，略作改动

太感谢老师了，真的太激动了

fatcat88888888

谢谢老师们，真的帮了大忙

fatcat88888888

wp231957 发表于 2020-5-29 11:00
可以，，略作改动

老师您好，之前你写的是从数据汇总簿点击按钮后，从基础数据提取数据。
能否写一个从基础数据簿点击按钮，然后会把数据发送到数据汇总簿里，格式和之前的一样，如果已经存在按时间格式命名的表格，就粘贴在改表格里，如果不存在，就新生成时间名称的表格。
12楼liulang0808老师帮忙写的，如果数据汇总表是开着的话，会先关闭，然后才复制过去。刚刚老师写的好像不会关闭，就直接复制过去。能不能写成如果文件开着，就保持开着复制过去，不关闭。如果是关闭的话，就直接复制过去，不把它打开？

万分感谢

fatcat88888888

wp231957 发表于 2020-5-29 11:00
可以，，略作改动

我自己试着写了个，从基础数据簿按按钮，然后发送到数据汇总簿。但是好像不能实现如果数据汇总簿开着，就保持开着，数据汇总簿关闭的话，就保持关闭。好像都会把数据汇总簿打开，老师能帮我查下代码吗


Sub 行业()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set Rng = Range("I306:AY877")
    Workbooks.Open Filename:=ThisWorkbook.Path & "\数据汇总.xlsx"
    flag = 0
    For Each sht In Sheets      '检索目标工作表是否在sheets集合
       If sht.Name = Format(Now(), "yyyymmdd") Then
          flag = 1
          Sheets(Format(Now(), "yyyymmdd")).Activate
          Range("a1:ay10000").Clear
          Range("a1").Resize(Rng.Rows.Count, Rng.Columns.Count).Value = Rng.Value
          Exit For
       End If
    Next
    If flag = 0 Then
       Sheets.Add(After:=Sheets(2)).Name = Format(Now(), "yyyymmdd")
    End If
    ''''
    Sheets(3).Activate
    Range("a1").Resize(Rng.Rows.Count, Rng.Columns.Count).Value = Rng.Value
    Workbooks(ThisWorkbook.Name).Save
    'Application.Quit
   
End Sub

wp231957

fatcat88888888 发表于 2020-5-29 11:56
老师您好，之前你写的是从数据汇总簿点击按钮后，从基础数据提取数据。
能否写一个从基础数据簿点击按钮 ...

你想把宏代码  放在哪个工作簿里呢？？

fatcat88888888

wp231957 发表于 2020-5-29 17:31
你想把宏代码  放在哪个工作簿里呢？？

两个都放，之前老师写的事放在数据汇总表，我基础数据表也需要放一个，所以参照老师的写了一个放基础数据表，但是总有问题

fatcat88888888

wp231957 发表于 2020-5-29 17:31
你想把宏代码  放在哪个工作簿里呢？？

老师能帮忙写一下吗？