根据当前日期打开特定表

时间:2014-11-07 19:20:33

标签: excel vba excel-vba

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

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

由于

1 个答案:

答案 0 :(得分:0)

这样的事情可能适用于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