DataObject:GetText 无效的 FORMATETC结构问题求助

wymoon123

求大神们找问题，这个代码一运行，显示DataObject:GetText 无效的 FORMATETC结构。


Sub 跨隐藏行复制()
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.GetFromClipboard
    arr = Split(MyData.GetText(1), Chr(13) + Chr(10))
    Dim col, row
    col = 0
    row = 0
    Dim rng As Range
    Set rng = Selection
    For i = 0 To UBound(arr)
        brr = Split(arr(i), Chr(9))
        For j = 0 To UBound(brr)
'            Debug.Print brr(j) & "///"
            rng.Offset(row, col).Value = brr(j)
            col = col + 1
        Next j
'        Debug.Print "******"
        col = 0
            Do
                row = row + 1
            Loop While rng.Offset(row, col).Height < 1
    Next i
    Set MyData = Nothing
    MsgBox "Copy Finished"

End Sub

ggmmlol

把arr = Split(MyData.GetText(1), Chr(13) + Chr(10))改成如下，试一试：

arr = Split(MyData.GetText, Chr(13) + Chr(10))

wymoon123

ggmmlol 发表于 2020-10-28 09:47
把arr = Split(MyData.GetText(1), Chr(13) + Chr(10))改成如下，试一试：

arr = Split(MyData.GetText, ...

不行，还是报同样的错误

ggmmlol

wymoon123 发表于 2020-10-28 13:35
不行，还是报同样的错误

上附件不会吗？你第一次求助别人就教你了呀

wymoon123

ggmmlol 发表于 2020-10-28 14:04
上附件不会吗？你第一次求助别人就教你了呀

举个例子，我sheet1 里隐藏了8到13行，只想复制显示的1,2,3,10,11,12，表1里Ctrl+C后，运行快隐藏行复制后，在sheet2 里Ctrl+V,后就只粘贴1,2,3,10,11,12，想要实现的功能就是这个，付个Excel你看看。

ggmmlol

代码从剪切板中获取文本内容，不存在任何问题，前提是你刚刚把一些文字内容复制到了剪贴板！

wymoon123

ggmmlol 发表于 2020-10-29 13:34
代码从剪切板中获取文本内容，不存在任何问题，前提是你刚刚把一些文字内容复制到了剪贴板！

是的，其实挺奇怪的，我同事就可以用，但是我就不行，你的可以正常运行么

沉默的桶牛

我也遇到了和你一样的问题，和你功能差不多的代码（将剪贴板数据粘贴到可见单元格），之前一直正常运行呢，今天突然报错（我的是点宏运行报错，绑定到表单控件后就正常），你的问题解决了吗？另外，当单元格有强制换行的数据时，粘贴的数据会多出两个引号，请问能解决吗？

ynzsvt

代码运行正常啊，我估计原因是你复制后在想输出的区域双击编辑了，这样复制就无效了，程序就出错了。