Question

我在excel工作簿中有52张，每张根据月份日期命名，格式为：11-3,11-10,11-17,11-24。这一天对应于一周的星期一。

我的目标是让代码根据日期将工作簿打开到工作表。例如，如果我今天（11月7日）打开它，那么它将打开到表11-3。如果我在11月7日下周打开它，它将打开11-10页。我尝试了几种不起作用的方法。如果有人有任何建议，我将不胜感激。

由于

Answer 1

这样的事情可能适用于ThisWorkbook模块的Workbook_Open事件。

Private Sub Workbook_Open()

Dim ws As Worksheet
Dim mnth As String, dte As String, mday As String

mday = Now() - Weekday(Now(), 3)

mnth = Month(mday)
dte = Day(mday)

tabstr = mnth & "-" & dte

    For Each ws In Worksheets
        If ws.Name = tabstr Then
            ws.Select
            Exit For
        End If
    Next
End Sub

根据当前日期打开特定表

1 个答案: