我想把EXCEL表格的一部分复制到粘贴板，在EXCEL里用VBA是可以实现的。
可是在VB里，出错。
代码：
Dim MyData As DataObject, rng As Range, Mystr As String
Set MyData = New DataObject
For Each rng In Range("a1:a4")
    Mystr = Mystr & rng.Value
Next rng
MyData.SetText Mystr
MyData.PutInClipboard
出错见上图。
请问如何解决？谢谢！

谢谢！看了你的回复有些启发，可是那个New的问题还是没有解决。