Excel Office 365中的VBA日期

我在VBA Office 2016 32位中创建了该项目，现在我正在Office 365 32位（WIN10）中尝试运行该项目，当然我遇到了数据采集器问题（已解决），但现在在运行代码时出现错误“Complie error:找不到项目或库”。 问题是：

currentMonth = Month(Date)

---

你知道为什么“日期”不能告诉我今天的日期吗？在Excel 2016中没有问题。

此处未定义日期。它在别处有定义吗？ 似乎日期被重新定义了

此代码也适用于早期版本：

Option Explicit

Sub test()
  Dim theDate as Date
  Dim currentMonth As Integer

  theDate = Now()
  currentMonth = Month(theDate)
  Debug.Print currentMonth
End Sub

---

试试

Date（）

。实际上，它被定义为一个函数，因此“应该”用

（）

调用。也许这有帮助，它很有效！谢谢这不是解决办法。你的表情正常。如果

Date

应该“在其他地方定义”，那就是要更正的。解决方案是

Now（）

，在您的问题

Now（）

的上下文中，这只是一种变通方法，而不是解决方案。