Excel：'Range类的PasteSpecial方法失败'-vb.net

Question

此问题出乎意料地出现-有时是，有时不是。我查看了许多不同的解决方案，但是无论如何，错误总是会出现，有时非常频繁，有时很少出现。

我的任务是从新的.xlsx文件中的.xlsm文件的列表中收集必要的信息。

这里是复制代码：

        With xlSheetDF
            Dim addressFrom = "A" & line & ":D" & line + 3
            .Activate
            .Range(addressFrom).Cells.ClearComments
            If isPrem Then
                .Range(addressFrom).Interior.ColorIndex = 38 'Info: http://dmcritchie.mvps.org/excel/colors.htm
            End If
            .Range(addressFrom).Copy
        End With
           With newxlSheetDF
                Dim addressTo = "A" & positions(8) & ":D" & positions(8) + 3
                .Activate
                .Range(addressTo).PasteSpecial(Excel.XlPasteType.xlPasteAll)
                Dim shape = .Shapes(.Shapes.Count)
                For i = 1 To .Range(addressTo).Rows.Count
                    .Range(addressTo).Rows(i).RowHeight = shape.Height / 4
                Next
            End With

由于范围包含对象（QR码图片），因此所有内容均被复制为图片。 此代码循环执行。 错误期间（程序停止时）-剪贴板包含信息。