Странная ошибка "Аргумент не обязателен" в 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(), когда возвращаете объект.