غريب "وسيطة غير اختياري" خطأ في VBA

Question

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

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

وأنا على الحصول على "وسيطة غير اختياري" تجميع الخطأ في السطر:

data = getClipboardData()

وماذا أفعل الخطأ؟ هناك حجج لوظيفة getClipboardData (؟) - فكيف يمكن أن أكون في عداد المفقودين واحدة

Answer 1

وإنها رسالة خطأ سيئة، ولكن مشكلتك هو شائع واحدة - كنت قد حصلت على وضع Set data = getClipboardData() كما كنت إرجاع كائن

.