VB.Net PasteSpecial Error Excel Office 365

Question

我正在尝试将巨大的数据集从一个来源粘贴到另一个来源。工作正常。突然，它开始引发以下错误。请指教。

这让我发疯了...

    Dim CR As Range = xlsSheet.Range(position)
    xlsSheet.PasteSpecial(CR, False, False, Type.Missing, Type.Missing, Type.Missing, True)
    GC.WaitForFullGCComplete()

我遇到以下错误：

System.Runtime.InteropServices.COMException HResult = 0x800A03EC消息=来自HRESULT的异常：0x800A03EC源= ExcelLib StackTrace：在Microsoft.Office.Interop.Excel._Worksheet.PasteSpecial（Object格式，对象链接，对象DisplayAsIcon，对象IconFileName，对象IconIndex，对象IconLabel，对象NoHTMLFormatting

Answer 1

我已经找到解决上述错误的方法。

• 重新启动您的Excel
• 如下所述更改您的代码：

代码

Dim ws1 As WorksheetDim ws2 As WorksheetDim copyRange As RangeDim destRange As Rangews1 = xlsWB.Sheets(srcSheet)ws2 = xlsWB.Sheets(destSheet)copyRange = ws1.Range(srcRange)destRange = ws2.Range(position)GC.WaitForPendingFinalizers()ws2.Select()copyRange.CurrentRegion.SpecialCells(XlCellType.xlCellTypeVisible).Copy(Destination:=destRange)GC.WaitForFullGCComplete()ws1 = Nothingws2 = Nothing