VBA中有奇怪的“Argument not optional”错误

Question

Private Sub importClipboard_Click()
    Dim data As Collection
    data = getClipboardData()
    ...do something...
End Sub

Function getClipboardData() As Collection
    ...do something...    
End Function

我在行上收到“Argument not optional”编译错误：

data = getClipboardData()

我做错了什么？ getClipboardData（）函数没有参数 - 所以我怎么能错过一个呢？

Answer 1

这是一条糟糕的错误消息，但您的问题很常见 - 当您返回一个对象时，您必须放置Set data = getClipboardData()。