我正在尝试根据从文本数据库下载的数据中的日期范围自动更新Excel中报表顶部的日期范围。在下面列出的宏中,我收到运行时错误'13':在上键入不匹配PEndDt = Right(PaidDateRange, 8)
。
我认为Date变量PEndDt不喜欢获取String。但是我已经为其他宏中的Date变量分配了字符串!我现在不解决此问题。请帮忙。
Sub test()
Dim PEndDt As Date
Dim PaidDateRange As String
PaidDateRange = "PAID DATE 1/01/13 - 9/31/13"
PEndDt = Right(PaidDateRange, 8)
Range("A1") = "Report thru " & Format(PEndDt, "Long Date")
End Sub
问题出在字符串中。
13/9/31不是一个有效的日期。
9/31/2013也不是有效日期。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句