如何能复制表格到另一个工作簿，并以日期命名

hanxing1983

大神们好，请教一个问题：有三个表格，分别为“数据详表”，“汇总”和“检查”。

其中，数据详表是每天都会更新的，希望从“检查”表中，点击按钮，会自动打开数据表格，并将sheet自动复制到“汇总”的sheet中，sheet名称即为当天的日期。

另外，因为一个月就会有30份sheet，因此，希望在汇总表格的首页，会自动生成超链接。直接点击日期即可访问对应的sheet。

我用copy可复制单个sheet，但不知道怎么让它的名字变成日期，也不知道该怎么自动生成超链接，恳请老师们指点

汇总表格 (2).zip (22 KB, 下载次数: 3)

2019-12-5 21:04 上传

点击文件名下载附件

约定的童话

3个表格不能综合在一起吗？折腾来折腾去的

风筝那根线

汇总表格.zip (33.04 KB, 下载次数: 6)

2019-12-6 16:46 上传

点击文件名下载附件

三个表格都必须在同一个文件夹下，当天的数据可以重复添加更新，如果有昨天的数据表，就只能改系统日期了

liangmutou01

Sub bj()
  Application.ScreenUpdating = False
  Set conn = CreateObject("ADODB.Connection")
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.Path & "\数据详表.xlsm"
  rq = [b4].Value
  Workbooks.Open ThisWorkbook.Path & "\汇总.xlsm"
  ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
  With ActiveSheet
    .Name = rq
    .Range("a1").CopyFromRecordset conn.Execute("select * from [" & rq & "$]")
  End With
  With ActiveWorkbook.Sheets("超链接")
    h = .[a65536].End(3).Row + 1
    .Cells(h, 1) = "连接" & rq & "表"
    .Hyperlinks.Add Anchor:=.Cells(h, 1), Address:="", SubAddress:=rq & "!A1"
  End With
  conn.Close
  Set conn = Nothing
  ActiveWorkbook.Close True
  Application.ScreenUpdating = True
End Sub

liangmutou01

把程序文件一并发给你。

hanxing1983

liangmutou01 发表于 2019-12-6 21:18
Sub bj()
  Application.ScreenUpdating = False
  Set conn = CreateObject("ADODB.Connection")

感谢感谢。
前端时间出差，刚回来看到，测试成功，实在感谢老师的指点