随机获取错误

Question

我正在使用Mid函数从文件名中获取日期：

Dim exportDate As Date
exportDate = Mid(ActiveWorkbook.Name, 22, 10)

我开始收到此错误：

  

运行时错误＆＃39; 13＆＃39;：

     

类型不匹配

问题是它一直在工作，直到今天它突然停止工作。我试过了 ： - 重新启动Excel一段时间，它再次工作，但现在它不再工作了。 - CDate(Mid(ActiveWorkbook.Name, 22, 10))它工作了一段时间

我无法弄清楚为什么这不起作用，请帮助我！