Dim a As New DataObject提示“用户定义类型未定义”

这条引用找瞎眼都找不到，得浏览 打开，如图路径。

一般默认是

"C:\Windows\System32\FM20.DLL"

附个例子，运行后把剪切板的内容放到a1格：

'放在sheet表里
Sub a()
Dim a As New DataObject
Set a = New DataObject
a.GetFromClipboard
Range("a1").Value = a.GetText
Set a = Nothing
End Sub