VBA实时检测工作表是否存在，小白求助大神。

醒酒壶

Private Sub Workbook_Open()
Dim I As Integer, sht As Worksheet, X As Integer
I = ThisWorkbook.Sheets.Count

    For X = 1 To Sheets.Count
        If Worksheets(I).Name <> Format(Now(), "m-d") Then
               Worksheets(I).Copy after:=Worksheets(I)
               I = I + 1
               Worksheets(I).Name = Format(Now(), "m-d")
            Exit Sub
        End If
    Next
End Sub

我是小白，这些代买需要手动点运行才行，我想让这些代码打开文件就生效，一直自动检测需要怎样修改才可以？

excel玉米

放在thisbook这个工作表对象内，在 VBE界面里的sheet对象下面

醒酒壶

excel玉米 发表于 2022-8-27 23:09
放在thisbook这个工作表对象内，在 VBE界面里的sheet对象下面

是放在这个对象里面，也需要手动点才行

约定的童话

自动侦测会一直占用进程，整的你都无法操作工作簿

醒酒壶

约定的童话 发表于 2022-8-28 09:37
自动侦测会一直占用进程，整的你都无法操作工作簿

那可以判断日期有更新就自动运行吗？

zpy2

醒酒壶 发表于 2022-8-28 10:37
那可以判断日期有更新就自动运行吗？

这种推送消息估计pc很难，手机端有的

醒酒壶

zpy2 发表于 2022-8-29 12:22
这种推送消息估计pc很难，手机端有的

没用手机端，电脑端都还没懂

excel玉米

今天翻看以前的贴子，这个贴似乎还没有结案，现贴出来代码图及附件，请参考。

醒酒壶

excel玉米 发表于 2022-8-30 20:48
今天翻看以前的贴子，这个贴似乎还没有结案，现贴出来代码图及附件，请参考。

大哥，好像这个也没自动运行，我想要的是检测日期，如果日期变化了代码就自己运行，把新日期的创建出来

excel玉米

这个是打开工作薄时判断工作表名称是否包含今天日期8-31。如果今天没有打开过工作薄，则自动生成8-31工作表。如果今天打开过一次工作薄，已经生成过8-31工作表，则会跳出如下对话框提示。