Excel在继续之前检查剪贴板中的日期

我试图想出一个代码来检查用户剪贴板，以确保剪贴板中的第一个值是日期。如果没有，则在继续之前退出接头。我遇到的问题是，这不是一个具体的日期，而是任何日期。在有人粘贴数据之前，我使用它作为错误检查工具，以确保它不会导致其他问题

这是代码的一部分

    Dim MyText As String
    Dim datevalue As String
    Set MyData = New DataObject
    MyData.GetFromClipboard
    MyDate = MyData.Getdate
    

    If Left(MyText, 2) <> datevalue(date_string) Then Exit Sub

    Sheets("Sheet1").Range("a1") = MyText

Dim MyText作为字符串
将日期值设置为字符串
设置MyData=newdataobject
MyData.GetFromClipboard
MyDate=MyData.Getdate
如果左（MyText，2）日期值（日期字符串），则退出Sub
图纸（“图纸1”）。范围（“a1”）=MyText

---

当它运行时，excel显示“编译错误：预期数组”。我假设这是因为它在datevalue（date_字符串）中预期实际日期，但我不知道如何说“任意日期”而不是特定日期？非常感谢您的帮助。

什么是

MyDate=MyData.Getdate

？您为什么要使用左<代码>。。。两个字符怎么算一个日期？示例数据可能会有所帮助。一个问题是您已将

datevalue声明为String

，这会覆盖内置的datevalue函数。您正试图将后者用于

datevalue（date\u string）

。另一个问题是

GetDate

不是数据对象的方法。