自动每日工作表以及数据报告和今天的日期

Question

我正在寻找帮助以创建对我来说很重要的东西。

我有一个自动换页工作表，每天为我更新。我的前两列显示了所需的结果。有人可以为我提供以下代码的帮助吗？

• 每天在今天之前制作一张新纸 -复制A和B列中的数据，但仅复制可见数据，无需公式。

基本上就是这样。一个简单的代码，每天从我的“ DataInput”工作表中复制第一两列，然后每天保存在今天的日期下。如果已经存在，请忽略它。

Sub AddSheets_TodayDate()
Dim szTodayDate As String
szTodayDate = Format(Date, "dd.mm.yy")
On Error GoTo MakeSheet
Sheets(szTodayDate).Activate
Exit Sub
MakeSheet:
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = szTodayDate
Sheets("DataInput").Select
Range("A:A").Copy
Sheets("szTodayDate").Select
Range("A:A").Select
ActiveSheet.Paste

End Sub