Excelmacros来识别今天星期几是

我想创build一个macros，看今天的星期几（星期一，星期二，星期三等），如果星期六是星期六或星期天，macros将停止一切，但如果它是一个工作日（M，T，W，Th或者F），那么它会调用下一个子工作。

Private Sub Workbook_Open() **If today is Saturday or Sunday Then** **do nothing** Else Call Populate_Workbook() End If End Sub 

与**的部分是我需要帮助找出的部分。 如果有人弄清楚这个问题，你能解释一下你是如何提出解决scheme的？ 试图更多地学习和理解macros。

Answer 1

干得好…

 Private Sub Workbook_Open() If Weekday(Date, vbMonday) < 6 Then Populate_Workbook End Sub 

Weekday（）函数有一个可选的第二个参数，告诉它星期的哪一天开始。 Weekday（）函数返回从1到7的整数。

我已经指示它在星期一开始这个星期，所以星期六是6，星期日是7。